% response.buffer= true %> <% cat = "qanda" title="Ask the Rabbi" %> <% If Not IsEmpty(Request.Form) Then errors=0 errEmail=emailErr(Request("Email")) if errEmail <> NoErrors OR reqEmail=SkippedField then errors=1 end if if errors=0 then if Request.Form("Rabbi")="TF" then Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.torah.org" JMail.Sender = Request.Form("Email") JMail.SenderName = Request.Form("Name") JMail.Subject = Request.Form("Subject") JMail.AddRecipient "torah-forum@torah.org" JMail.AddRecipientbcc "rklugman@torah.org" JMail.AddRecipientbcc "lazewnik@torah.org" JMail.AddRecipientbcc "menken@torah.org" ' Request.Form JMail.Body = Request.Form("Question") ' JMail.AppendText "Name: " & Request.Form("Name") & vbcrlf ' JMail.AppendText "E-mail: " & Request.Form("Email") & vbcrlf ' JMail.AppendText "Question: " & & vbCrLf ' 1 - highest priority (Urgent) ' 3 - normal ' 5 - lowest JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") ' Must make sure that IUSR_???? has access to the following files. ' Send it... JMail.Execute JMail.Sender = Request.Form("Email") JMail.SenderName = Request.Form("Name") JMail.Subject = "New Subscriber" Jmail.ClearRecipients JMail.AddRecipient "majordomo@torah.org" JMail.AddRecipientbcc "rklugman@torah.org" JMail.Body = "" JMail.AppendText "subscribe lifeline" & vbCrLf JMail.AppendText "subscribe torah-forum" & vbCrLf JMail.Execute elseif Request.Form("Rabbi")="BMD" then Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.torah.org" JMail.Sender = Request.Form("Email") JMail.SenderName = Request.Form("Name") JMail.Subject = Request.Form("Subject") JMail.AddRecipient "bais-medrash@torah.org" JMail.AddRecipientbcc "rklugman@torah.org" JMail.AddRecipientbcc "lazewnik@torah.org" JMail.AddRecipientbcc "menken@torah.org" ' Request.Form JMail.Body = Request.Form("Question") ' JMail.AppendText "Name: " & Request.Form("Name") & vbcrlf ' JMail.AppendText "E-mail: " & Request.Form("Email") & vbcrlf ' JMail.AppendText "Question: " & Request.Form("Question") & vbCrLf ' 1 - highest priority (Urgent) ' 3 - normal ' 5 - lowest JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") ' Must make sure that IUSR_???? has access to the following files. ' Send it... JMail.Execute JMail.Sender = Request.Form("Email") JMail.SenderName = Request.Form("Name") JMail.Subject = "New Subscriber" Jmail.ClearRecipients JMail.AddRecipient "majordomo@torah.org" JMail.AddRecipientbcc "" Jmail.Body = "" JMail.AppendText "subscribe lifeline" & vbCrLf JMail.AppendText "subscribe bais-medrash" & vbCrLf JMail.Execute else ' Request.Form("Rabbi")="OR" then Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.torah.org" JMail.Sender = Request.Form("Email") JMail.SenderName = Request.Form("Name") JMail.Subject = "Ask the Rabbi - " & Request.Form("Subject") JMail.AddRecipient "rabbi@torah.org" JMail.AddRecipientbcc "rklugman@torah.org" JMail.AddRecipientbcc "lazewnik@torah.org" JMail.AddRecipientbcc "menken@torah.org" ' Request.Form JMail.Body = "" & vbcrlf JMail.AppendText "Name: " & Request.Form("Name") & vbcrlf JMail.AppendText "E-mail: " & Request.Form("Email") & vbcrlf JMail.AppendText "Subject: " & Request.Form("Subject") & vbCrLf & vbCrLf JMail.AppendText "Question: " & Request.Form("Question") & vbCrLf ' 1 - highest priority (Urgent) ' 3 - normal ' 5 - lowest JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") ' Must make sure that IUSR_???? has access to the following files. ' Send it... JMail.Execute end if Set JMail = Nothing end if end if %>
<% end if %>