<%@LANGUAGE="VBSCRIPT"%> <% Response.CacheControl = "no-cache" Response.AddHeader "pragma","no-cache" Response.Expires = -1 %> Fundo San Bonifacio,cabalgatas en Chile, turismo rural, agroturismo
Ir al home
ENGLISH  |  ESPAÑOL
Trip Advisors  Síguenos en Facebook

Turismo rural, agroturismo y aventura

 

RESERVAS / BOOKING

 

<% if Request.ServerVariables("REQUEST_METHOD") = "POST" and IsEmpty(Request.Form("btnRetry")) then Dim lblResult, lblColor if IsEmpty(Session("ASPCAPTCHA")) or Trim(Session("ASPCAPTCHA")) = "" then lblResult = "This test has expired." lblColor = "red" else Dim TestValue : TestValue = Trim(Request.Form("txtCaptcha")) '//Uppercase fix for turkish charset// TestValue = Replace(TestValue, "i", "I", 1, -1, 1) TestValue = Replace(TestValue, "İ", "I", 1, -1, 1) TestValue = Replace(TestValue, "ı", "I", 1, -1, 1) '//////////////////// TestValue = UCase(TestValue) if StrComp(TestValue, Trim(Session("ASPCAPTCHA")), 1) = 0 then lblResult = "CAPTCHA PASSED" lblColor = "green" Dim txtNombres Dim txtApellidos Dim txtCorreo Dim txtPais Dim txtTelefono Dim datePriFechaLlegada Dim datePriFechaSalida Dim txtPersonas Dim txtComentario Dim mensaje2 txtNombres = replace(request.Form("txtNombres"),"'","´") txtApellidos = replace(request.Form("txtApellidos"),"'","´") txtCorreo = replace(request.Form("txtCorreo"),"'","´") txtPais = replace(request.Form("txtPais"),"'","´") txtTelefono = replace(request.Form("txtTelefono"),"'","´") datePriFechaLlegada = replace(request.Form("datePriFechaLlegada"),"'","´") datePriFechaSalida = replace(request.Form("datePriFechaSalida"),"'","´") txtPersonas = replace(request.Form("txtPersonas"),"'","´") txtComentario = replace(request.Form("txtComentario"),"'","´") Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.fundosanbonifacio.cl" Mail.From = txtCorreo ' Construir mensaje a enviar mensaje2 = "" mensaje2 = "Contacto" & vbCRLF mensaje2 = mensaje2 & "--------------------------------------------------" & vbCRLF mensaje2 = mensaje2 & "Apellidos : " & txtApellidos & vbCRLF mensaje2 = mensaje2 & "Nombre : " & txtNombres & vbCRLF mensaje2 = mensaje2 & "Correo : " & txtCorreo & vbCRLF mensaje2 = mensaje2 & "Pais : " & txtPais & vbCRLF mensaje2 = mensaje2 & "Teléfono : " & txtTelefono & vbCRLF mensaje2 = mensaje2 & "Llegada : " & datePriFechaLlegada & vbCRLF mensaje2 = mensaje2 & "Salida : " & datePriFechaSalida & vbCRLF mensaje2 = mensaje2 & "Nº Personas : " & txtPersonas & vbCRLF mensaje2 = mensaje2 & "Comentario : " & txtComentario & vbCRLF mensaje2 = mensaje2 & "Sistema Contactos Fundo San Bonifacio" Mail.FromName ="Contacto Fundo San Bonifacio" Mail.Subject = "RESERVAS FUNDO SAN BONIFACIO" Mail.Body = mensaje2 Mail.AddAddress "book@fundosanbonifacio.cl" Mail.AddAddress "atencion@fundosanbonifacio.cl" Mail.AddAddress "sanbonifacio2016@gmail.com" Mail.AddAddress "atencion@fundosanbonifacio.cl" Mail.Send response.redirect "respuesta_contacto.html" else lblResult = "CAPTCHA FAILED" lblColor = "red" end if '//IMPORTANT: You must remove session value for security after the CAPTCHA test// Session("ASPCAPTCHA") = vbNullString Session.Contents.Remove("ASPCAPTCHA") '//////////////////// end if %> <%else%> <%end if%>

Formulario de Reserva / Reservation Form

Nombres / First Name
Apellidos / Last Name
E-mail
País / Country
Teléfono / Phone
Fecha de llegada / Check in
Fecha de Salida Check out
Nº Personas / N° People
Comentarios / Comments
 
Escriba los caracteres que aparecen:         

 


Error en el Captcha!
Recargar Captcha
         

 

   
 

 

 

DATOS DE CONTACTO

 

E-mail

atencion@fundosanbonifacio.cl         

CONTACTO: +56992403090  

 

Mapa
Ver mapa de ubicación

.......................................

 

CONTACT INFO

 

E-mail

atencion@fundosanbonifacio.cl

Phone 24 hrs: +56992403090  

 

Map
View map of location

 

Teléfono 24 HRS: +56 9 9240 30 90  

CONTACTAR: atencion@fundosanbonifacio.cl

By Data Logica

Green Friendly    Green Wi Fi     Green Wi Fi