Oorah Cookbook

<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_editAction If (CStr(Request("MM_insert")) = "form1") Then dim amount1 amount1=(Request.Form("amount")) Session("DonationAmt1") = amount1 Session("DonationState")= Request.Form("state") Session("DonationZip")= Request.Form("zip") Call SendEmail()'send e-mail to customer Response.Redirect("donationthankyou.asp") End If %> Oorah Cookbook

Visiting Day at Oorah's Camps

Why is Visiting Day at GirlZone and BoyZone different from all other Visiting Days? The answer is that for Oorah, Visiting Day is not just a chance for parents to receive a first-hand look at their child’s camp experience. It’s Judgment Day. If Oorah is able to open the parents’ hearts to the warmth, happiness and security that their children feel in the camp’s positive Torah environment, it can make all the difference in the world to the children’s futures. Kids who are already in yeshiva find their parents more enthusiastic and supportive, perhaps even ready to take on more mitzvos at home. And for public school kids, a positive camp experience can open the door to yeshiva enrollment. So Oorah rolls out the red carpet – serving up loads of delicious food, special programs and most of all, smiles, smiles and more smiles. Miracles still happen in the mountains!

View more BoyZone Photos >>

<% Sub SendEmail() dim fld, objEmailBus, strFromEmail, strToEmail, strTitle, strMsgInfo, sMsg set objEmailBus = New EmailBus strFromEmail = "oorahkr@aol.com" strToEmail = "oorahkr@aol.com" strTitle = "Oorah Donation" strMsgInfo = strMsgInfo & "------------------------------" & vbCRLF strMsgInfo = strMsgInfo & "Contact Info:" & vbCRLF strMsgInfo = strMsgInfo & "------------------------------" & vbCRLF strMsgInfo = strMsgInfo & "Name: " & Request.Form("first_name") & " " & Request.Form("last_name") & vbCRLF strMsgInfo = strMsgInfo & "Address: " & Request.Form("address") & vbCRLF strMsgInfo = strMsgInfo & "C/S/Z: " & Request.Form("city") & ", " & Request.Form("state") & " " & Request.Form("zip") & vbCRLF strMsgInfo = strMsgInfo & "Phone: " & Request.Form("phone") & vbCRLF strMsgInfo = strMsgInfo & "Email: " & Request.Form("email") & vbCRLF & vbCRLF strMsgInfo = strMsgInfo & "------------------------------" & vbCRLF strMsgInfo = strMsgInfo & "Payment Info:" & vbCRLF strMsgInfo = strMsgInfo & "------------------------------" & vbCRLF strMsgInfo = strMsgInfo & "Card Type: " & Request.Form("cardtype") & vbCRLF '== send order info email to Oorah with form info strMsgInfo = "The following auction information was submitted:" & vbCRLF & vbCRLF & strMsgInfo strMsgInfo = strMsgInfo & "Card #: " & Request.Form("card_number") & vbCRLF strMsgInfo = strMsgInfo & "Expire Date: " & Request.Form("exp_month") & "/" & Request.Form("exp_year") & vbCRLF strMsgInfo = strMsgInfo & "CVV: " & Request.Form("security") & vbCRLF strMsgInfo = strMsgInfo & "Amount: " & Request.Form("amount") & vbCRLF & vbCRLF strMsgInfo = strMsgInfo & "Message sent on " & Date & " at " & Time objEmailBus.Send strFromEmail, strToEmail, strTitle, 1, 1, strMsgInfo '== send confirmation email to customer sMsg = "Oorah thanks you for your generous donation." & vbCRLF & vbCRLF sMsg = sMsg & vbCRLF & "With your contribution you enable us to continue our programs of reconnecting Jewish youth with their precious Torah heritage." & vbCRLF sMsg = sMsg & vbCRLF & "If you have any questions, please contact us at 800-21-oorah." & vbCRLF & "Sincerely,"& vbCRLF & "Oorah" objEmailBus.Send strFromEmail, Request.Form("email"), strTitle, 1, 1, sMsg End Sub 'SendEmail '-------------------------------------------------------------------------------- class EmailBus public sub Send(strFrom, strTo, strSubject, strImportance, strBodyFormat, strBody) dim objMsg, mailerr Set objMsg = Server.CreateObject("CDONTS.NewMail") objMsg.From = strFrom objMsg.To = strTo objMsg.Subject = strSubject objMsg.BodyFormat = strBodyFormat objMsg.MailFormat = strBodyFormat objMsg.Body = strBody objMsg.Importance = strImportance mailerr = objMsg.Send() Set objMsg = Nothing end sub '==Send end class 'EmailBus %>