%@LANGUAGE="VBSCRIPT"%>
<%
' --> Logica de la pagina
bValidado = false 'Variable que checa si se validó todo o no
bSubmit = false
bSubmit = getPostVar("submitting") '--> Obtenemos el valor de la forma recibida para indicar si se ha enviado informacion a traves de POST o NO
If bSubmit="1" then
bSubmit = true
Else
bSubmit = false
End if
' --> Definimos nombres de variables
set oErrores = new clsErrBag ' Para el manejo de errores
'Definir variables
Dim sName
' Obtener variables de la forma
sName = Trim(receiveURI(request.Form("name")))
sDestination = Trim(receiveURI(request.Form("destination")))
sHouseName = Trim(receiveURI(request.Form("housename")))
sAddress = Trim(receiveURI(request.Form("address")))
sArrivalDate = Trim(receiveURI(request.Form("arrivaldate")))
sAirline = Trim(receiveURI(request.Form("airline")))
sTimeArrival = Trim(receiveURI(request.Form("timearrival")))
iSurf = Trim(receiveURI(request.Form("surf")))
iAdults = Trim(receiveURI(request.Form("adults")))
iChildren = Trim(receiveURI(request.Form("children")))
sLuggage = Trim(receiveURI(request.Form("luggage")))
sSpecialNeeds = Trim(receiveURI(request.Form("needs")))
sDateDeparture = Trim(receiveURI(request.Form("datedeparture")))
sTimeDeparture = Trim(receiveURI(request.Form("timedeparture")))
sFlight = Trim(receiveURI(request.Form("flight")))
sContact = Trim(receiveURI(request.Form("contact")))
sEmail = Trim(receiveURI(request.Form("email")))
sPickup = Trim(receiveURI(request.Form("pickup")))
' --> Proceso de validacion
'Empieza validación
If bSubmit then
bValidado = true ' Por omision se cree que la forma esta lista para enviarse, cualquier posible error la denotara con lo contrario
dim arr(17,2) ' Arreglo para formar correo
'Name ---> OBLIGATORIO
If valIsNull(sName) then ' Para campo OBLIGATORIO
oErrores.addError VAL_ERR_NAME, "name" 'Texto del error está en validation.asp, el "name" es el nombre con el que vamos a buscar el error mas adelante
bValidado = false 'Hay por lo menos UN error
End if
arr(0,0) = sName 'Se guarad el valor de la variable
arr(0,1) = "Name" 'Se guarad el nombre de la variable, para el correo
'Destination
arr(1,0) = sDestination
arr(1,1) = "Destination"
arr(2,0) = "" 'HouseName
arr(2,1) = "" '"House Name"
arr(3,0) = sAddress
arr(3,1) = "Address or phone"
'Arrival Date ---> OBLIGATORIO
If valIsNull(sArrivalDate) then ' Para campo OBLIGATORIO
oErrores.addError VAL_ERR_ARRIVAL_DATE, "arrival_date" 'Texto del error está en validation.asp, el "name" es el nombre con el que vamos a buscar el error mas adelante
bValidado = false 'Hay por lo menos UN error
End if
arr(4,0) = sArrivalDate
arr(4,1) = "Arrival Date"
'Airline ---> OBLIGATORIO
If valIsNull(sAirline) then ' Para campo OBLIGATORIO
oErrores.addError VAL_AIRLINE, "airline" 'Texto del error está en validation.asp, el "name" es el nombre con el que vamos a buscar el error mas adelante
bValidado = false 'Hay por lo menos UN error
End if
arr(5,0) = sAirline
arr(5,1) = "Airline & Flight #"
'arrival time ---> OBLIGATORIO
If valIsNull(sTimeArrival) then ' Para campo OBLIGATORIO
oErrores.addError VAL_ARRIVAL_TIME, "arrival_time" 'Texto del error está en validation.asp, el "name" es el nombre con el que vamos a buscar el error mas adelante
bValidado = false 'Hay por lo menos UN error
End if
arr(6,0) = sTimeArrival
arr(6,1) = "Time of arrival"
arr(7,0) = iSurf
arr(7,1) = "# Surf Boards"
If not IsNumeric(iAdults) then
oErrores.addError VAL_ERR_NUM_ADULTS, "numAdults"
bValidado = false
End if
arr(8,0) = iAdults
arr(8,1) = "# Adults"
arr(9,0) = iChildren
arr(9,1) = "# of Children"
arr(10,0) = sLuggage
arr(10,1) = "Pieces of luggage"
arr(11,0) = sSpecialNeeds
arr(11,1) = "Special Needs"
If valIsNull(sDateDeparture) then ' Para campo OBLIGATORIO
oErrores.addError VAL_DEPARTURE_DATE, "departure_date" 'Texto del error está en validation.asp, el "name" es el nombre con el que vamos a buscar el error mas adelante
bValidado = false 'Hay por lo menos UN error
End if
arr(12,0) = sDateDeparture
arr(12,1) = "Date of Departure"
If valIsNull(sTimeDeparture) then ' Para campo OBLIGATORIO
oErrores.addError VAL_DEPARTURE_TIME, "departure_time" 'Texto del error está en validation.asp, el "name" es el nombre con el que vamos a buscar el error mas adelante
bValidado = false 'Hay por lo menos UN error
End if
arr(13,0) = sTimeDeparture
arr(13,1) = "Time of Departure"
If valIsNull(sFlight) then ' Para campo OBLIGATORIO
oErrores.addError VAL_FLIGHT, "flight" 'Texto del error está en validation.asp, el "name" es el nombre con el que vamos a buscar el error mas adelante
bValidado = false 'Hay por lo menos UN error
End if
arr(14,0) = sFlight
arr(14,1) = "Airline and flight #"
arr(15,0) = sContact
arr(15,1) = "Contact"
If valIsNull(sEmail) then ' Para campo OBLIGATORIO
oErrores.addError VAL_EMAIL, "email" 'Texto del error está en validation.asp, el "name" es el nombre con el que vamos a buscar el error mas adelante
bValidado = false 'Hay por lo menos UN error
End if
arr(16,0) = sEmail
arr(16,1) = "E-mail"
arr(17,0) = sPickup
arr(17,1) = "Pick up time"
' --> En caso de ser validado se envia el correo
If bValidado then 'SI no hubo errores, se forma el cuerpo del correo
'body = "
" & vbCrLf
body = ""
for i=0 to 17
if arr(i,1) <> "" then
body = body _
& arr(i,1) _
& ": " _
& arr(i,0) & vbCrLf
'& "
" _
'& "
" _
'& arr(i,1) _
'& ":
" _
'& "
" _
'& arr(i,0) _
'& "
" _
'& "
" & vbCrLf
end if
next
'body = body & "
" & vbCrLf
'*********************** EMAIL!!!
recipients = "info@vipclasstours.com" 'TO "ricardo.rodriguez@pvnet.com.mx"'
replyTo = recipients ' FROM
'*********************** SUBJECT!!!
subject = "Correo página de reservaciones"
'Se manda el correo
sendMail recipients,replyTo,subject,body,sName
response.Redirect("reservation_thankyou.htm")
End if ' --> Cierre "if bValidado then"
End if ' --> Cierre "If bSubmit then"
bOnloadEvent = true 'To populate the textarea
%>
Airport Transfer Reservation - VIP Class Tours and Services. Puerto Vallarta, México
Pre-scheduling your airport transfer is an easy and convenient way to get ahead star on a great vacation! It’s simple… Just e-mail the following information to
info@vipclasstours.com or fax to (322) 22 1 18 69 México and a driver will be waiting for your arrival at the Puerto Vallarta International Airport holding a sign with our logo, your name and your destination.