<%@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 '& "" _ '& "" _ '& "" _ '& "" & vbCrLf end if next 'body = body & "
" _ '& arr(i,1) _ '& ": " _ '& arr(i,0) _ '& "
" & 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

Airport Transfer

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.

Required Fields *

<%iError = oErrores.lookForErrorAndClear("email")%>

General Information

Subject

*    

 

Arrival Information

*
*
*
*
   
   

Departure Information

* *
*
   
 
   

Desgin: PVNet • Visit Hostingpv • Maintenance Pvcomputacion