<%
Function notifyMail(PARENTMESSAGE,THREADPARENT,AUTHORNAME,TOPIC,COMMENTS,AUTHOREMAIL)
Set rsEM = Server.CreateObject("ADODB.Recordset")
mySQL = "Select * from forum_messages where id=" & int(PARENTMESSAGE)
rsEM.Open mySQL, conn ,1,3
strParentMessage = ucase(rsEM("Topic")) & " : " & rsEM("comments")
strParentEmail = rsEM("AuthorEmail")
strParentName = rsEM("AuthorName")
strParentDatePosted = rsEM("DatePosted")
rsEM.Close
mySQL = "Select * from forum_messages where id=" & int(THREADPARENT)
rsEM.Open mySQL, conn ,1,3
strInitialMessage = ucase(rsEM("Topic")) & " : " & rsEM("comments")
strInitialEmail = rsEM("AuthorEmail")
strInitialDatePosted = rsEM("DatePosted")
strInitialName = rsEM("AuthorName")
rsEM.Close
COMMENTS = replace(COMMENTS,"
","")
strInitialMessage = replace(strInitialMessage,"
","")
strParentMessage = replace(strParentMessage,"
","")
Set rsEM = Nothing
body = chr(13) & _
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & chr(13) & _
AUTHORNAME & " replied to your message at " & sitename & "." & chr(13) & _
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & chr(13) & _
chr(13) & _
"AUTHOR: " & AUTHORNAME & chr(13) & _
"TOPIC: " & TOPIC & chr(13) & _
chr(13) & _
"MESSAGE:" & chr(13) & _
COMMENTS & chr(13) & _
chr(13) & _
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & chr(13) & _
chr(13) & _
"In Reply to the Message: [" & strParentDatePosted & "]" & chr(13) & _
"AUTHOR: " & chr(13) & _
strParentName & chr(13) & _
strParentMessage & chr(13) & _
siteurl & "/ShowMessage.asp?ID=" & PARENTMESSAGE & chr(13) & _
chr(13) & _
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & chr(13) & _
chr(13) & _
"Initial Topic of this discussion: [" & strInitialDatePosted & "]" & chr(13) & _
"AUTHOR: " & chr(13) & _
strInitialName & chr(13) & _
strInitialMessage & chr(13) & _
siteurl & "/ShowMessage.asp?ID=" & THREADPARENT & chr(13) & _
chr(13) & _
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & chr(13) & _
sitename & chr(13) & _
siteurl & chr(13) & _
siteEmail
subject = "[ " & sitename & " ] Reply to your discussion message."
SendMail strInitialEmail, subject, body, siteEmail
if PARENTMESSAGE<>THREADPARENT then SendMail strParentEmail, subject, body, siteEmail
End function
Function SendMail(toEmail, subject, body, fromEmail)
On Error resume next
Dim smtp
Set smtp = CreateObject("CDONTS.NewMail")
smtp.Send fromEmail, toEmail, subject, body, 1
Set smtp = Nothing ' not allowed to reuse it for another message
If Err.number > 0 then
Set smtp = " ERROR : " &Err.number & " - > " & Err.description
else
SendMail = ""
End If
End Function
%>