Jmail
Hvorfor virlker dette ikke?<form method=\"POST\" action=\"?mail=send\">
<div align=\"center\">
<center>
<table border=\"0\" width=\"275\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"176\"><font face=\"Tahoma\" size=\"2\"><b>Din Email:</b></font></td>
<td width=\"204\"><p align=\"center\"><input type=\"text\" name=\"fra\" size=\"42\"></td>
</tr>
<tr>
<td width=\"176\"><font face=\"Tahoma\" size=\"2\"><b>Emne:</b></font></td>
<td width=\"204\">
<p align=\"center\"><input type=\"text\" name=\"emne\" size=\"42\"></td>
</tr>
<tr>
<td width=\"176\" valign=\"top\"><font face=\"Tahoma\" size=\"2\"><b>Spørgsmål:</b></font></td>
<td width=\"204\"><textarea rows=\"5\" name=\"besked\" cols=\"36\"></textarea></td>
</tr>
<tr>
<td width=\"363\" valign=\"top\" colspan=\"2\">
<p align=\"center\"><input type=\"submit\"
value=\"Send\" name=\"send\"></td>
</tr>
</table>
</center>
</div>
<p> </p>
<p> </p>
</form>
<% if Request.QueryString(\"mail\") = \"send\" then %>
<%
Dim objRS_Program
Set objRS_Program = Server.CreateObject (\"ADODB.Recordset\")
Dim objJMail
Set objJMail = Server.CreateObject(\"JMail.SMTPMail\")
objJMail.ContentType = \"text/html\"
objJMail.ServerAddress = \"mail.domain.dk\"
objJMail.Priority = 1
objJMail.Sender = Request.Form(\"fra\")
objJMail.AddRecipientEx \"terkild@terkild.net\", \"Terkild\"
objJMail.Subject = Request.Form(\"emne\")
objJMail.Body = Request.Form(\"besked\")
objJMail.Execute
Set objJMail = Nothing
Set objRS_Program = Nothing
%>
<% end if %>
Den kommer med denne fejl:
jmail.SMTPMail error \'8000ffff\'
The message was undeliverable. All servers failed to receive the message
/porsche/Kontakt.asp, line 46
