Formular -> DB -> Jmail

Skulle da helst kunne lade sig gøre.....

forstår ikke helt om du slet ingen mail får, eller om du modtager en tom mail.

Det er svært at hjælpe hvis man ikke kan se koden. Du kan eventuelt give et link til koden her.

Jeg får ikke nogen mail overhovedet. Det gør jeg hvis jeg undlader at sætte data i db'en.

Step 1

Er koden med min formular...

Step 2
<%
dim conn
dim rs
dim sql
   
Set conn = Server.CreateObject ("ADODB.Connection")
Set rs = Server.CreateObject ("ADODB.Recordset")
   
conn.open strConnect
   
sql = "SELECT id, ip, email, tlf, adresse, post_by, navn, knavn, dato, dag, mdr, aar, oprettet, godkendt from Kalender"
rs.open sql, conn, 1, 3
   
RS.ADDNEW
    RS("ip") = request.ServerVariables("REMOTE_ADDR")
    RS("email") = request.form("email")
    RS("tlf") = request.form("tlf")
    RS("adresse") = request.form("adresse")
    RS("navn") = request.form("navn")
    RS("knavn") = request.form("knavn")
    RS("dato") = request.form("fra")
    RS("oprettet") = date()
    RS("godkendt") = false
RS.UPDATE
   
rs.close
conn.close
set rs = nothing
set conn = nothing
set sql = nothing
   
response.redirect("mailsend.asp")
%>

Step 3

<%
set msg = server.CreateObject("JMail.message")
msg.Logging = true
msg.From = request.form("email")
msg.FromName = request.form("navn")

msg.AddRecipient "kontakt@genesisdesign.dk"
msg.Subject = "Reservation af Axelgaard Ferie- og Kursuscenter"
msg.appendText "Kontaktformular udfyldt: " & now() & vbcrlf
msg.appendText vbcrlf
msg.appendText " Navn                : " & request.form("navn") & vbcrlf
msg.appendText " Kontaktperson        : " & request.form("knavn") & vbcrlf
msg.appendText " Adresse              : " & request.form("adresse") & vbcrlf
msg.appendText " Postnr og By        : " & request.form("post_by") & vbcrlf
msg.appendText " Telefon              : " & request.form("tlf") & vbcrlf
msg.appendText " Email                : " & request.form("email") & vbcrlf
msg.appendText vbcrlf
msg.appendText " Fra                  : " & request.form("fra") & vbcrlf
       
msg.Send("mail."mitdomæne".dk")
   
response.redirect("calendar_main.asp")
%>

Det var da rimeligt smart at prøve at skjule unødvendige data med "mitdomæne" for de står jo ikke andre steder, nej nej!!

Jeg har selv løst problemet ved at udføre Step 2 og 3 i samme fil.