JMail melder fejl
Jeg har tidligere brugt JMail til at sende mails med på mine hjemmesider, dog fra et andet domæne (samme server). Men nu kan jeg simpelthen ikke få det til at virke.Jeg bruger Web10.dk til at hoste siderne, og de har JMail installeret på alle deres Win Servere.
Så snart jeg sætter koden ind til JMail melder siden fejl!
Nogen der kan se jeg laver nogen fejl?? Jeg kan nemlig ikke, men man kan jo se sig blind på den slags!
Jeg bruger følgende kode:
If Session("id") <> "" Then
Set rsBruger = Conn.Execute("SELECT * FROM tankspasser_brugere WHERE id = " & Session("id"))
strNavn = rsBruger("navn")
strEmail = rsBruger("email")
intLoennr = rsBruger("brugernavn")
End If
If Request.QueryString("action") = "Send_kommentar_mail"
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "localhost"
JMail.Sender = "Webmaster@TankSpasser.dk"
JMail.Subject = "Kommentar fra TankSpasser.dk"
JMail.Body = "Hej Webmaster" & chr(10) & "Der er sendt et indlæg fra TankSpasser.dk, du kan se det nedenfor:" & chr(10) & chr(10) & Request.Form("loennummer") & " " & Request.Form("navn") & chr(10) & Request.Form("email") & chr(10) & chr(10) & Request.Form("kommentar")
JMail.AddRecipient "Webmaster@MaBoNi.dk"
JMail.Execute
Set JMail = Nothing
Session("temp_tekst") = "Tak for dit bidrag!<br><br>Jeg har nu modtaget din kommentar, og jeg vil vende tilbage hurtigst muligt.<br><br>Venlig hilsen<br> Martin Bonde<br><br>"
End If
Response.Write "<form name=""form"" method=""post"" action=""" & LCase(Request.ServerVariables("SCRIPT_NAME")) & "?page=kontakt&action=Send_kommentar_mail"">" & _
"<table class=""tekst_normal"" border=""0"" width=""520"">" & _
"<tr>" & _
"<td width=""20""> </td>" & _
"<td width=""120""> </td>" & _
"<td width=""auto""> </td>" & _
"</tr>" & _
"<tr>" & _
"<td> </td>" & _
"<td colspan=""2"" class=""tekst_fed"">Kontakt!</td>" & _
"</tr>" & _
"<tr>" & _
"<td> </td>" & _
"<td valign=""top"" colspan=""2"">Hvis du har forslag, kritik, kommentare eller bare mener at du også burde være medlem så benyt nedenstående fomular til at kontakte mig.<br>Da jeg jo arbejder hårdt ved siden af denne side, kan jeg ikke garantere at jeg vender tilbage lige med det sammen, men skal gøre et ihærdigt forsøg ;-)</td>" & _
"</tr>" & _
"<tr>" & _
"<td valign=""top"" colspan=""3"">" & _
"<table class=""tekst_normal"" border=""0"" width=""520"">" & _
"<tr>" & _
"<td width=""20""> </td>" & _
"<td width=""120""> </td>" & _
"<td width=""auto""> </td>" & _
"</tr>" & _
"<tr>" & _
"<td> </td>" & _
"<td colspan=""2""><span style=""color: #FF0000;font-weight: bolder;"">" & Session("temp_tekst") & "</span></td>" & _
"</tr>" & _
"<tr>" & _
"<td></td>" & _
"<td>Løn nummer:</td>" & _
"<td><input class=""input_box"" type=""text"" name=""loennummer"" value=""" & intLoennr & """></td>" & _
"</tr>" & _
"<tr>" & _
"<td></td>" & _
"<td>Navn:</td>" & _
"<td><input class=""input_box"" type=""text"" name=""navn"" value=""" & strNavn & """></td>" & _
"</tr>" & _
"<tr>" & _
"<td></td>" & _
"<td>Email:</td>" & _
"<td><input class=""input_box"" type=""text"" name=""email"" value=""" & strEmail & """></td>" & _
"</tr>" & _
"<tr>" & _
"<td></td>" & _
"<td>Kommentar:</td>" & _
"<td><textarea cols=""67"" rows=""6"" name=""kommentar"" class=""input_box""></textarea></td>" & _
"</tr>" & _
"<tr>" & _
"<td colspan=""3"" align=""center""><input type=""reset"" name=""reset"" value=""Reset Formular"" class=""input_box""> <input class=""input_box"" type=""button"" value=""Send Formular"" onclick=""checkform2()""></td>" & _
"</tr>" & _
"</table>" & _
"</td>" & _
"</tr>" & _
"</table>" & _
"</form>"
