<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'varSubject = Request.form("Subject")
'varSubjectOther = Request.form("SubjectOther")
'varComments = Request.form("Comments")
'varName = Request.form("Name")
'varEmail = Request.form("Email")
'varTelNo = Request.form("TelNo")
'varFax = Request.form("Fax")
'varCompany = Request.form("Company")
SELECT CASE request.QueryString("page")
case "letstalk"
varName = request.Form("Name")
varAddress = request.Form("address")
varPhone = request.Form("Phone")
varEmail = request.Form("email")
varComsSugs = request.Form("Comments_and_Suggestions")
set newmail = server.CreateObject("CDONTS.NEWMAIL")
newmail.From = varEmail
'newmail.To = "eugenio_caparas@hotmail.com"
newmail.To = "marcom@earthandstyle.com"
'newmail.Cc = "roanne.estacio@vipertechonline.com"
newmail.Subject = "Let's Talk"
strbody = ""& vbcrlf
strbody = strbody & "LET'S TALK (COMMENTS AND SUGGESTIONS)
"& vbcrlf
strbody = strbody & "Name: "&varName&"
" & vbcrlf
strbody = strbody & "Address: "&varAddress&"
" & vbcrlf
strbody = strbody & "Contact Number: "&varPhone&"
" & vbcrlf
strbody = strbody & "E-mail Address: "&varEmail&"
" & vbcrlf
strbody = strbody & "Comments & Suggestions:
"&varComsSugs&"
" & vbcrlf
strbody = strbody & ""& vbcrlf
case "buyerinfo"
varEmail = request.Form("email")
set newmail = server.CreateObject("CDONTS.NEWMAIL")
newmail.From = varEmail
'newmail.To = "eugenio_caparas@hotmail.com"
newmail.To = "pagibig@earthandstyle.com;service@earthandstyle.com"
'newmail.Cc = "roanne.estacio@vipertechonline.com"
newmail.Subject = "Customer Profile/Account Update"
strbody = ""& vbcrlf
strbody = strbody & "CUSTOMER PROFILE/ACCOUNT UPDATE
"& vbcrlf
varName = request.Form("YOUR_NAME")
strbody = strbody & "Name: "&varName&"
" & vbcrlf
varAltName = request.Form("ALTERNATIVE_NAME")
strbody = strbody & "Alternative Name: "&varAltName&"
" & vbcrlf
varPhone = request.Form("CONTACT_NUMBER")
strbody = strbody & "Contact Number: "&varPhone&"
" & vbcrlf
varTypInq = request.Form("TYPE_OF_INQUIRY")
strbody = strbody & "Type of Inquiry: "&varTypInq&"
" & vbcrlf
varElabInq = request.Form("Please_elaborate_on_your_inquiry")
strbody = strbody & "Please elaborate your inquiry: "&varElabInq&"
" & vbcrlf
varTIN = request.Form("TIN")
strbody = strbody & "Your Tax Identification Number: "&varTIN&"
" & vbcrlf
SELECT CASE request.Form("PAG_IBIG_MEMBER")
case "yes"
varPagibigMember = "YES"
case "no"
varPagibigMember = "NO"
END SELECT
strbody = strbody & "Are you a PAGIBIG member?: "&varPagibigMember&"
" & vbcrlf
IF varPagibigMember = "YES" THEN
SELECT CASE request.Form("CONVERT_TO_PAG_IBIG_REM")
case "yes"
varPagibigRem = "YES"
case "no"
varPagibigRem = "NO"
END SELECT
strbody = strbody & "Do you wish to convert to PAG-IBIG REM?: "&varPagibigRem&"
" & vbcrlf
ELSE
SELECT CASE request.Form("AVAIL_OF_PAG_IBIG_LOAN")
case "yes"
varPagibigMemberLoan = "YES"
case "no"
varPagibigMemberLoan = "NO"
END SELECT
strbody = strbody & "Do you wish to avail of a PAG-IBIG loan?: "&varPagibigMemberLoan&"
" & vbcrlf
END IF
varInvestVill = request.Form("INVESTMENT_VILLAGES")
strbody = strbody & "Villages: "&varInvestVill&"
" & vbcrlf
varInvestHome = request.Form("INVESTMENT_HOMES")
strbody = strbody & "Homes: "&varInvestHome&"
" & vbcrlf
varLotNumber = request.Form("LOT_NUMBER")
strbody = strbody & "Lot Number: "&varLotNumber&"
" & vbcrlf
varLotBlockNumber = request.Form("LOT_AND_BLOCK_NUMBER")
strbody = strbody & "Lot & Block Number: "&varLotBlockNumber&"
" & vbcrlf
varDateOfPurch = request.Form("DATE_OF_PURCHASE")
strbody = strbody & "Date of Purchase: "&varDateOfPurch&"
" & vbcrlf
varDateOfPurch1 = request.Form("DATE_OF_PURCHASE1")
strbody = strbody & "Date of Purchase1: "&varDateOfPurch1&"
" & vbcrlf
varHomeInfoOldAdd = request.Form("HOME_INFO_OLD_ADDRESS")
strbody = strbody & "Home Old Address: "&varHomeInfoOldAdd&"
" & vbcrlf
varOfcInfoOldAdd = request.Form("OFC_INFO_OLD_ADDRESS")
strbody = strbody & "Office Old Address: "&varOfcInfoOldAdd&"
" & vbcrlf
varHomeInfoNewAdd = request.Form("HOME_INFO_NEW_ADDRESS")
strbody = strbody & "Home New Address: "&varHomeInfoNewAdd&"
" & vbcrlf
varOfcInfoNewAdd = request.Form("OFC_INFO_NEW_ADDRESS")
strbody = strbody & "Office New Address: "&varOfcInfoNewAdd&"
" & vbcrlf
varHomeOldPhone = request.Form("HOME_OLD_PHONE_NUMBER")
strbody = strbody & "Old Home Telephone Number: "&varHomeOldPhone&"
" & vbcrlf
varOfcOldPhone = request.Form("OFC_OLD_PHONE_NUMBER")
strbody = strbody & "Old Office Telephone Number: "&varOfcOldPhone&"
" & vbcrlf
varHomeNewPhone = request.Form("HOME_NEW_PHONE_NUMBER")
strbody = strbody & "New Home Telephone Number: "&varHomeNewPhone&"
" & vbcrlf
varOfcNewPhone = request.Form("OFC_NEW_PHONE_NUMBER")
strbody = strbody & "New Office Telephone Number: "&varOfcNewPhone&"
" & vbcrlf
varMobPhone = request.Form("MOBILE_NUMBER")
strbody = strbody & "Mobile Number: "&varMobPhone&"
" & vbcrlf
varEmail = request.Form("email")
strbody = strbody & "E-mail Address: "&varEmail&"
" & vbcrlf
SELECT CASE request.Form("CIVIL_STATUS")
case "single"
varCivStatus = "SINGLE"
case "married"
varCivStatus = "MARRIED"
case "separated"
varCivStatus = "SEPARATED"
case "widowed"
varCivStatus = "WIDOWED"
END SELECT
strbody = strbody & "Civil Status: "&varCivStatus&"
" & vbcrlf
varBirthdate = request.Form("BIRTH_MONTH")&" "&request.Form("BIRTH_DAY")&", "&request.Form("Date_of_Birth_Year")
strbody = strbody & "Date of Birth: "&varBirthdate&"
" & vbcrlf
varNameSpouse = request.Form("NAME_OF_SPOUSE")
strbody = strbody & "Name of Spouse: "&varNameSpouse&"
" & vbcrlf
varSpousePhone = request.Form("CONTACT_NUMBER_SPOUSE")
strbody = strbody & "Contact Number of Spouse: "&varSpousePhone&"
" & vbcrlf
varMoreQuestions = request.Form("MORE_QUESTIONS")
strbody = strbody & "More Questions? Tell us how we can assits you...: "&varMoreQuestions&"
" & vbcrlf
strbody = strbody & ""& vbcrlf
case "refer"
varEmail = request.Form("Email")
set newmail = server.CreateObject("CDONTS.NEWMAIL")
newmail.From = varEmail
'newmail.To = "eugenio_caparas@hotmail.com"
newmail.To = "internalsales@earthandstyle.com"
'newmail.Cc = "roanne.estacio@vipertechonline.com"
newmail.Subject = "Referral Rewards Form"
strbody = ""& vbcrlf
strbody = strbody & "REFERRAL REWARDS FORM
"& vbcrlf
request.Form("Last_Name")
strbody = strbody & "Last Name: "&request.Form("Last_Name")&"
" & vbcrlf
request.Form("First_Name")
strbody = strbody & "First Name: "&request.Form("First_Name")&"
" & vbcrlf
request.Form("Middle_Name")
strbody = strbody & "Middle Name: "&request.Form("Middle_Name")&"
" & vbcrlf
request.Form("Address")
strbody = strbody & "Address: "&request.Form("Address")&"
" & vbcrlf
request.Form("Contact_No")
strbody = strbody & "Contact No.: "&request.Form("Contact_No")&"
" & vbcrlf
request.Form("Email")
strbody = strbody & "E-mail Address: "&request.Form("Email")&"
" & vbcrlf
request.Form("How_did_you_hear_about_us") '*
strbody = strbody & "How did you hear about us?: "&request.Form("How_did_you_hear_about_us")&"
" & vbcrlf
SELECT CASE request.Form("How_did_you_hear_about_us")
CASE "www.EarthandStyle.com"
CASE "My Home Magazine"
CASE "billboard / advertisement"
CASE "TV commercial"
CASE "brochures / flyers"
CASE "family / friends"
strbody = strbody & "Name: "&request.Form("Name_Friends_Family")&"
" & vbcrlf
CASE "agent / broker"
strbody = strbody & "Name: "&request.Form("Name_Agent_Broker")&"
" & vbcrlf
CASE "Earth+Style Customer"
strbody = strbody & "Villages: "&request.Form("VILLAGES")&"
" & vbcrlf
strbody = strbody & "Homes: "&request.Form("HOMES")&"
" & vbcrlf
CASE "Others"
END SELECT
strbody = strbody & "Referral 1:
" & vbcrlf
strbody = strbody & "Name: "&request.Form("Referral1_Name")&"
" & vbcrlf
strbody = strbody & "Contac No.: "&request.Form("Referral1_Contact")&"
" & vbcrlf
strbody = strbody & "Email: "&request.Form("Referral1_Email")&"
" & vbcrlf
strbody = strbody & "Referral 2:
" & vbcrlf
strbody = strbody & "Name: "&request.Form("Referral2_Name")&"
" & vbcrlf
strbody = strbody & "Contac No.: "&request.Form("Referral2_Contact")&"
" & vbcrlf
strbody = strbody & "Email: "&request.Form("Referral2_Email")&"
" & vbcrlf
strbody = strbody & "Referral 3:
" & vbcrlf
strbody = strbody & "Name: "&request.Form("Referral3_Name")&"
" & vbcrlf
strbody = strbody & "Contac No.: "&request.Form("Referral3_Contact")&"
" & vbcrlf
strbody = strbody & "Email: "&request.Form("Referral3_Email")&"
" & vbcrlf
strbody = strbody & ""& vbcrlf
case "hrd"
varEmail = request.Form("email")
set newmail = server.CreateObject("CDONTS.NEWMAIL")
newmail.From = varEmail
'newmail.To = "eugenio_caparas@hotmail.com"
newmail.To = "hrd@earthandstyle.com"
'newmail.Cc = "roanne.estacio@vipertechonline.com"
newmail.Subject = "HRD"
strbody = ""& vbcrlf
strbody = strbody & "APPLICATION FORM
"& vbcrlf
strbody = strbody & "Date of Application: "&request.Form("application_date1")&"
" & vbcrlf
strbody = strbody & "First Choice: "&request.Form("position_applied")&"
" & vbcrlf
strbody = strbody & "Second Choice: "&request.Form("second_choice")&"
" & vbcrlf
strbody = strbody & "How did your hear about us?: "&request.Form("HOW_DID_YOU_HEAR_ABOUT_US")&"
" & vbcrlf
request.Form("HOW_DID_YOU_HEAR_ABOUT_US") '*
SELECT CASE request.Form("HOW_DID_YOU_HEAR_ABOUT_US")
CASE "Classified Ads"
strbody = strbody & "Newspaper: "&request.Form("Classified_Ads")&"
" & vbcrlf
CASE "Executive search firm"
strbody = strbody & "Firm: "&request.Form("Firm")&"
" & vbcrlf
CASE "On-line recruitment websites"
strbody = strbody & "Website: "&request.Form("Website")&"
" & vbcrlf
CASE "family / friends"
strbody = strbody & "Name: "&request.Form("FAMILY_FRIEND_NAME")&"
" & vbcrlf
CASE "referrals"
strbody = strbody & "Name: "&request.Form("REFERAL_NAME1")&"
" & vbcrlf
CASE "others"
strbody = strbody & "Others: "&request.Form("OTHERS")&"
" & vbcrlf
END SELECT
strbody = strbody & "Name(Last Name, First Name, Middle Name): "&request.Form("name")&"
" & vbcrlf
strbody = strbody & "Current Address: "&request.Form("address")&"
" & vbcrlf
strbody = strbody & "Contact No.: "&request.Form("Contact_Number")&"
" & vbcrlf
strbody = strbody & "Mobile Phone No.: "&request.Form("Mobile_number")&"
" & vbcrlf
strbody = strbody & "E-mail: "&request.Form("email")&"
" & vbcrlf
strbody = strbody & "Date of Birth: "&request.Form("birth_mo")&" "&request.Form("birth_day")&", "&request.Form("birth_yr")&"
" & vbcrlf
strbody = strbody & "Country: "&request.Form("country")&"
" & vbcrlf
strbody = strbody & "Gender: "&request.Form("gender")&"
" & vbcrlf
strbody = strbody & "Postal Code: "&request.Form("postal_code")&"
" & vbcrlf
strbody = strbody & "Marital Status: "&request.Form("radiobutton")&"
" & vbcrlf
strbody = strbody & "High School: "&request.Form("high_school")&"
" & vbcrlf
strbody = strbody & "Course/Degree: "&request.Form("hs_course")&"
" & vbcrlf
strbody = strbody & "Period: "&request.Form("hs_period")&"
" & vbcrlf
strbody = strbody & "College: "&request.Form("college")&"
" & vbcrlf
strbody = strbody & "Course/Degree: "&request.Form("college_qualification")&"
" & vbcrlf
strbody = strbody & "Period: "&request.Form("college_period")&"
" & vbcrlf
strbody = strbody & "Postgraduate: "&request.Form("postgrad_school")&"
" & vbcrlf
strbody = strbody & "Course/Degree: "&request.Form("postgrad_qualification")&"
" & vbcrlf
strbody = strbody & "Period: "&request.Form("postgrad_period")&"
" & vbcrlf
strbody = strbody & "Employer's Name: "&request.Form("latest_position1")&"
" & vbcrlf
strbody = strbody & "Position: "&request.Form("skills1")&"
" & vbcrlf
strbody = strbody & "From: "&request.Form("employment_from1")&"
" & vbcrlf
strbody = strbody & "To: "&request.Form("employment_to1")&"
" & vbcrlf
strbody = strbody & "Employer's Name: "&request.Form("latest_position2")&"
" & vbcrlf
strbody = strbody & "Position: "&request.Form("skills2")&"
" & vbcrlf
strbody = strbody & "From: "&request.Form("employment_from2")&"
" & vbcrlf
strbody = strbody & "To: "&request.Form("employment_to2")&"
" & vbcrlf
strbody = strbody & "Employer's Name: "&request.Form("latest_position3")&"
" & vbcrlf
strbody = strbody & "Position: "&request.Form("skills3")&"
" & vbcrlf
strbody = strbody & "From: "&request.Form("employment_from3")&"
" & vbcrlf
strbody = strbody & "To: "&request.Form("employment_to3")&"
" & vbcrlf
strbody = strbody & "Skills/Hobbies: "&request.Form("skills_hobbies")&"
" & vbcrlf
strbody = strbody & "Availability Date: "&request.Form("availabilty_date2")&"
" & vbcrlf
strbody = strbody & "Dear Earth+Style:
" & vbcrlf
strbody = strbody & ""&request.Form("Dear_Earth_and_Style")&"
" & vbcrlf
strbody = strbody & "Resume:
" & vbcrlf
strbody = strbody & ""&request.Form("Paste_Resume")&"
" & vbcrlf
strbody = strbody & ""& vbcrlf
case "subscribe"
varEmail = request.Form("email")
set newmail = server.CreateObject("CDONTS.NEWMAIL")
newmail.From = varEmail
'newmail.To = "eugenio_caparas@hotmail.com"
newmail.To = "marcom@earthandstyle.com"
'newmail.Cc = "roanne.estacio@vipertechonline.com"
newmail.Subject = "My Home Subscription"
strbody = ""& vbcrlf
strbody = strbody & "MY HOME SUBSCRIPTION
"& vbcrlf
strbody = strbody & "First Name: "&request.Form("First_Name")&"
" & vbcrlf
strbody = strbody & "Last Name: "&request.Form("Last_Name")&"
" & vbcrlf
strbody = strbody & "E-mail Address: "&request.Form("email")&"
" & vbcrlf
strbody = strbody & "Phone No.: "&request.Form("Phone")&"
" & vbcrlf
strbody = strbody & "Address: "&request.Form("Address")&"
" & vbcrlf
strbody = strbody & "Gender: "&request.Form("gender")&"
" & vbcrlf
strbody = strbody & "Birthday: "&request.Form("birthday")&"
" & vbcrlf
strbody = strbody & "I want to subscribe: "&request.Form("subscription_period")&"
" & vbcrlf
strbody = strbody & "I want to place an ad: "&request.Form("ad_placement")&"
" & vbcrlf
strbody = strbody & "Product Name: "&request.Form("Product_Name")&"
" & vbcrlf
strbody = strbody & "Company: "&request.Form("Company")&"
" & vbcrlf
strbody = strbody & "Contac No.: "&request.Form("Contact_Number")&"
" & vbcrlf
strbody = strbody & "Comments & Suggestions:
" & vbcrlf
strbody = strbody & ""&request.Form("Comments_and_Suggestions")&"
" & vbcrlf
strbody = strbody & ""& vbcrlf
case "sellinqloc"
varEmail = request.Form("email")
set newmail = server.CreateObject("CDONTS.NEWMAIL")
newmail.From = varEmail
'newmail.To = "eugenio_caparas@hotmail.com"
newmail.To = "SMGnetwork@earthandstyle.com"
'newmail.Cc = "roanne.estacio@vipertechonline.com"
newmail.Subject = "Sellers Inquiry Form Local"
strbody = ""& vbcrlf
strbody = strbody & "SELLERS INQUIRY FORM LOCAL
"& vbcrlf
strbody = strbody & "Position: "&request.Form("POSITION")&"
" & vbcrlf
strbody = strbody & "Date of Application: "&request.Form("DATE_OF_APPLICATION")&"
" & vbcrlf
strbody = strbody & "Other: "&request.Form("OTHER")&"
" & vbcrlf
strbody = strbody & "First Name: "&request.Form("FIRST_NAME")&"
" & vbcrlf
strbody = strbody & "Last Name: "&request.Form("LAST_NAME")&"
" & vbcrlf
strbody = strbody & "Middle Name: "&request.Form("MIDDLE_NAME")&"
" & vbcrlf
strbody = strbody & "Address: "&request.Form("ADDRESS")&"
" & vbcrlf
strbody = strbody & "Phone Number(Home): "&request.Form("HOME_PHONE")&"
" & vbcrlf
strbody = strbody & "Phone Number(Business): "&request.Form("BUSINESS_PHONE")&"
" & vbcrlf
strbody = strbody & "Mobile Phone Number: "&request.Form("MOBILE")&"
" & vbcrlf
strbody = strbody & "E-mail Address: "&request.Form("email")&"
" & vbcrlf
strbody = strbody & "Date of Birth: "&request.Form("BIRTH_MONTH")&" "&request.Form("BIRTH_DAY")&", "&request.Form("BIRTH_YEAR")&"
" & vbcrlf
strbody = strbody & "Gender: "&request.Form("GENDER")&"
" & vbcrlf
strbody = strbody & "Civil Status: "&request.Form("CIVIL_STATUS")&"
" & vbcrlf
strbody = strbody & "Country: "&request.Form("COUNTRY")&"
" & vbcrlf
strbody = strbody & "Postal Code: "&request.Form("POSTAL_CODE")&"
" & vbcrlf
strbody = strbody & "Postgraduate: "&request.Form("POSTGRAD_SCHOOL")&"
" & vbcrlf
strbody = strbody & "Course/Degree: "&request.Form("POSTGRAD_COURSE")&"
" & vbcrlf
strbody = strbody & "Period: "&request.Form("POSTGRAD_PERIOD")&"
" & vbcrlf
strbody = strbody & "College: "&request.Form("COLLEGE_SCHOOL")&"
" & vbcrlf
strbody = strbody & "Course/Degree: "&request.Form("COLLEGE_DEGREE")&"
" & vbcrlf
strbody = strbody & "Period: "&request.Form("COLLEGE_PERIOD")&"
" & vbcrlf
strbody = strbody & "Employer's Name: "&request.Form("EMPLOYERS_NAME")&"
" & vbcrlf
strbody = strbody & "Position: "&request.Form("POSITION_SELLING_EXPERIENCE")&"
" & vbcrlf
strbody = strbody & "Type of Product Sold: "&request.Form("TYPE_OF_PRODUCT_SOLD")&"
" & vbcrlf
strbody = strbody & "Employer's Name: "&request.Form("EMPLOYERS_NAME_1")&"
" & vbcrlf
strbody = strbody & "Position: "&request.Form("POSITION_SELLING_EXPERIENCE_1")&"
" & vbcrlf
strbody = strbody & "Type of Product Sold: "&request.Form("TYPE_OF_PRODUCT_SOLD_1")&"
" & vbcrlf
strbody = strbody & "Employer's Name: "&request.Form("EMPLOYERS_NAME_2")&"
" & vbcrlf
strbody = strbody & "Position: "&request.Form("POSITION_SELLING_EXPERIENCE_2")&"
" & vbcrlf
strbody = strbody & "Type of Product Sold: "&request.Form("TYPE_OF_PRODUCT_SOLD_2")&"
" & vbcrlf
strbody = strbody & "Skills/Hobbies: "&request.Form("SKILLS_HOBBIES")&"
" & vbcrlf
strbody = strbody & "Availability Date: "&request.Form("AVAILABILITY_DATE")&"
" & vbcrlf
strbody = strbody & "Membership in Professional and Civic Organizations:
" & vbcrlf
strbody = strbody & ""&request.Form("MEMBERSHIP_IN_PROFESSIONAL_AND_CIVIC_ORGANIZATIONS")&"
" & vbcrlf
strbody = strbody & "Seminars Attended:
" & vbcrlf
strbody = strbody & ""&request.Form("SEMINARS_ATTENDED")&"
" & vbcrlf
strbody = strbody & "Dear Earth+Style,
" & vbcrlf
strbody = strbody & ""&request.Form("TALK_TO_US")&"
" & vbcrlf
strbody = strbody & ""& vbcrlf
case "sellinqintl"
varEmail = request.Form("email")
set newmail = server.CreateObject("CDONTS.NEWMAIL")
newmail.From = varEmail
'newmail.To = "eugenio_caparas@hotmail.com"
newmail.To = "internalsales@earthandstyle.com"
'newmail.Cc = "roanne.estacio@vipertechonline.com"
newmail.Subject = "Sellers Inquiry Form International"
strbody = ""& vbcrlf
strbody = strbody & "SELLERS INQUIRY FORM INTERNATIONAL
"& vbcrlf
strbody = strbody & "Date of Application: "&request.Form("App_Month")&" "&request.Form("App_Day")&", "&request.Form("App_Year")&"
" & vbcrlf
strbody = strbody & "Date of Application: "&request.Form("Avail_Month")&" "&request.Form("Avail_Day")&", "&request.Form("Avail_Year")&" or "&request.Form("Avail_Other_Date")&"
" & vbcrlf
strbody = strbody & "First Name: "&request.Form("First_Name")&"
" & vbcrlf
strbody = strbody & "Last Name: "&request.Form("Last_Name")&"
" & vbcrlf
strbody = strbody & "Middle Initial: "&request.Form("Middle_Initial")&"
" & vbcrlf
strbody = strbody & "Address: "&request.Form("Address")&"
" & vbcrlf
strbody = strbody & "City: "&request.Form("City")&"
" & vbcrlf
strbody = strbody & "Country: "&request.Form("Country")&"
" & vbcrlf
strbody = strbody & "Postal Code: "&request.Form("Postal_Code")&"
" & vbcrlf
strbody = strbody & "Contact No. (Home): "&request.Form("Contact_Home")&"
" & vbcrlf
strbody = strbody & "Contact No. (Business): "&request.Form("Contact_Business")&"
" & vbcrlf
strbody = strbody & "Mobile Phone No.: "&request.Form("Contact_Mobile")&"
" & vbcrlf
strbody = strbody & "Fax No.: "&request.Form("Fax")&"
" & vbcrlf
strbody = strbody & "E-mail Address: "&request.Form("email")&"
" & vbcrlf
strbody = strbody & "Gender: "&request.Form("gender")&"
" & vbcrlf
strbody = strbody & "Civil Status: "&request.Form("Civil_Status")&"
" & vbcrlf
strbody = strbody & "Nationality: "&request.Form("Nationality")&"
" & vbcrlf
strbody = strbody & "Institution Name: "&request.Form("Institution_Name_1")&"
" & vbcrlf
strbody = strbody & "Course/Degree: "&request.Form("Course_Degree_1")&"
" & vbcrlf
strbody = strbody & "Inclusive Dates: "&request.Form("Inclusive_Dates_1")&"
" & vbcrlf
strbody = strbody & "Institution Name: "&request.Form("Institution_Name_2")&"
" & vbcrlf
strbody = strbody & "Course/Degree: "&request.Form("Course_Degree_2")&"
" & vbcrlf
strbody = strbody & "Inclusive Dates: "&request.Form("Inclusive_Dates_2")&"
" & vbcrlf
strbody = strbody & "Institution Name: "&request.Form("Institution_Name_3")&"
" & vbcrlf
strbody = strbody & "Course/Degree: "&request.Form("Course_Degree_3")&"
" & vbcrlf
strbody = strbody & "Inclusive Dates: "&request.Form("Inclusive_Dates_3")&"
" & vbcrlf
strbody = strbody & "Employer's Name: "&request.Form("Employer_1")&"
" & vbcrlf
strbody = strbody & "Position Level: "&request.Form("Position_Level_1")&"
" & vbcrlf
strbody = strbody & "Product Sold: "&request.Form("Product_Sold_1")&"
" & vbcrlf
strbody = strbody & "No. of Years: "&request.Form("Num_of_Years_1")&"
" & vbcrlf
strbody = strbody & "Employer's Name: "&request.Form("Employer_2")&"
" & vbcrlf
strbody = strbody & "Position Level: "&request.Form("Position_Level_2")&"
" & vbcrlf
strbody = strbody & "Product Sold: "&request.Form("Product_Sold_2")&"
" & vbcrlf
strbody = strbody & "No. of Years: "&request.Form("Num_of_Years_2")&"
" & vbcrlf
strbody = strbody & "Employer's Name: "&request.Form("Employer_3")&"
" & vbcrlf
strbody = strbody & "Position Level: "&request.Form("Position_Level_3")&"
" & vbcrlf
strbody = strbody & "Product Sold: "&request.Form("Product_Sold_3")&"
" & vbcrlf
strbody = strbody & "No. of Years: "&request.Form("Num_of_Years_3")&"
" & vbcrlf
strbody = strbody & "Skills and Interests:
" & vbcrlf
strbody = strbody & ""&request.Form("Skills_Interests")&"
" & vbcrlf
strbody = strbody & "Organization Name: "&request.Form("Org_Name_1")&"
" & vbcrlf
strbody = strbody & "Position Held: "&request.Form("Position_Held_1")&"
" & vbcrlf
strbody = strbody & "Name of Organization: "&request.Form("Name_of_Org_1")&"
" & vbcrlf
strbody = strbody & "Organization Name: "&request.Form("Org_Name_2")&"
" & vbcrlf
strbody = strbody & "Position Held: "&request.Form("Position_Held_2")&"
" & vbcrlf
strbody = strbody & "Name of Organization: "&request.Form("Name_of_Org_2")&"
" & vbcrlf
strbody = strbody & "Organization Name: "&request.Form("Org_Name_3")&"
" & vbcrlf
strbody = strbody & "Position Held: "&request.Form("Position_Held_3")&"
" & vbcrlf
strbody = strbody & "Name of Organization: "&request.Form("Name_of_Org_3")&"
" & vbcrlf
strbody = strbody & "Seminar/Workshop Title: "&request.Form("Sem_Work_1")&"
" & vbcrlf
strbody = strbody & "Date Attended: "&request.Form("Date_Att_1")&"
" & vbcrlf
strbody = strbody & "Seminar/Workshop Title: "&request.Form("Sem_Work_2")&"
" & vbcrlf
strbody = strbody & "Date Attended: "&request.Form("Date_Att_2")&"
" & vbcrlf
strbody = strbody & "Seminar/Workshop Title: "&request.Form("Sem_Work_3")&"
" & vbcrlf
strbody = strbody & "Date Attended: "&request.Form("Date_Att_3")&"
" & vbcrlf
strbody = strbody & "Dear Earth+Style,
" & vbcrlf
strbody = strbody & ""&request.Form("Talk_to_Us")&"
" & vbcrlf
strbody = strbody & ""& vbcrlf
case "buyerinqfrm"
varEmail = request.Form("email")
set newmail = server.CreateObject("CDONTS.NEWMAIL")
newmail.From = varEmail
'newmail.To = "eugenio_caparas@hotmail.com"
newmail.To = "internalsales@earthandstyle.com"
'newmail.Cc = "roanne.estacio@vipertechonline.com"
newmail.Subject = "Buyer's Inquiry Form"
strbody = ""& vbcrlf
strbody = strbody & "BUYERS INQUIRY FORM
"& vbcrlf
SELECT CASE request.Form("Are_You_What")
CASE "a"
strbody = strbody & "I am a current Earth+Style Home or Lot owner
" & vbcrlf
CASE "b"
strbody = strbody & "I received service/services from a recognized Earth+Style broker/agent
" & vbcrlf
strbody = strbody & "Name of broker/agent: "&request.Form("txtAre_You_What")&"
" & vbcrlf
CASE "c"
strbody = strbody & "I am a first time buyer of Earth+Style properties
" & vbcrlf
END SELECT
if request.Form("Location") = "Others" then
strbody = strbody & "Location: "&request.Form("txtOtherLocation")&"
" & vbcrlf
else
strbody = strbody & "Location: "&request.Form("Location")&"
" & vbcrlf
end if
strbody = strbody & "Price Range: "&request.Form("Price_Range")&"
" & vbcrlf
strbody = strbody & "Earth+Style Villages: "&request.Form("Villages")&"
" & vbcrlf
strbody = strbody & "Earth+Style Homes: "&request.Form("Homes")&"
" & vbcrlf
strbody = strbody & "Earth+Style Sundays: "&request.Form("Sundays")&"
" & vbcrlf
'strbody = strbody & "Earth+Style Sundays: "&request.Form("Sundays")&"
" & vbcrlf
SELECT CASE request.Form("Finance_Options")
CASE "1"
strbody = strbody & "Financial Options: Preferred Pag-IBIG Financing (PPF)
" & vbcrlf
CASE "2"
strbody = strbody & "Financial Options: Choice Pag-Ibig Financing (CPF)
" & vbcrlf
CASE "3"
strbody = strbody & "Financial Options: Special Cash Financing (SCF)
" & vbcrlf
CASE "4"
strbody = strbody & "Financial Options: Preferred Pag-IBIG Financing (PPF)
" & vbcrlf
END SELECT
strbody = strbody & "Are you a Pag-IBIG member? "&request.Form("IBIG_Member")&"
" & vbcrlf
strbody = strbody & "Do you wish to avail of a Pag-IBIG loan? "&request.Form("PAG-IBIG_Loan")&"
" & vbcrlf
SELECT CASE request.Form("Hear")
CASE "website"
strbody = strbody & "How did you hear about us? Website (www.earthandstyle.com)
" & vbcrlf
CASE "magazine"
strbody = strbody & "How did you hear about us? My Home Magazine
" & vbcrlf
CASE "billboard"
strbody = strbody & "How did you hear about us? Billboard/Print Ads
" & vbcrlf
CASE "tvcommercial"
strbody = strbody & "How did you hear about us? TV Commercial
" & vbcrlf
CASE "brochures"
strbody = strbody & "How did you hear about us? Brochures/Flyers
" & vbcrlf
CASE "family"
strbody = strbody & "How did you hear about us? Family/Friends
" & vbcrlf
strbody = strbody & " "&request.Form("txtfamily1")&"
" & vbcrlf
strbody = strbody & " "&request.Form("txtfamily2")&"
" & vbcrlf
strbody = strbody & " "&request.Form("txtfamily3")&"
" & vbcrlf
CASE "referral"
strbody = strbody & "How did you hear about us? Referrals
" & vbcrlf
strbody = strbody & " "&request.Form("txtreferral1")&"
" & vbcrlf
strbody = strbody & " "&request.Form("txtreferral2")&"
" & vbcrlf
strbody = strbody & " "&request.Form("txtreferral3")&"
" & vbcrlf
CASE "agent"
strbody = strbody & "How did you hear about us? Agent/Broker
" & vbcrlf
strbody = strbody & " "&request.Form("txtagentbroker1")&"
" & vbcrlf
strbody = strbody & " "&request.Form("txtagentbroker2")&"
" & vbcrlf
strbody = strbody & " "&request.Form("txtagentbroker3")&"
" & vbcrlf
CASE "others"
strbody = strbody & "How did you hear about us? Others
" & vbcrlf
strbody = strbody & " "&request.Form("txtothers1")&"
" & vbcrlf
strbody = strbody & " "&request.Form("txtothers2")&"
" & vbcrlf
strbody = strbody & " "&request.Form("txtothers3")&"
" & vbcrlf
END SELECT
strbody = strbody & "First Name: "&request.Form("First_Name")&"
" & vbcrlf
strbody = strbody & "Last Name: "&request.Form("Last_Name")&"
" & vbcrlf
strbody = strbody & "Middle Initial: "&request.Form("Middle_Initial")&"
" & vbcrlf
strbody = strbody & "Address: "&request.Form("Address")&"
" & vbcrlf
strbody = strbody & "City: "&request.Form("City")&"
" & vbcrlf
strbody = strbody & "Country: "&request.Form("regform_country")&"
" & vbcrlf
strbody = strbody & "Postal Code: "&request.Form("Postal_Code")&"
" & vbcrlf
strbody = strbody & "Contact No.(Home): "&request.Form("Phone_Home")&"
" & vbcrlf
strbody = strbody & "Contact No.(Business): "&request.Form("Phone_Business")&"
" & vbcrlf
strbody = strbody & "Mobile Phone No.: "&request.Form("Phone_Mobile")&"
" & vbcrlf
strbody = strbody & "Fax: "&request.Form("Fax")&"
" & vbcrlf
strbody = strbody & "E-mail: "&request.Form("email")&"
" & vbcrlf
strbody = strbody & "Gender: "&request.Form("Gender")&"
" & vbcrlf
strbody = strbody & "Civil Status: "&request.Form("Civil_Status")&"
" & vbcrlf
strbody = strbody & "Date of Birth: "&request.Form("Birth_Month")&" "&request.Form("Birth_Day")&", "&request.Form("Birth_Year")&"
" & vbcrlf
strbody = strbody & "Nationality: "&request.Form("Nationality")&"
" & vbcrlf
strbody = strbody & "Education: "&request.Form("Education")&"
" & vbcrlf
strbody = strbody & "Employment Information: "&request.Form("Employment_Info")&"
" & vbcrlf
strbody = strbody & "Employer's Name: "&request.Form("Employer_Name")&"
" & vbcrlf
strbody = strbody & "Current Position: "&request.Form("Current_Pos")&"
" & vbcrlf
strbody = strbody & "Type of Business: "&request.Form("Business_Type")&"
" & vbcrlf
strbody = strbody & "Length of Stay: "&request.Form("Length_of_Stay")&"
" & vbcrlf
strbody = strbody & "Business Address: "&request.Form("Business_Address")&"
" & vbcrlf
SELECT CASE request.Form("wish")
CASE "1"
strbody = strbody & "I want to receive product brochures of:
" & vbcrlf
strbody = strbody & "Earth+Style Villages: "&request.Form("selVillage1")&"
" & vbcrlf
strbody = strbody & "Earth+Style Homes: "&request.Form("selHome1")&"
" & vbcrlf
strbody = strbody & "Earth+Style Sundays: "&request.Form("selSunday1")&"
" & vbcrlf
CASE "2"
strbody = strbody & "I want to receive a Project Location Map of:
" & vbcrlf
strbody = strbody & "Earth+Style Villages: "&request.Form("selVillage2")&"
" & vbcrlf
strbody = strbody & "Earth+Style Homes: "&request.Form("selHome2")&"
" & vbcrlf
strbody = strbody & "Earth+Style Sundays: "&request.Form("selSunday2")&"
" & vbcrlf
CASE "3"
strbody = strbody & "I want to receive a Price List of:
" & vbcrlf
strbody = strbody & "Earth+Style Villages: "&request.Form("selVillage3")&"
" & vbcrlf
strbody = strbody & "Earth+Style Homes: "&request.Form("selHome3")&"
" & vbcrlf
strbody = strbody & "Earth+Style Sundays: "&request.Form("selSunday3")&"
" & vbcrlf
CASE "4"
strbody = strbody & "I want to receive a Sample Computation of:
" & vbcrlf
strbody = strbody & "Earth+Style Villages: "&request.Form("selVillage4")&"
" & vbcrlf
strbody = strbody & "Earth+Style Homes: "&request.Form("selHome4")&"
" & vbcrlf
strbody = strbody & "Earth+Style Sundays: "&request.Form("selSunday4")&"
" & vbcrlf
CASE "5"
strbody = strbody & "I want to visit:
" & vbcrlf
strbody = strbody & "Earth+Style Villages: "&request.Form("selVillage5")&"
" & vbcrlf
strbody = strbody & "Earth+Style Homes: "&request.Form("selHome5")&"
" & vbcrlf
strbody = strbody & "Earth+Style Sundays: "&request.Form("selSunday5")&"
" & vbcrlf
CASE "6"
strbody = strbody & " I want an Earth+Style Representative to call me.
" & vbcrlf
CASE "7"
strbody = strbody & " I want to set an appointment for a brief presentation.
" & vbcrlf
strbody = strbody & "Date: "&request.Form("Touch_Date")&"
" & vbcrlf
if request.Form("txttimeam") <> "" then
strbody = strbody & "Time: "&request.Form("txttimeam")&" "&request.Form("apm")&"
" & vbcrlf
else
strbody = strbody & "Time: "&request.Form("txttimepm")&" "&request.Form("apm")&"
" & vbcrlf
end if
CASE "8"
strbody = strbody & "Others
" & vbcrlf
strbody = strbody & ""&request.Form("txtOthers")&"
" & vbcrlf
END SELECT
strbody = strbody & "More Questions...? Tell us how we can help you...
" & vbcrlf
strbody = strbody & ""&request.Form("txtMoreQuestions")&"
" & vbcrlf
strbody = strbody & ""& vbcrlf
END SELECT
newmail.BodyFormat = 0
newmail.MailFormat = 0
newmail.Body = strbody
newmail.Send
set newmail = nothing
if err.number = 0 then
'Response.Write "Success!!!"
'server.transfer "confirm.htm"
'Response.Redirect "email.asp?send=yes"
Response.Redirect "thankyou.htm"
else
response.write err.Description
end if
%>
Untitled Document