<%@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


Oorah's Designer Sukkahs


Oorah's Designer SukkahsHave a uniquely beautiful Succos with the world’s most unique Succahs. Oorah's Designer Succash are the latest, innovative way to take this special mitzvah to a whole new level. And, when you buy a Designer Succah for your family, Oorah will give a succah to a Jewish family that would otherwise not have one. It’s two beautiful mitzvos in one! You and your guests will love the eye-pleasing, artistic look of your Succah, and an Oorah family will love having the chance to sit beneath the stars and feel the incomparable joy of their first real Succos. Be unique, be ahead of the crowd, and be among those who show they care about their fellow Jews.

• Durable materials, galvanized metal
• 30-minute Easy Lock set-up, no tools required
• Sturdy center supports and Mehadrin straps
• YKK zippered windows and screened door
• Compact storage in designer case
• Available in large sizes

Find out More About 'The Latest in Succas'...>>

 
 
<% 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 %>