% ' 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) & "Name: " & Request ("FromName") & 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) & "Profession: " & Request ("Profession") & chr(10) & "Spanish level: " & Request ("Spanish") & chr(10) & "Company/University: " & Request ("Company") & chr(10) & "I WISH TO BOOK (WEEKS): " & Request ("Book") & chr(10) & "Program: " & Request ("Program") & chr(10) & "Start classes: " & Request ("scd") & Request ("scm") & Request ("scy") & chr(10) & "Arrival Date: " & Request ("sad") & Request ("sam") & Request ("say") & chr(10) & "Tango: " & Request ("Tango") & chr(10) & "Accommodation: " & Request ("Accomm") & chr(10) & "Airport yes/no : " & Request ("Airport2") & " - Airport details: " & Request ("Airport") & 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 If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %>
|
Escola de Espanhol em Argentina: Patagonia, Bariloche, Buenos Aires y Córdoba. Cursos de espanhol. Aulas de espanhol. |
|
![]() |
![]() |
|
|
|
|||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||