<%@LANGUAGE="VBSCRIPT"%>
<%OPTION EXPLICIT%>
<%
'declaramos las variables
Dim nombre,apellidos,dni,telefono,email,cuerpo,ObjMail ,fecha,habitacion,fechaentrada,fechasalida
nombre=request.Form("nombre")
apellidos=request.Form("apellidos")
dni=request.Form("dni")
telefono=request.Form("telefono")
email=request.Form("email")
fecha=now()
habitacion=session("habitacion")
fechaentrada=session("fecha")
fechasalida=session("fecha1")
cuerpo= "Nombre: " & nombre & vbcrlf
cuerpo= cuerpo & "Apellidos: " & apellidos & vbcrlf
cuerpo= cuerpo & "DNI: " & dni & vbcrlf
cuerpo= cuerpo & "Telefono: " & telefono & vbcrlf
cuerpo= cuerpo & "Email: " & email & vbcrlf
cuerpo= cuerpo & "Habitacion: "& habitacion & vbcrlf
cuerpo= cuerpo & "Habitacion: "& fechaentrada & vbcrlf
cuerpo= cuerpo & "Habitacion: "& fechasalida & vbcrlf
cuerpo= cuerpo & "Fecha actual:" & fecha & vbcrlf
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
'introducir la dirección de correo donde se recibira el formulario
ObjMail.To = "
[email protected]"
'Cambia la dirección de e-mail (correo que aparecera como remitente)
ObjMail.From = "Reserva"
ObjMail.Subject="Envio realizado con éxito"
'titulo que aparecera como subject del mensaje puedes elegir el titulo que quieras
ObjMail.Body = cuerpo
ObjMail.Send
Set ObjMail = Nothing
'redireccionamos a una página de confirmación de envio
%>
<script language="javascript">
alert("Solicitud de reserva realizada con éxito")
</script>