Har denna kod och inget mail skickas. Nån som ser nåt fel?
Set RecSet=Conn.Execute("Select * From members WHERE email='" & Request.Form("email") & "'")
If Not RecSet.EOF Then
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = RecSet("email")
objMail.From = FromEmail
objMail.Subject = GlomtRubrik
Body = "<table width=""510"" align=""center"" cellpadding=""2"" cellspacing=""1"" border=""1"" style=""border-collapse: collapse"" bordercolor=""#000000"">"
Body = Body & "<tr><td><img border=""0"" src=""" & Banner & """></td></tr>"
Body = Body & "<tr><td valign=""top""><table width=""100%"" align=""center"" cellpadding=""3"" cellspacing=""0"">"
Body = Body & "<tr height=""10""><td style=""border-bottom: 1px solid #000000"" valign=""top""><font face=""verdana"" size=""2"" color=""darkblue"">"
Body = Body & "<b>Dina uppgifter hos " & PageName & " - " & Date & "</b></font></td></tr></table>"
Body = Body & "<table width=""100%"" align=""center"">"
Body = Body & "<tr><td><font face=""verdana"" size=""1""><b>Emailadress:</font></td>"
Body = Body & "<td><font face=""verdana"" size=""1"">" & RecSet("email") & "</font></td></tr>"
Body = Body & "<tr><td><font face=""verdana"" size=""1""><b>Lösenord:</font></td>"
Body = Body & "<td><font face=""verdana"" size=""1"">" & RecSet("losen") & "</font></td></tr>"
Body = Body & "</table>"
objMail.MailFormat = 0
objMail.BodyFormat = 0
objMail.Body = Body
objMail.Send
Set objMail = Nothing
Response.Redirect "login.asp?mess=Ett mail är nu skickat med dina uppgifter!"
Else
Response.Redirect "glomt.asp?mess=Emailadressen finns inte i databasen"
End If