Hej Gruppe
jeg har en formular og vil gerne sætte brugerens data i DB samtidig med der
går en e-mail afsted, men nedenstående fungere ikke (jo - jmail sender
beskeden afsted - men intet sættes i db - og jeg får ingen fejlmeddelse) -
er der en der kan se hvad/hvor der går galt:
<%
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
%>
---
Outgoing mail is certified Virus Free.
Checked by Norton anti-virus system (
http://www.norton.com). Version: 8.07
and
Checked by AVG anti-virus system (
http://www.grisoft.com).
Version: 6.0.443 / Virus Database: 248 - Release Date: 10-01-2003