nicht angemeldet
Hi Melanie!
Danke dass du dich damit beschäftigst! Sorry wegen dem Absturz
habs jetzt so gebaut: (Stimmt das?)
<%
Dim myConnString
Dim myConnection
Dim mySQL
Dim rs
myConnString = Application("Immo_ConnectionString")
Set myConnection = Server.CreateObject("ADODB.Connection")
myConnection.Open myConnString
set rs = server.createobject("adodb.recordset")
rS.Open Immo, myConnection, adOpenKeySet, adLockOptimistic, adCmdTable
rs.AddNew
rs("Wohnflaeche") = Request.Form("Wohnflaeche")
rs("Zimmer") = Request.Form("Zimmer")
rs("Ort") = Request.Form("Ort")
rs("Preis") = Request.Form("Preis")
rs("Grundflaeche") = Request.Form("Grundflaeche")
rs.Update
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "xxx.de"
JMail.Sender = "xxx"
JMail.Subject = "Test"
JMail.AddRecipient Request.Form("EMail")
JMail.HTMLBody = "<html><body>" & rs("ID") & "..."
JMail.Logging = true
JMail.Silent = true
Funktioiert es so richtig? und stimmt der zugriff mit rs("ID") im body?
Was bedeudet?:
adOpenKeySet?
adLockOptimistic?
adCmdTable?
Was muß ich noch ändern?
Danke im voraus!
MFG
Markus