<%@LANGUAGE="VBSCRIPT"%>
<%
'--> Logica de la pagina
bValidado = false 'Variable que checa si se validó todo o no
bSubmit = false
bSubmit = getPostVar("submitting")
If bSubmit="1" then
bSubmit = true
Else
bSubmit = false
End if
set oErrores = new clsErrBag
'Definir variables
Dim sName, sAmPm, sHour 'etc....
sName = Trim(receiveURI(request.Form("name")))
sEmail = Trim(receiveURI(request.Form("email")))
sNeeds = Trim(receiveURI(request.Form("comments")))
'EMpieza validación
If bSubmit then
bValidado = true
dim arr(10,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
'Email
If valIsNull(sEmail) then
oErrores.addError VAL_ERR_EMAIL, "email"
bValidado = false
End if
If not valIsValidEmail(sEmail) then
oErrores.addError VAL_ERR_EMAIL_INVALID, "email"
bValidado = false
End if
arr(1,0) = sEmail
arr(1,1) = "Email"
arr(2,0) = sNeeds
arr(2,1) = "Comments"
If bValidado then 'SI no hubo errores, se forma el cuerpo del correo
'body = "
" & vbCrLf
body = ""
for i=0 to 2
body = body _
& arr(i,1) _
& ": " _
& arr(i,0) & vbCrLf
'& "
" _
'& "
" _
'& arr(i,1) _
'& ":
" _
'& "
" _
'& arr(i,0) _
'& "
" _
'& "
" & vbCrLf
next
'body = body & "
" & vbCrLf
'***********Direccion de FROM en el correo
' If IsNada(sEmail) then
' replyTo="no-reply@caboonline.com"
' Else
' replyTo = sEmail
' End if
'*********************** EMAIL!!!
recipients = "info@vipclasstours.com" 'TO info@vipclasstours.com
replyTo = recipients ' FROM
'*********************** SUBJECT!!!
subject = "Correo, forma de Contacto"
'Se manda el correo
sendMail recipients,replyTo,subject,body, sname
response.Redirect("reservation_thankyou.htm")
End if
End if
bOnloadEvent = true 'To populate the textarea
%>
Contact - VIP Class Tours and Services. Puerto Vallarta, México