Reserva

Rellene el formulario para la reserva.

<% If Request.Form("mngfeedback") = "" Then %>

*Nombre:


Dirección:


*CP:


*E-Mail:


Fax:


*Teléfono:


Datos para el registro:
*Entrada:
Día   Mes   Año 

 Salida:
Día   Mes   Año 

*Tipo de habitación:
Doble  Simple 

Incluya sus comentarios:

Los campos marcados con * son obligatorios
 
<% End If 'If Request.Form("mngfeedback") <> "1" Then If Request.Form("mngfeedback") = "1" then nombre = Request.Form("nombre") direccion = Request.Form("direccion") cp = Trim(Request.Form("cp")) fax = Trim(Request.Form("fax")) telefono = Trim(Request.Form("telefono")) email = Trim(Request.Form("email")) fecha = Request.Form("fecha") comentarios = Replace(Request.Form("Comentarios"),vbCrLf,"
") fechaentrada = Request.Form("dia_entrada")&"/"&Request.Form("mes_entrada")&"/"& Request.Form("anyo_entrada") fechasalida = Request.Form("dia_salida")&"/"&Request.Form("mes_salida")&"/"& Request.Form("anyo_salida") thab = "" If Request.Form("vdoble") = "si" Then thab = "Habitación Doble" End If If Request.Form("vsimple") = "si" Then thab = "Habitación Simple" End If If nombre = "" Then nombrenv = "Debe introducir un nombre.
" Else If Len(nombre) < 2 Then nombrenv = "El nombre introducido no es válido.
" Else nombrenv = "" End If End If If cp = "" Then cpnv = "Debe introducir un código postal válido.
" Else If Len(cp) < 5 Then cpnv = "El código postal introducido no es válido.
" Else o=0 errscp=0 For i=1 to Len(cp) 'Recorremos el número' valorc = Mid(cp, i, i-o) If valorc <> chr(48) AND valorc <> chr(49) AND valorc <> chr(50) AND valorc <> chr(51) AND valorc <> chr(52) AND valorc <> chr(53) AND valorc <> chr(54) AND valorc <> chr(55) AND valorc <> chr(56) AND valorc <> chr(57) Then errscp=1 End If o=o+1 Next If errscp = 1 Then cpnv = "El código postal introducido no es válido.
" Else cpnv = "" End If End If End If If telefono = "" Then telefononv = "Debe introducir un teléfono de contacto.
" Else If Len(telefono) < 9 Then telefononv = "El teléfono de contacto introducido no es correcto.
" Else o=0 errscp=0 For i=1 to Len(telefono) 'Recorremos el número' valorc = Mid(telefono, i, i-o) If valorc <> chr(48) AND valorc <> chr(49) AND valorc <> chr(50) AND valorc <> chr(51) AND valorc <> chr(52) AND valorc <> chr(53) AND valorc <> chr(54) AND valorc <> chr(55) AND valorc <> chr(56) AND valorc <> chr(57) Then errscp=1 End If o=o+1 Next If errscp = 1 Then telefononv = "El teléfono de contacto introducido no es correcto.
" Else telefononv = "" End If End If End If If Request.Form("email") <> "" Then 'Se hace la comprobacion.' ubicacion_arroba = InStr(email, "@") emailnv = "" ' Nos fijamos que tenga mas de 5 caracteres de longitud (no existen mails de 5)' If Len(email) < 6 AND Len(email) > 0 Then emailnv = "La dirección de e-mail introducida no es válida.
" If Len(email) >= 6 Then ' Comprobamos que el símbolo "@" no sea el primer caracter del e-mail introducido' If InStr(email, "@") - 1 <= 0 Then emailnv = "La dirección de e-mail introducida no es válida.
" ' Nos fijamos que contenga el caracter "@"' If InStr(email, "@") = 0 Then emailnv = "La dirección de e-mail introducida no es válida;
debe especificar a qué dominio se refiere.
" ' Miramos si el último caracter es la "@"' If InStr(email, "@") <> 0 Then If Len(email) = InStr(email, "@") Then emailnv = "La dirección de e-mail introducida no es válida;
debe especificar a qué dominio se refiere.
" End If ' Nos fijamos que contenga el caracter punto y miramos si está tras la "@" y tiene extensión válida mínima de 2 caracteres' If ubicacion_arroba <> 0 Then If Len(email) > InStr(email, "@") Then If InStr(ubicacion_arroba, email, ".") = 0 Then emailnv = "La dirección de e-mail introducida no es válida;
debe especificar a qué extensión de dominio se refiere.
" If InStr(ubicacion_arroba, email, ".") <> 0 then If InStr(email, "@") + 1 = "." Then emailnv = "La dirección de e-mail introducida no es válida;
debe especificar a qué dominio se refiere.
" If InStr(email, "@") + 1 <> "." then If Len(email) = InStr(ubicacion_arroba, email, ".") Or Len(email) = (InStr(ubicacion_arroba, email, ".") + 1) Then emailnv = "La dirección de e-mail introducida no es válida;
debe especificar a qué extensión de dominio se refiere.
" End If End If End If End If End If Else ' El campo está vacío' emailnv = "Debe introducir una dirección de e-mail válida.
" End If If fechaentrada = "//" Then fentradanv = "Debe introducir una fecha de entrada.
" Else If DateDiff("d",fechaentrada,Date()) > 0 Then fentradanv = "La fecha de entrada introducida no es válida.
" Else fentradanv = "" End If End If If thab = "" Then thabnv = "Debe seleccionar el tipo de habitación.
" Else thabnv = "" End If If emailnv <> "" Or nombrenv <> "" Or cpnv <> "" OR telefononv <> "" OR fentradanv <> "" OR thabnv <> "" Then %>

 
Se encontraron errores al enviar su petición.
No se ha rellenado correctamente alguno o todos los campos obligatorios:
<%=nombrenv%><%=cpnv%><%=emailnv%><%=telefononv%><%=fentradanv%><%=thabnv%>
Por favor, vuelva a intentarlo e introduzca los datos correctamente.

Si desea más información, póngase en contacto con el administrador del sitio Web.

Volver atrás
<% End If If emailnv = "" And nombrenv = "" And cpnv = "" AND telefononv = "" AND fentradanv = "" AND thabnv = "" Then 'ASPEMail Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.elcallejondelbote.com" 'Servidor SMTP' Mail.From = "info@info@elcallejondelbote.com" 'Dirección (elcallejondelbote.com)' Mail.FromName = ""&nombre&" <"&email&"> WebCourier Elcallejondelbote.com" 'Nombre remitente' Mail.AddAddress "info@elcallejondelbote.com", "Servicio de atención al cliente de El Callejón del Bote" Mail.Subject = "Petición de información desde el sitio web coporativo de El Callejón del Bote" Mail.IsHTML = True Mail.Body = ""&fecha&"

De: "&nombre&" ["&email&"]

Dirección postal: "&direccion&" "&cp&"
Teléfono: "&telefono&"
Fax: "&fax&"
Correo electrónico: "&email&"

Día entrada: "&fechaentrada&"
Día salida: "&fechasalida&"

Comentarios:
"&comentarios&"" Mail.ContentTransferEncoding = "Quoted-Printable" On Error Resume Next Mail.Send If Err <> 0 Then %>   <% Response.Write "Se encontró un error al enviar su petición
Descripción del error encontrado:
"&Err.Description&"" %>

Por favor, vuelva a intentarlo más tarde o verifique si los datos introducidos son los correctos.

Si desea más información, póngase en contacto con el administrador del sitio Web.

Volver atrás <% Else %>   Su solicitud ha sido enviada con éxito a nuestro Servicio de Atención al Cliente.

Recibirá respuesta lo más pronto posible. Gracias por contactar con nosotros.

Volver atrás
Volver a la página principal <% End if 'If Err <> 0 Then Set Mailer = nothing End If 'If emailnv = "" And nombrenv = "" And cpnv = "" Then End If 'If Request.Form("mngfeedback") = "1" Then %>

Información

Si está interesado en recibir más información sobre nuestros servicios o realizar una reserva, puede contactar con nosotros en las direcciones referidas o, si lo prefiere rellene los siguientes campos y nos pondremos en contacto con usted lo más rápidamente posible.

Confirmación de reservas, pago del 20%.
Observaciones: No se permiten animales.

Precios:
Fin de Semana: 430€
1 Noche: 250€
3 Noches: 560€
4 Noches: 660€
Semana completa: 850€
Semana Santa: 730€