nicht angemeldet
Hi Stefan!
Weiß noch nicht ganz wie ich diese Methode in meinem Beispiel einbauen soll?
Habs bis jetzt so:
<%
Dim myConnString
Dim myConnection
Dim mySQL
Dim rs
myConnString = Application("Immo_ConnectionString")
Set myConnection = Server.CreateObject("ADODB.Connection")
myConnection.Open myConnString
mySQL= "INSERT INTO Immo "
mySQL= mySQL & "(Passwort,Zimmer,Ort,Preis,Telefon,Grundflaeche) "
mySQL= mySQL & "VALUES ('" & Request.Form("Passwort") & "','"
mySQL= mySQL & Request.Form("Zimmer") & "'"
mySQL= mySQL & ",'" & Request.Form("Ort") & "'"
mySQL= mySQL & ",'" & Request.Form("Preis") & "','"
mySQL= mySQL & Request.Form("Telefon") & "','"
mySQL= mySQL & Request.Form("Grundflaeche") & "')"
myConnection.Execute mySQL
set rs = server.createobject("adodb.recordset")
rs.open "SELECT ID FROM [Immo] ORDER BY ID DESC", myConnection
Der oben genannte Code erzeugt den Eintrag in meiner DB..
nun wird mittels JMail ein Mail mit dem selben Eintrag geschickt:
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "meinserver.xxx"
JMail.Sender = "meinemail.xxx"
JMail.Subject = "TEST"
JMail.AddRecipient Request.Form("EMail")
JMail.HTMLBody = "<html><body>...." & rs("ID) & "..."
JMail.Logging = true
JMail.Silent = true
JMail.Execute
myConnection.Close
Set myConnection = Nothing
Wo soll ich das jetzt bzw wie baue ich das bitte in meinen obigen Code ein?
Kannst du mir bitte weiterhelfen
Wie sicher ist diese Methode? (Um Konflikte auszuschließen?)
MFG
Markus