%@ Language=VBScript %>
<%
if Request.Form("btnSubmit") <> "" then '--- send the form !!
dim firstname, lastname, email, phonenumber, country, typeroom, arrivaldate, departuredate
dim numbernights, numberadults, numberchildren, contactway, specialrequests
firstname = Request.Form("FirstName")
lastname = Request.Form("LastName")
email = Request.Form("Email")
phonenumber = Request.Form("PhoneNumber")
country = Request.Form("Country")
typeroom = Request.Form("TypeRoom")
arrivaldate = Request.Form("ArrivalDate")
departuredate = Request.Form("DepartureDate")
numbernights = Request.Form("Nights")
numberadults = Request.Form("Adults")
numberchildren = Request.Form("Children")
contactway = Request.Form("ContactWay")
specialrequests = Request.Form("SpecialRequests")
'--- send out admin email
dim mailObj, message
message = "Un nuevo requerimiento de reservación ha sido capturado!" & vbcrlf
if Request.QueryString("source") <> "" then
message = message & "----Data has been captured from " & Request.QueryString("source") & vbcrlf & vbcrlf
end if
message = message & "La siguiente información del huésped ha sido enviada a reserva@itzaes.com e info@itzaes.com: " & vbcrlf
message = message & "Por favor ponerse en contacto con el huésped y dar seguimiento: " & vbcrlf & vbcrlf & _
"Firstname:" & vbtab & firstname & vbcrlf & _
"Lastname:" & vbtab & lastname & vbcrlf & _
"Email:" & vbtab & email & vbcrlf & _
"Phone number:" & vbtab & phonenumber & vbcrlf & _
"Country:" & vbtab & country & vbcrlf & _
"Type of Room:" & vbtab & typeroom & vbcrlf & _
"Arrival Date:" & vbtab & arrivaldate & vbcrlf & _
"Departure Date:" & vbtab & departuredate & vbcrlf & _
"Number of nights:" & vbtab & numbernights & vbcrlf & _
"Number of adults:" & vbtab & numberadults & vbcrlf & _
"Number of children:" & vbtab & numberchildren & vbcrlf & _
"Contact Way:" & vbtab & contactway & vbcrlf & _
"Special Requests:" & vbtab & specialrequests & vbCrLf
set mailObj = server.CreateObject("CDO.Message")
mailObj.From = email
mailObj.To = "reserva@itzaes.com"
mailObj.CC = "info@itzaes.com"
mailObj.BCC = "ricardo@garcia.name"
mailObj.Subject = "Itzaes Request"
mailObj.TextBody = message
mailObj.Send
'---go to thank you page
Response.Clear
Response.Redirect("tarifas.asp")
Response.End
end if
%>
Hotel Los Itzaes.