<%
'Definición de las variables
'--------------------------------------------------------------------
Dim ObjCdo, nombre, Email, pais, provincia, localidad, Comentarios, Body
'Recuperación de datos desde la página "Reservaciones.htm"
'--------------------------------------------------------------------
nombre = Request.Form("nombre")
email = Request.Form("email")
pais = Request.Form("pais")
provincia = Request.Form("provincia")
localidad = Request.Form("localidad")
comentarios = Request.Form("comentarios")
'Envío del e-mail / Configuración de parámetros básicos
'--------------------------------------------------------------------
Set ObjCdo = Server.CreateObject("CDONTS.NewMail")
ObjCdo.MailFormat=0
'Desde dónde se envía el e-mail
'------------------------------------
ObjCdo.From = email
'Asunto del e-mail
'------------------------------------
ObjCdo.Subject = "online Turismo"
'Destinatario del e-mail
'------------------------------------
ObjCdo.To = "
[email protected]"
'Texto del e-mail
'------------------------------------
body = "Nombre: " & nombre & chr(13)
body = body & "E-mail: " & email & chr(13)
body = body & "Ciudad: " & ciudad & chr(13)
body = body & "Provincia: " & provincia & chr(13)
body = body & "País: " & pais & chr(13) & chr(13)
body = body & "Comentarios: " & comentarios
ObjCdo.body = body
'Instrucción de envío
'------------------------------------
ObjCdo.send
'Eliminación del objeto ya utilizado
'------------------------------------
Set ObjCdo = nothing
%>
<html>
<head>
<title>Mensaje Enviado</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body text="#000000" background="fondo%2005.jpg" bgproperties="fixed">
<p align="center"> </p>
<p align="center"> </p>
<p align="center"><font size="4" face="Verdana">Su mensaje ha sido enviado
exitosamente!!!</font></p>
<p align="center"><font size="2">Gracias por confiar en nuestros servicios.</font></p>
</body>
</html>