/*<% ' change to address of your own SMTP server strHost = "patagoniaspanish.com" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("E-Mail") ' From address Mail.FromName = Request("FromName") ' optional Mail.AddAddress "info@patagoniaspanish.com" ' message subject Mail.Subject = Request("Subject") ' message body Mail.Body = Request("Body2") & chr(10) & chr(10) & "Surname: " & Request ("FromName") & chr(10) & "First Name: " & Request ("Firstname") & chr(10) & "Nationality: " & Request ("Nationality") & chr(10) & "Sex: " & Request ("Sex") & chr(10) & "Date of Birth: " & Request ("Birth") & chr(10) & "Address: " & Request ("Address") & chr(10) & "Zip Code: " & Request ("Zipcode") & chr(10) & "City: " & Request ("City") & chr(10) & "Country: " & Request ("Country") & chr(10) & "Phone: " & Request ("Phone") & chr(10) & "FAX: " & Request ("Fax") & chr(10) & "E-Mail: " & Request ("E-Mail") & chr(10) & "Confirmation of E-Mail: " & Request ("E-Mail2") & chr(10) & "Emergency contact (name and phone): " & Request ("emergency") & chr(10) & "Profession: " & Request ("Profession") & chr(10) & "Spanish level: " & Request ("Spanish") & chr(10) & "Company/University: " & Request ("Company") & chr(10) & "Years you have been studying Spanish: " & Request ("Spanish2") & chr(10) & "Expectations, needs, interest for your Spanish program: " & Request ("expectations") & chr(10) & "Mother tongue: " & Request ("mothertongue") & chr(10) & chr(10) & "I WISH TO BOOK (WEEKS): " & chr(10) & Request ("Book") & " weeks in Patagonia" & chr(10) & Request ("Book2") & " weeks in Buenos Aires" & chr(10) & Request ("Book3") & " weeks in Mendoza" & chr(10) & Request ("Book4") & " weeks in Ushuaia" & chr(10) & Request ("Book5") & " weeks in Chile" & chr(10) & chr(10) & "Program: " & Request ("Program") & chr(10) & chr(10) & "ONLY for BUENOS AIRES: " & chr(10) & "Start date of classes: " & Request ("scd") & "-" & Request ("scm") & "-" & Request ("scy") & chr(10) & "Arrival Date: " & Request ("sad") & "-" & Request ("sam") & "-" & Request ("say") & chr(10) & "Accommodation: " & Request ("Accomm") & chr(10) & "Airport transfer(yes/no): " & Request ("Airport2") & " --" & "Airport details: " & Request ("Airport") & chr(10) & "Tango: " & Request ("Tango") & chr(10) & chr(10) & "ONLY for PATAGONIA: " & chr(10) & "Start date of classes: " & Request ("scd2") & "-" & Request ("scm2") & "-" & Request ("scy2") & chr(10) & "Arrival Date: " & Request ("sad2") & "-" & Request ("sam2") & "-" & Request ("say2") & chr(10) & "Accommodation: " & Request ("Accomm2") & chr(10) & "Airport transfer(yes/no): " & Request ("Airport22") & " --" & "Airport details: " & Request ("Airport9") & chr(10) & chr(10) & "ONLY for MENDOZA: " & chr(10) & "Start date of classes: " & Request ("scd3") & "-" & Request ("scm3") & "-" & Request ("scy3") & chr(10) & "Arrival Date: " & Request ("sad3") & "-" & Request ("sam3") & "-" & Request ("say3") & chr(10) & "Departure Date: " & Request ("dia") & "-" & Request ("mes") & "-" & Request ("ano") & chr(10) & "Accommodation: " & Request ("Accomm3") & chr(10) & "Do you smoke: " & Request ("smo") & chr(10) & "Le molesta si fuman en la casa?: " & Request ("smo2") & chr(10) & "Le molesta una familia con chicos: " & Request ("chi") & chr(10) & "Vegetarian food?: " & Request ("veg") & chr(10) & "Airport transfer(yes/no): " & Request ("Airport33") & " --" & "Airport details: " & Request ("Airport3") & chr(10) & chr(10) & "ONLY for USHUAIA: " & chr(10) & "Start date of classes: " & Request ("scd4") & "-" & Request ("scm4") & "-" & Request ("scy4") & chr(10) & "Arrival Date: " & Request ("sad4") & "-" & Request ("sam4") & "-" & Request ("say4") & chr(10) & "Accommodation: " & Request ("Accomm4") & chr(10) & "Airport transfer(yes/no): " & Request ("Airport44") & " --" & "Airport details: " & Request ("Airport4") & chr(10) & chr(10) & "ONLY for CHILE: " & chr(10) & "Start date of classes: " & Request ("scd5") & "-" & Request ("scm5") & "-" & Request ("scy5") & chr(10) & "Arrival Date: " & Request ("sad5") & "-" & Request ("sam5") & "-" & Request ("say5") & chr(10) & "Accommodation: " & Request ("Accomm5") & chr(10) & "Airport transfer(yes/no): " & Request ("Airport55") & " --" & "Airport details: " & Request ("Airport5") & chr(10) & chr(10) & "Health: " & Request ("Health") & chr(10) & "Comments: " & Request ("co") & chr(10) & "How did you hear about us: " & Request ("How") & chr(10) strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message End If %>*/?>
|
|||||||||||||||
|
|||||||||||||||