Jmail sender ikke tekst
jeg sidder og pusler med et script, hvor jeg forsøger på at få scriptet til at sende en mail, når der er skrevet en kommentar.Scriptet sender godt en mail, som det skal, men der kommer ikke noget tekst med ud over dette:
Der er skrevet en kommentar.
Navn:
besked:
Er der en, der kan hjælpe med at få mit script til at sende tekst med?
<%
strNoname = Request.Form("name")
strTekst = Request.Form("comment")
strTekst = Replace(strTekst, "'", "''")
BadWordArr = Split(BadWords, ",")
BadWord = ""
For BadWordNo=0 To UBound(BadWordArr)
If instr(strTekst, BadWordArr(BadWordNo)) > 0 Then
BadWord = BadWordArr(BadWordNo)
End If
Next
If BadWord <> "" Then
Response.write ("<b>" & BadWord & "</b>"& noBadword &"")
Else
strSQL = "INSERT INTO comments (name, mail, url, comment, [date], ip, blogID, catID) values ('" & strNoname & "', '" & Request.Form("mail") & "', '" & Request.Form("url") & "', '" & strTekst & "', '" & Request.Form("date") & "', '" & Request.Form("ip") & "', '" & Request.Form("blogID") & "', '" & Request.Form("catID") & "')"
objConn.Execute(strSQL)
Call CloseDatabase
Response.Write "<FONT FACE='VERDANA' SIZE='1'>Bemærk: Din kommentar bliver <b>ikke</b> vist før jeg har godkendt din kommentar.</FONT><br>"
' =============================================
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = ""
JMail.Priority = 1
JMail.Sender = ""
JMail.AddRecipientEx "", ""
Jmail.AddRecipientCC ""
Jmail.AddRecipientBCC ""
JMail.Subject = "Der er skrevet en kommentar.."
JMail.Body = "<FONT FACE='VERDANA' SIZE='1'>Der er skrevet en kommentar.<br><b>Navn:</b> " & name & "<br><b>besked: </b>" & comment
JMail.Execute
Set JMail = Nothing
End If
%>
