% ' change to address of your own SMTP server strHost = "argentina-spanish.com.ar" 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@argentina-spanish.com.ar" ' 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) & "Profession: " & Request ("Profession") & chr(10) & "Spanish level: " & Request ("Spanish") & chr(10) & "Company/University: " & Request ("Company") & chr(10) & "Spanish Years: " & Request ("Spanish2") & 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 Cordoba" & 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 CÓRDOBA: " & chr(10) & "Start date of classes: " & Request ("scd3") & "-" & Request ("scm3") & "-" & Request ("scy3") & chr(10) & "Arrival Date: " & Request ("sad3") & "-" & Request ("sam3") & "-" & Request ("say3") & chr(10) & "Accommodation: " & Request ("Accomm3") & chr(10) & "Airport details: " & Request ("Airport3") & 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 %>

|
|
![]()
![]()
Spanish language schools
http://www.argentina-spanish.com.ar
E.mail: info@argentina-spanish.com.ar