Comarca De Torroja De Priorat :: Comarca De Tarragona

<% if request.querystring("e")="1" then Dim Correos, CorreoTitulo, CorreoFrom, myMail, myConf, ConfURL,objBP 'Definimos nuestra cuenta en gmail CorreoFrom = "WEB ABADÍA DEL PRIORAT " 'Definimos el título para el correo CorreoTitulo = "SOLICITUD DE RESERVA DE ALOJAMIENTO" 'Definimos los cuentas a las que vamos a enviar el correo 'Correos = "sonia@emeieme.com" Correos = "hotel@abadiadelpriorat.com" 'Se crea el objeto con CDOSYS Set myMail = CreateObject("CDO.Message") myMail.MimeFormatted = True 'Se crea un objeto para manipular las configuraciones Set myConf = Server.CreateObject("CDO.Configuration") 'Set objBP = myMail.AddRelatedBodyPart(Server.MapPath("spavision.jpg"), "spavision.jpg", CdoReferenceTypeName) 'objBP.Fields.Item("urn:schemas:mailheader:Content-ID") = "" 'objBP.Fields.Update 'Variable con la dirección de schemas para la configuración de CDO ConfURL = "http://schemas.microsoft.com/cdo/configuration/" 'Se configuran las opciones with myConf 'Se establece que se empleará un servidor externo .Fields.Item(ConfURL & "sendusing") = 2 'Se establece la dirección del servidor externo .Fields.Item(ConfURL & "smtpserver") = "smtp.abadiadelpriorat.com" 'Se configura el puerto smtp .Fields.Item(ConfURL & "smtpserverport") = 25 'Se establece el uso de SSL .Fields.Item(ConfURL & "smtpusessl") = false 'Se establece autenticación básica .Fields.Item(ConfURL & "smtpauthenticate") = 1 'Usuario para autenticar .Fields.Item(ConfURL & "sendusername") = "ddm076c" 'Password para autenticar .Fields.Item(ConfURL & "sendpassword") = "20100621In" 'Se actualizan las configuraciones en el objeto myConf .Fields.Update end with with myMail 'Se agrega el titulo para el correo .Subject=CorreoTitulo 'Se agrega el remitente del correo .From=CorreoFrom 'Se agrega el destinatario para el correo .To=Correos 'Se agrega contenido html al correo textodelmensaje = "" if request.form("Nombre")>" " then textodelmensaje = textodelmensaje&"Nombre: "&request.form("Nombre")&"

" end if if request.form("Telefono")>" " then textodelmensaje = textodelmensaje&"Teléfono de contacto: "&request.form("Telefono")&"

" end if if request.form("Fax")>" " then textodelmensaje = textodelmensaje&"Fax: "&request.form("Fax")&"

" end if if request.form("Email")>" " then textodelmensaje = textodelmensaje&"Dirección de E-mail: "&request.form("Email")&"

" end if if request.form("Pais")>" " then textodelmensaje = textodelmensaje&"País: "&request.form("Pais")&"

" end if if request.form("DiaLlegada")>" " then textodelmensaje = textodelmensaje&"Fecha de llegada: "&request.form("DiaLlegada")&"/"&request.form("MesLlegada")&"/"&request.form("AnoLlegada")&"

" end if if request.form("HoraLlegada")>" " then textodelmensaje = textodelmensaje&"Hora de llegada: "&request.form("HoraLlegada")&" "&request.form("HoraLlegada2")&"

" end if if request.form("DiaSalida")>" " then textodelmensaje = textodelmensaje&"Fecha de salida: "&request.form("DiaSalida")&"/"&request.form("MesSalida")&"/"&request.form("AnoSalida")&"

" end if if request.form("NumHabitaciones")>" " then textodelmensaje = textodelmensaje&"Nº de habitaciones: "&request.form("NumHabitaciones")&"

" end if if request.form("TipoHabitacion")>" " then textodelmensaje = textodelmensaje&"Tipo de habitación: "&request.form("TipoHabitacion")&"

" end if if request.form("Adultos")>" " then textodelmensaje = textodelmensaje&"Nº de Adultos: "&request.form("Adultos")&"

" end if if request.form("Ninos")>" " then textodelmensaje = textodelmensaje&"Nº de Ninos:"&request.form("Ninos")&"

" end if if request.form("Observaciones")>" " then textodelmensaje = textodelmensaje&"Observaciones: "&request.form("Observaciones")&"

" end if textodelmensaje = textodelmensaje&"" .HTMLBody = textodelmensaje 'Se asocian las configuraciones al objeto prinpcipal del correo myMail.Configuration = myConf 'Se envia el correo .Send end with If Err <> 0 Then Response.Write "An error occurred: " & Err.Description End If response.Redirect("e_reservas.asp") 'Se libera la memoria set myMail=nothing set myConf=nothing end if %>

Name:
Telephone:
Fax:
E-mail:
Country:
Check in:	of of
Check in time:
Check out:	of of
Number of room(s):
Type of room:
Number of adults:
Number of children:
Comments:

	Tel.: 00 34 977 054030 - Fax.: 00 34 977 054029 e-mail: hotel@abadiadelpriorat.com



	You can contact us by filling out this form or calling us to our telephone and/or fax numbers:
	Tel.: 00 34 977 054030 Fax.: 00 34 977 054029 e-mail: hotel@abadiadelpriorat.com