Fejl ifm. Jmail
HejJeg får følgende fejl, og håber I kan se hvad der er forkert:
Response object error 'ASP 0156 : 80004005'
Header Error
/Nyhed_indsaet_retursvar.asp, line 47
The HTTP headers are already written to the client browser. Any HTTP header modifications must be made before writing page content.
source-koden er som følger:
</head>
<body background="../../bg/bg.gif">
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/log/nyhed.mdb") & "; password=herba"
Conn.Open DSN
' SQL sætning opbygges
strSQL = "INSERT INTO Nyhed (Fuldtidsjob, Deltidsjob, Selvhjemmekontor, Selvbutikkontorandet, Studerende, Arbejdsledig, Pensioneret, Medhjælp, Andet, Brugeinternettet, Forretningskoncept, Oplæringssystem, Gratishjælp, Hjemmesider, Startevedsidenaf, Hjemmefra, Tidogenergi, Direktelevering, Jahjemmefra, Jaarbejde, Nejtid, Nejtjenernok, 35, 510, 10mere, 710timer, 1015timer, 15mere, Gæld, Opsparing, Forbedre, Ferie, Tøj, Andet2, Ja, Navn, Alder, Telefon, Email, Fra, Til) VALUES('" & Request.Form("Fuldtidsjob") & "' , '" & Request.Form("Deltidsjob") & "' , '" & Request.Form("Selvhjemmekontor") & "' , '" & Request.Form("Selvbutikkontorandet") & "' , '" & Request.Form("Studerende") & "' , '" & Request.Form("Arbejdsledig") & "' , '" & Request.Form("Pensioneret") & "' , '" & Request.Form("Medhjælp") & "' , '" & Request.Form("Andet") & "' , '" & Request.Form("Brugeinternettet") & "' , '" & Request.Form("Forretningskoncept") & "' , '" & Request.Form("Oplæringssystem") & "' , '" & Request.Form("Gratishjælp") & "' , '" & Request.Form("Hjemmesider") & "' , '" & Request.Form("Startevedsidenaf") & "' , '" & Request.Form("Hjemmefra") & "' , '" & Request.Form("Tidogenergi") & "' , '" & Request.Form("Direktelevering") & "' , '" & Request.Form("Jahjemmefra") & "' , '" & Request.Form("Jaarbejde") & "' , '" & Request.Form("Nejtid") & "' , '" & Request.Form("Nejtjenernok") & "' , '" & Request.Form("35") & "' , '" & Request.Form("510") &"' , '" & Request.Form("10mere") & "' , '" & Request.Form("710timer") & "' , '" & Request.Form("1015timer") & "' , '" & Request.Form("15mere") & "' , '" & Request.Form("Gæld") & "' , '" & Request.Form("Opsparing") & "' , '" & Request.Form("Forbedre") & "' , '" & Request.Form("Ferie") & "' , '" & Request.Form("Tøj") & "' , '" & Request.Form("Andet2") & "' ,'" & Request.Form("Ja") & "' , '" & Request.Form("Navn") & "' ,'" & Request.Form("Alder") & "' ,'" & Request.Form("Telefon") & "' ,'" & Request.Form("Email") & "' ,'" & Request.Form("Fra") & "' ,'" & Request.Form("Til") & "')"
' SQL sætning eksekveres
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
if Request.Form("Ja") <> "" then
'Send mail
Set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = True
msg.Silent = True
msg.From = "mailform@ekstra-indtaegt.dk"
msg.FromName = "Ekstra Indtægt"
msg.Charset = "iso-8859-1"
msg.AddRecipient Request.form("Email")
msg.Subject = "Yderligere information"
msg.Body = "Hej" & Request.form("Navn") & vbCrLf & vbCrLf & "Vi bekræfter hermed at du har et lod i lodtrækningen." & vbCrLf & vbCrLf & "Du har svaret ja tak til mere information om ekstra indtægt." & vbCrLf & vbCrLf & "Gå derfor ind på http://www.arbejd.dk" & vbCrLf & vbCrLf & "Din personlige kode er:XXXX." & vbCrLf & vbCrLf & "Med venlig hilsen" & vbCrLf & "Finn Christensen" & vbCrLf & "Webmaster"
if not msg.Send("mail.ekstra-indtaegt.dk" ) then
Response.write "<pre>" & msg.log & "</pre>"
else
Response.Redirect ("ts.asp")
end if
Set msg = nothing
else
Response.Redirect ("ts.asp")
end if
%>
</body>
</html>
