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

DON'T USE THIS PAGE. NOT UPDATED

Kosher by Design, Lightens Up - New Kosher Cookbook

On Nov. 17th, Susie Fishbein is releasing her sixth volume in the celebrated Kosher by Design cookbook series. Crafted with your good health in mind, Kosher by Design Lightens Up is a gorgeous culinary guide, bursting with easy-to-do ideas for eating and feeling better. This cookbook teaches healthy cooking and food-combining techniques, with special commentary by nutritional expert Bonnie Taub-Dix, national spokesperson for the American Dietetic Association. You’ll find fabulous foods for healthier living, many with an international twist such as: Argentinean Bison Steak, Korean Beef Kim Chee Skewers, Merguez Sausage on Whole Wheat Couscous, Chicken Tikka Masala, Lebanese Salad, Greek Farro Salad, Mexican Citrus Salad, Thai Chicken Soup, Japanese Udon Noodle Soup, a Greek Fritta Ring, and Tangy Mediterranean Vegetables. Susie says, “These nutritious recipes are easy to integrate into your everyday menus. If you’re looking to migrate into a better way of eating and living, you’ll find delicious options here.”


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