Jmail fel!

Det kommer inget felmeddelande, det står bara att nyhetsbrevet är skickat.

If Request.Querystring("action") = "sent" Then

Set RecSet=Conn.Execute("SELECT * From nyhetsbrev")

Meddelande = Replace(Request.Form("Meddelande"), vbCrLf, "<BR>" & vbCrLf)

On Error Resume Next
Do While Not RecSet.EOF

smtpServer = "mail.aleborg.com"
smtpPort = 25

' ---
dim sender, subject, body, smtpServer, smtpPort
' Now gets the data from Form
sender = Request.Form("dinemail")
receiver = Request.Form("Email")
subject = Request.Form("Subject")
body = Request.Form("meddelande")

Set mail = CreateObject ("JMail.SMTPMail") 
mail.ServerAddress = smtpServer & ":" & smtpPort
mail.Sender = sender
mail.Subject = subject
mail.AddRecipient receiver
mail.ContentType = "text/html" ' or you can put 'text/plain' for plain text email 
mail.ISOEncodeHeaders = false 
mail.ContentTransferEncoding = "8bit"
mail.Body = body

' 1 - highest priority (Urgent) ' 3 - normal ' 5 - lowest 
mail.Priority = 3

' Add sender's IP address (not required, but useful for web-based email)
mail.AddHeader "Originating-IP", Request.ServerVariables ("REMOTE_ADDR")

' Actually send mail
mail.Execute 
set mail = nothing

RecSet.MoveNext
Loop
	
RecSet.Close
Set RecSet = Nothing

Session("mess") = "<b>Nyhetsbrevet har nu skickats!</b>"
Response.Redirect "admin.asp?sektion=4"

End If