<% 'obtengo las variables del formulario Nombre=request.form("txtNombre") Apellido=request.form("txtApellido") Empresa=request.form("txtEmpresa") Profesion=request.form("txtProf") Telefono=request.form("txtTel") Domicilio=request.form("txtDomicilio") Email=request.form("txtEmail") Ciudad=request.form("txtCiudad") Pais=request.form("txtPais") anioSalida=request.form("anioSalida") mesSalida=request.form("mesSalida") diaSalida=request.form("diaSalida") horaSalida=request.form("horaSalida") anioLlegada=request.form("anioLlegada") mesLlegada=request.form("mesLlegada") diaLlegada=request.form("diaLlegada") horaLlegada=request.form("horaLlegada") Origen=request.form("txtOrigen") Destino=request.form("txtDestino") Pasajeros=request.form("pasajeros") Comentario=request.form("txtComentario") Mensaje="Los campos con asterisco (*) son obligatorios" if request("txtaction")="E" then if Nombre<>"" and Apellido<>"" and Telefono<>"" and Email<>"" and Origen<>"" and Destino<>"" and Pasajeros<>"" then 'envio el mail al visitante de confiramcion dim mensaje set mensaje = Server.CreateObject("CDONTS.NewMail") mensaje.BodyFormat = 0 mensaje.MailFormat = 0 mensaje.Subject = "Confirmacion de envio de consulta" mensaje.Body = "Su consulta fue enviada para ser procesada, aguarde la respuesta." mensaje.To = Email &","& Apellido &" "& Nombre &"<"& Email & ">" mensaje.From = "goldenair.com.ar" mensaje.Send set mensaje = nothing 'envio la consulta para ser procesada dim mensaje1 set mensaje1 = Server.CreateObject("CDONTS.NewMail") mensaje1.BodyFormat = 0 mensaje1.MailFormat = 0 mensaje1.Subject = "Consulta web" mensaje1.Body = "

..:: Consulta WEB ::..
Nombre:		"& Nombre &"
Apellido:		"& Apellido &"
Empresa:		"& Empresa &"
Profesión:		"& Profesion &"
Teléfono:		"& Telefono &"
Domicilio:		"& Domicilio &"
Email:		"& Email &"
Ciudad:		"& Ciudad &"
País:		"& Pais &"
Itinerario:		"& Itinerario &"
Año salida:		"& anioSalida &"
Mes salida:		"& mesSalida &"
Día salida:		"& diaSalida &"
Hora salida:		"& horaSalida &"
Año llegada:		"& anioLlegada &"
Mes llegada:		"& mesLlegada &"
Día llegada:		"& diaLlegada &"
Hora llegada:		"& horaLlegada &"
Orígen		"& Origen &"
Destino:		"& Destino &"
Pasajeros:		"& Pasajeros &"
Comentario:		"& Comentario &"

" mensaje1.To = "goldenair.com.ar" mensaje1.From = Email &","& Apellido &" "& Nombre &"<"& Email & ">" mensaje1.Send set mensaje1 = nothing Mensaje="Consulta enviada correctamente" else Mensaje="Debe completar los campos obligatorios" end if end if %> Untitled Document

<%=Mensaje%>

Nombre (*)

Apellido (*)

Empresa

Profesión

Telefono(*)

Domicilio

E-mail(*)

Ciudad

País

Itinerario

	Un sentido
	Ida y vuelta

SALIDA		LLEGADA
Año		Año

Mes		Mes

Día		Día

Hora		Hora

*Origen()**
*Destino()**
Nº Pasajeros(*)
Preferencia de Catering COMENTARIOS