JMail sender ingen mail??
Jeg har fået oplyst denne formular, men dem sender ikke mails vidre.Er der nogen som kan se hvad problemer er?
Min udbyder er http://vendsyssel-dataflint.dk og jeg sender maile gennem her: mail.tele.dk
<table width="100%" border="0" cellpadding="0" cellspacing="1">
<tr>
<td> <form name="form1" method="post" action="mail.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Dit
navn</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><br>
</strong></font> <input name="fraNavn" type="text" class="loginform2" id="fraNavn3" size="35"></td>
</tr>
<tr>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Din
e-mail</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><br>
</strong></font> <input name="fra" type="text" class="loginform2" id="fra" size="35"></td>
</tr>
<tr>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Emne</font><br>
<input name="emne" type="text" class="loginform2" id="emne" size="35"></td>
</tr>
<tr>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Besked</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><br>
</strong></font> <textarea name="Tekst" cols="37" rows="5" class="loginform2" id="Tekst"></textarea></td>
</tr>
<tr>
<td> <input type="submit" name="Submit2" class="loginform2" value="Send"></td>
</tr>
</table></td>
</tr>
</table>
</form></td>
</tr>
</table>
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" then
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = request.form("fraMail")
msg.FromName = request.form("fraNavn")
msg.AddRecipient "admin@dirch-passer.dk"
msg.Subject = request.form("emne")
msg.Body = request.form("tekst")
if not msg.Send("mail.tele.dk") then
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write msg.log
else
Response.Write "Mailen er korrekt afsendt."
end if
end if
%>
</body>
</html>
