JMail fejl nr 503
Jeg får denne fejl når jeg prøver mit JMail script af:Fejl: #503; The message was undeliverable. All servers failed to receive the message
Jeg kan simpelthen ikke finde ud ad hvad der er galt.. Her har i hele siden:
<html>
<head>
<title>Glemt kode</title>
<!-- #include file="../style.css" -->
</head>
<body>
<%
If Request.QueryString("mode") = "" Then
%>
<form method="post" action="glemtkode.asp?mode=send">
<div align="right"><b>Glemt kode <font color="FF7800">.:</font></b></div>
<hr style="border: 3px dotted #333333" size="2">
<b>Brugernavn:</b><br>
<input type="text" name="brugernavn" style="background-color: #FFFFFF; font-family: Tahoma; font-size: 8pt; border: 1 solid #000000">
<input type="image" src="images/glemtkode.gif">
<hr style="border: 3px dotted #333333" size="2">
</form>
<%
End If
%>
<%
If Request.QueryString("mode") = "send" Then
%>
<%
Dim rs, mail, overskrift, besked, Conn, strSQL
brugernavn = Request.Form("brugernavn")
strSQL = "SELECT * FROM brugere WHERE brugernavn='" & brugernavn & "'"
Conn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("../../db/*censur*.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, Conn
Do until rs.EOF
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.hh-media.dk"
JMail.Sender = "glemtkode@hh-media.dk"
JMail.SenderName = "HH-Media - Rekvideret password"
JMail.AddRecipient rs("mail")
JMail.Priority = 1
JMail.Subject = "HH-Media - Glemt kode"
JMail.Body = "Hej"
JMail.Body = JMail.Body & brugernavn
JMail.Body = JMail.Body & "!"
JMail.Body = JMail.Body & vbcrlf
JMail.Body = JMail.Body & vbcrlf
JMail.Body = JMail.Body & "Din kode til brugeren "
JMail.Body = JMail.Body & brugernavn
JMail.Body = JMail.Body & " er: <b>"
JMail.Body = JMail.Body & rs("kode")
JMail.Body = JMail.Body & "</b>.."
JMail.Body = JMail.Body & vbcrlf
JMail.Body = JMail.Body & vbcrlf
JMail.Body = JMail.Body & "Vi er glade for at kunne hjælpe! :)"
JMail.Body = JMail.Body & vbcrlf
JMail.Body = JMail.Body & "Med venlig hilsen"
JMail.Body = JMail.Body & vbcrlf
JMail.Body = JMail.Body & "HH-Media.dk"
JMail.Body = JMail.Body & vbcrlf
JMail.Body = JMail.Body & vbcrlf
JMail.Body = JMail.Body & "<i>Denne mail kan ikke besvares!</i>"
JMail.Silent = True
If Not JMail.Execute Then
Response.Write "Fejl: #" & JMail.ErrorCode & "; " & JMail.ErrorMessage
Else
Response.Write "Dit kodeord blev sendt til: " & rs("mail") & ""
End If
rs.MoveNext
Loop
Set JMail = Nothing
rs.Close
Set rs = Nothing
%>
<%
End If
%>
</body>
</html>
