asp/jmail problemer
Hvorfor bliver der ikke sendt en mail ????<%
mFrom = Request.Form("myemail")
mTo = Request.Form("to")
mSubject = Request.Form("subject")
mbcc = Request.Form("users")
mBody = Request.Form("body")
mArchive = Request.Form("archive")
if zDisplay1 = "Yes" then
response.write("Mailen er blevet sendt til:<br><br>" & mbcc )
end if
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.Sender = mFrom
JMail.AddRecipientEx zMail, ""
Jmail.AddRecipientCC mbcc
JMail.Subject = mSubject
JMail.Body = mBody
JMail.Execute
Set JMail = Nothing
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("nyhedsbrev.mdb"))
ConvertmSubject = Replace(mSubject, "'", "''")
ConvertmBody = Replace(mBody, "'", "''")
ArchiveSQL = "INSERT into Archive (ArchiveSubject,ArchiveBody) VALUES ('" & ConvertmSubject & "','" & ConvertmBody & "');"
conn.Execute ArchiveSQL
response.write("<br><br><br>Data gemt!<br><br>")
Response.Write(Len(mBody))
conn.close
%>
