<% Set rs = Conn.Execute("SELECT Members.M_Email,Members.M_Name FROM SubOnUsers INNER JOIN Members ON SubOnUsers.U_ID = Members.M_ID WHERE SubOnUsers.H_ID ="& h_id & " and not U_ID="& session("Userid")) if not rs.eof then set mailto = RS(0) set Subname = RS(1) end if DO while not rs.EOF StrUrl = ""& StrLan36 &"" StrUlrNoHtml = ""& StrHome &"gateway.asp?strUrl=subject.asp?S_id="& s_id &"&h_id="& h_id &"&pageid=2" select case lcase(strMailMode) case "jmail" Set JMail = Server.CreateObject("JMail.SMTPMail") on error resume next JMail.ServerAddress = StrMailserveradress JMail.AddRecipient mailto JMail.Sendername = StrAuthor JMail.Sender = StrAuthorEmail JMail.Subject = "Subscription [A new reply]" if HtmlFormat = 0 then JMail.ContentType = "text/html" Jmail.AppendText "" Jmail.AppendText ""& StrLan33 &" " & Subname & "
" Jmail.AppendText "There´s been a new post in the forum where you have your subscription.
" Jmail.AppendText "With the headline: "& R_Headline &"
" Jmail.AppendText "________________________________
" Jmail.AppendText ""& StrLan20 &" is " & StrUrl & "

" Jmail.AppendText ""& StrLan37 &":
" & StrUlrNoHtml & "
" Jmail.AppendText "________________________________" &"

" Jmail.AppendText ""& StrLan38 &", "& StrTitle & "
" Jmail.AppendText StrHome & "
" elseif HtmlFormat = 1 then Jmail.AppendText ""& StrLan33 &" " & Subname & vbCrLf Jmail.AppendText "There´s been a new post in the forum where you have your subscription."& vbCrLf & vbCrLf Jmail.AppendText "With the headline: "& R_Headline & vbCrLf Jmail.AppendText "________________________________"& vbCrLf Jmail.AppendText ""& StrLan58 &": "& vbCrLf & StrUlrNoHtml & vbCrLf Jmail.AppendText "________________________________"& vbCrLf & vbCrLf Jmail.AppendText ""& StrLan38 &", "& StrTitle & vbCrLf Jmail.AppendText "" & StrHome & "" JMail.Priority = 3 end if JMail.execute Set JMail = Nothing case "cdonts" strBody = StrLan33 &" " & Subname & vbCrLf &_ "There´s been a new post in the forum where you have your subscription." & vbCrLf &_ "With the headline"& R_Headline & vbCrLf &_ "________________________________"& vbCrLf &_ StrLan58 &": " & vbCrLf & StrUlrNoHtml & vbCrLf &_ "________________________________"& vbCrLf & vbCrLf &_ StrLan38 &", "& StrTitle & vbCrLf &_ StrHome strBodyHtml = "" &_ ""& StrLan33 &" " & Subname & "
" &_ "There´s been a new post in the forum where you have your subscription.
" &_ "With the headline: "& R_Headline & "
" & vbCrLf &_ "________________________________
" &_ ""& StrLan20 &" is " & StrUrl & "

" &_ ""& StrLan37 &"
" & StrUlrNoHtml & "
" &_ "________________________________" &"

" &_ ""& StrLan38 &", "& StrTitle & "
" &_ StrHome & "
" Set ObjMail = Server.CreateObject("CDONTS.NewMail") on error resume next ObjMail.FROM = StrAuthorEmail ObjMail.TO = mailto ObjMail.Subject = "Subscription [A new reply]" if HtmlFormat = 0 then ObjMail.BodyFormat = 0 ObjMail.MailFormat = 0 ObjMail.Body = strBodyHtml elseif HtmlFormat = 1 then ObjMail.BodyFormat = 1 ObjMail.MailFormat = 1 ObjMail.Body = strBody end if ObjMail.Importance = 1 ObjMail.Send Set ObjMail= Nothing end select rs.moveNext loop rs.close %>