<%


Function SendNotification_email (firstname, lastname, permaddress, city, yourstate, zip, country, homephone, cellphone, email, birthdate, countrybirth, citizenship, fathersname, fathersaddress, fhomephone, fworkphone, fcellphone, mothersname, mothersaddress, mhomephone, mworkphone, mcellphone, married, divorced, other, otherspecify, amarried, adivorced, aother, aotherspecify, numchildren, childages, numcollege, adopted, jewish, notjewish, converted,  expconversion, reform, orthodox, unafilliated, otherreligion, expreligion, congname, congaddress, congcity, congstate, congzip, namerabbi, rabbiphone, jewishorg,  expjewishorg, posorg, sports, hobbies, language, emergname, emergphone, emergcell, emergwphone, emergemail, medissues, medicalissues, psycho, physchodisorder, allergies, submitl, beneficiary)

	'Set up mailing object
	Dim Mailer, body
	set Mailer=server.createobject("SMTPsvg.Mailer")
	Mailer.RemoteHost = const_Mailer_remoteHost

	Mailer.FromName = ""
	Mailer.FromAddress = "delete@aish.com"   
   
   	Mailer.Subject = "Application form for Gem Learning Experience"

	Mailer.AddRecipient "","sgoldberg@aish.com"
	Mailer.AddRecipient "","neshamah@012.net.il"
	
	
	'mailer.addrecipient "","dlevine@aish.com"   
		'for debug
		'Mailer.AddCC "","csorscher@aish.com"

	
	Mailer.ContentType = "text/plain"
	
	body = 	"-------------------------------" & VBCrLf & _
				
		"Personal Information:" & VBCrLf & _
		"-------------------------------" & VBCrLf & _
		"first name: " & firstname & VBCrLf & _
		"last name: " & lastname & VBCrLf & _
		"Permanent Address: " & permaddress & VBCrLf & _
		"City: " & city & VBCrLf & _
		"State: " & yourstate & VBCrLf & _
		"Zip: " & zip & VBCrLf & _
		"Country: " & country & VBCrLf & _
		"Home Phone: " & homephone & VBCrLf & _
		"Cell Phone: " & cellphone & VBCrLf & _
		"email: " & email & VBCrLf & _
		"Birthdate: " & birthdate & VBCrLf & VBCrLf & _		
		"Country of Birth:" & countrybirth & VBCrLf & _
		"Citizenship: " & citizenship & VBCrLf & _
		"Fathers Name:" & fathersname & VBCrLf & _
		"Fathers Address:" & fathersaddress & VBCrLf & _
		"Fathers Home Phone:" & fhomephone & VBCrLf & _
		"Fathers Work Phone:" & fworkphone & VBCrLf & _
		"Fathers Cell Phone:" & fcellphone & VBCrLf & _
		"Mothers Name:" & mothersname & VBCrLf & _
		"Mothers Address:" & mothersaddress & VBCrLf & _ 
		"Mothers Home Phone" & mhomephone & VBCrLf & _ 
		"Mothers Work Phone:" & mworkphone & VBCrLf & _ 
		"Mothers Cell Phone:" & mcellphone & VBCrLf & _ 
		"Parents Married:" & married & VBCrLf & _ 
		"Parents Divorced:" & divorced & VBCrLf & _ 
		"Parents Other:" & other & VBCrLf & _ 
		"Applicant Married:" & amarried & VBCrLf & _ 
		"Applicant Divorced:" & adivorced & VBCrLf & _ 
		"Applicant Other:" & aother & VBCrLf & _ 
		"Specify Other:" & otherspecify & VBCrLf & _
		"Number of Children: " & numchildren & VBCrLf & _
		"Ages of Children: " & childages & VBCrLf & _
		"Number of children in college: " & numcollege & VBCrLf & _
		"Adopted:" & adopted & VBCrLf & _ 
		"Birth Mother Jewish:" & jewish & VBCrLf & _ 
		"If no please explain:" & notjewish & VBCrLf & _ 
		"Someone Converted:" & converted & VBCrLf & _ 
		"If yes-explain:" & expconversion & VBCrLf & _ 
		"Reform:" & reform & VBCrLf & _ 
		"Orthodox:" & orthodox & VBCrLf & _ 
		"Unafilliated:" & unafilliated & VBCrLf & _ 
		"Other Religion:" & other & VBCrLf & _ 
		"If other-explain:" & expreligion & VBCrLf & _ 
		"Name of Congregation:" & congname & VBCrLf & _ 
		"Congregation Address:" & congaddress & VBCrLf & _ 
		"Congregation City:" & congcity & VBCrLf & _ 
		"Congregation State:" & congstate & VBCrLf & _ 
		"Congregation Zip:" & congzip & VBCrLf & _ 
		"Name of Rabbi:" & namerabbi & VBCrLf & _ 
		"Rabbi's Phone Number:" & rabbiphone & VBCrLf & _ 
		"Part of Jewish Org:" & jewishorg & VBCrLf & _ 
		"If yes-explain:" & expjewishorg & VBCrLf & _ 
		"Position/honors attained at org:" & posorg & VBCrLf & _ 
		"Sports:" & sports & VBCrLf & _
		"Hobbies:" & hobbies & VBCrLf & _
		"Languages known:" & language & VBCrLf & _
		"Emergency Contact:" & emergname & VBCrLf & _
		"Emergency Phone:" & emergphone & VBCrLf & _
		"Emergency Cell:" & emergcell & VBCrLf & _
		"Emergency Email:" & emergemail & VBCrLf & _
		"Medical Issues:" & medissues & VBCrLf & _
		"If yes-explain:" & medicalissues & VBCrLf & _
		"Treated for Psycho Disorder:" & psycho & VBCrLf & _
		"Allergies:" & allergies & VBCrLf 
		

	Mailer.BodyText = body

	if Mailer.SendMail then
		SendNotification_email = ""
	else
		dim error
		error = Mailer.Response
		if error = "" then error = "Unknown"
		SendNotification_email = error
	end if
End Function


%>