HBASWO

<%@LANGUAGE="VBSCRIPT"%> <% ' *** Send Feedback From A Web Page - ASPMail ' *** UltraSuite Server Behavior - 4513 - version 1.0 ' *** Created by Jag S. Sidhu - www.ultrasuite.com Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromAddress= cStr(Request("")) Mailer.RemoteHost = "mail.epuerto.com" Mailer.AddRecipient "", "percy@epuerto.com" Mailer.Subject = "Booking" Mailer.BodyText = Chr(13) & Chr(10) & "~ RESERVAS ~" &_ Chr(13) & Chr(10) & "Nombre: " & cStr(Request("hname")) &_ Chr(13) & Chr(10) & "Email: " & cStr(Request("hemail")) &_ Chr(13) & Chr(10) & "Fax: " & cStr(Request("hfax")) &_ Chr(13) & Chr(10) & "Telefono: " & cStr(Request("hphone")) &_ Chr(13) & Chr(10) & "Direccion: " & cStr(Request("haddress")) &_ Chr(13) & Chr(10) & "Ciudad: " & cStr(Request("hcity")) &_ Chr(13) & Chr(10) & "Estado: " & cStr(Request("hstate")) &_ Chr(13) & Chr(10) & "Zip: " & cStr(Request("hzip")) &_ Chr(13) & Chr(10) & "Pais: " & cStr(Request("hcountry")) &_ Chr(13) & Chr(10) & "Package: " & cStr(Request("htour")) &_ Chr(13) & Chr(10) & "Llegada: " & cStr(Request("ayy"))&_ Chr(13) & Chr(10) & "Salida: " & cStr(Request("dyy"))&_ Chr(13) & Chr(10) & "Pasajeros: " & cStr(Request("hpax")) &_ Chr(13) & Chr(10) & "Simples: " & cStr(Request("hsingle")) &_ Chr(13) & Chr(10) & "Doubles: " & cStr(Request("hdouble")) &_ Chr(13) & Chr(10) & "Triples: " & cStr(Request("htriple")) &_ Chr(13) & Chr(10) & "Suites: " & cStr(Request("hsuite")) &_ Chr(13) & Chr(10) & "- " & cStr(Request("hcomments")) If (cStr(Request("Submit")) <> "") Then Mailer.SendMail Response.Redirect("thankyou.htm") End If %> HBASWO