Indsætte i DB og afsend Jmail

http://www.html.dk/tutorials/asp/lektion20.asp

SQL = "INSERT INTO mail(modtager, indhold, sender, reference) VALUES ('" & Request.form("modtager") & "', '" & Request.form("indhold") & "', '" & Request.form("sender") & "', '" & Request.form("reference") & "')"

sådan noget i den retning kan du sætte ind efter at have kørt dit, send script

Hej har nu nedenstående, men det virker ikke - jmail sender men der indsættes ikke i DB;


<%
Set JMail          = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "MIN_SMTP_SERVER.dk"
JMail.SenderName    = "MAFSENDER@MINSERVER.dk"
JMail.Sender        = "AFSENDER@MINSERVER.dk"
JMail.Subject      = "MAILHOVED"
JMail.AddRecipient  "iMODTAGER@MAIL.dk"

JMail.Body = "Oplyste Data:" & vbcrlf & vbcrlf _
& "Navn: " & Request.Form("navn") & vbcrlf _
& "Adresse: " & Request.Form("adresse") & vbcrlf _
& "Postnummer:  " & Request.Form("postnummer") & vbcrlf _
& "By:  " & Request.Form("by")  & vbcrlf _
& "Telefon: " & Request.Form("Telefon") & vbcrlf _
& "Fax:  " & Request.Form("fax") & vbcrlf _
& "E-mail: " & Request.Form("email") & vbcrlf & vbcrlf & vbcrlf _
& "Såfremt data er forkert kontakt  FEJL@MINSERVER.dk" & vbcrlf

JMail.Priority = 1

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
%>

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("../../db/DATABASE.mdb")
Conn.Open DSN

strSQL = "INSERT INTO TABELNAVN(navn, adresse, postnummer, by, telefon, fax,
email) VALUES ('" & Request.form("navn") & "', '" & Request.form("adresse")
& "', '" & Request.form("postnummer") & "','" & Request.form("by") & "','" &
Request.form("telefon"), '" & Request.form("fax") & "', & "' '" &
Request.form("email") & "')"
Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing

%>

Hvad for du af fejl?

ikke nogen ...det er det der er mærkeligt

så spiller det ....