JMail problem - ret kringlet....
Jeg har et meget URGENT problem med en brevkassefunktion på mit website. Jeg kan simpelthen ikke få denne JMail til at sende mailen afsted. Jeg har mit webhotel hos Azero og alle mine andre Jmail funktioner virker fint på samme webside, så jeg ved at fejlen ikke ligger hos Azero men i scriptet. Jeg får denne fejl:jmail.SMTPMail error '8000ffff'
The message was undeliverable. All servers failed to receive the message
/ekspert/answer.asp, line 69
Her kommer JMail-delen af scriptet
<%
if request("mode") = "send" then
Function clearBody(bodyTxt)
chekBody = True
'fjerner alle html tags
Do While chekBody = True
startBody = Instr(1,bodyTxt,"<")
slutBody = Instr(startBody+1,bodyTxt,">")
If startBody > 0 Then
bodyTxt = Left(bodyTxt,startBody-1) & Mid(bodyTxt,slutBody+1,Len(bodyTxt))
Else
chekBody = False
End If
Loop
clearBody = bodyTxt
End Function
bodyTxt = request("svar")
bodyTxt = clearBody(bodyTxt)
svar = bodyTxt
SQL = "UPDATE spm SET SVAR = '"& Replace(svar,"'", "''") &"' WHERE (ID ="& request("spmid") &")"
conn.execute (SQL)
SQL1 = "SELECT * FROM spm WHERE id = " & request("spmid")
conn.execute( SQL1 )
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "websmtp.minwebside.dk"
JMail.Sender = "admin@minwebside.dk"
JMail.SenderName = "minwebside.dk"
JMail.Subject = "Dit spørgsmål er nu besvaret"
JMail.AddRecipient email
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
jmail.charset="iso-8859-1"
JMail.Body = "Dette er overskrift" & vbcrlf & vbcrlf &_
"Vi ønsker dig mange gode henvisninger - De bedste hilsner http://www.minwebside.dk" & vbCrLf
JMail.Execute
Set JMail = Nothing
%>
