<% 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") = "rcx428c" 'Password para autenticar .Fields.Item(ConfURL & "sendpassword") = "20050818In" '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 = "Nombre: "&request.form("Nombre")&"
Teléfono contacto: "&request.form("Telefono")&"
Nº de Fax: "&request.form("Fax")&"
Direccion E-Mail: "&request.form("Email")&"
País: "&request.form("Pais")&"
Fecha de llegada: "&request.form("DiaLlegada")&"/"&request.form("MesLlegada")&"/"&request.form("AnoLlegada")&"
Hora de llegada: "&request.form("HoraLlegada")&" "&request.form("HoraLlegada2")&"
Fecha de salida: "&request.form("DiaSalida")&"/"&request.form("MesSalida")&"/"&request.form("AnoSalida")&"
Nº de adultos: "&request.form("Adultos")&"
Nº de niños: "&request.form("Ninos")&"
Observaciones: "&request.form("Observaciones") .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("reservas.asp") end if %>
INICIO - HABITACIONES - ZONAS COMUNES - LOCALIZACIÓN - GALERÍA DE IMÁGENES - PRECIOS - CONTACTA - RESERVAS       


Rellenando este formulario puede solicitar su reserva.
 Será respondido lo antes posible.
 Organice su estancia con antelación

Nombre:

Teléfono:

Fax:
E-mail:
País:
Fecha de llegada: de de
Hora llegada:
Fecha de salida: de de
Nº de adultos:
Nº de niños :

Comentarios:
       
Política de Reservas
50% del pago al efectuar la reserva, y el resto una semana antes de la fecha reservada.

Cal Sans
Tf.: 616 928251
nuria@abadiadelpriorat.com