• Can Bielet
• Talamanca
• Valles del Montcau
• Cómo llegar
• Contacto
• Actividades
• Fechas libres

<% vnom=Request.Form("nom") vtelefon=Request.Form("telefon") vmail=Request.Form("mail") vdata_e=Request.Form("data_e") vdata_s=Request.Form("data_s") vnum_nits=Request.Form("num_nits") vnum_pers=Request.Form("num_pers") vnum_nens=Request.Form("num_nens") vcomentaris=Request.Form("comentaris") if vnom<>"" and vtelefon<>"" and vdata_e<>"" and vdata_s<>"" and vnum_nits<>"" and vnum_pers<>"" then Response.write "Datos enviados" Response.write "La petición se atenderá en las próximas horas. Para cualquier duda, llamar al teléfono 687.01.88.01" response.write "

Nombre: " & vnom & "
" response.write "Teléfono: " & vtelefon & "
" response.write "Mail: " & vmail & "
" response.write "Fecha entrada: " & vdata_e & "
" response.write "Fecha salida: " & vdata_s & "
" response.write "Número de noches: " & vnum_nits & "
" response.write "Número de personas: " & vnum_pers & "
" response.write "Número de niños: " & vnum_nens & "
" response.write "Comentarios: " & vcomentaris & "

" Set Correu = Server.CreateObject("Persits.MailSender") Correu.Host = "smtp.canbielet.com" Correu.Charset="ISO-8859-1" 'per tal de què funcionin els accents Correu.Username="mbs342c" Correu.Password="kleinman" Correu.From = "info@canbielet.com" Correu.AddAddress "info@canbielet.com" Correu.Subject = Correu.EncodeHeader("Petició de reserva a Can Bielet") cad_mail="Petición de reserva procesada en el formulario de canbielet.com." & chr(13) & chr(10) cad_mail=cad_mail & "Nombre: " & vnom & chr(13) & chr(10) cad_mail=cad_mail & "Teléfono: " & vtelefon & chr(13) & chr(10) cad_mail=cad_mail & "Mail: " & vmail & chr(13) & chr(10) cad_mail=cad_mail & "Fecha entrada: " & vdata_e & chr(13) & chr(10) cad_mail=cad_mail & "Fecha salida: " & vdata_s & chr(13) & chr(10) cad_mail=cad_mail & "Núm noches: " & vnum_nits & chr(13) & chr(10) cad_mail=cad_mail & "Núm personas: " & vnum_pers & chr(13) & chr(10) cad_mail=cad_mail & "Núm niños: " & vnum_nens & chr(13) & chr(10) cad_mail=cad_mail & "Comentarios: " & vcomentaris & chr(13) & chr(10) Correu.Body = cad_mail Correu.Send Set correu = Nothing else if vnom<>"" or vtelefon<>"" or vdata_e<>"" or vdata_s<>"" or vnum_nits<>"" or vnum_pers<>"" then if vnom="" then response.write "Nombre, campo obligatorio
" if vtelefon="" then response.write "Teléfono, campo obligatorio
" if vdata_e="" then response.write "Fecha de entrada, campo obligatorio
" if vdata_s="" then response.write "Fecha de salida, campo obligatorio
" if vnum_nits="" then response.write "Número de noches, campo obligatorio
" if vnum_pers="" then response.write "Número de personas, campo obligatorio
" end if %>

Qué opinan los huéspedes

Formulario de contacto

El envío de este formulario no implica la reserva de la casa. Es necesaria la confirmación para que sea efectiva. En negrita, campos obligatorios.

Nombre:
Teléfono:
mail:
Fecha entrada:
Fecha salida:
	<% for setm= 0 to 5 response.write "" for dies= 0 to 6 response.write "" next response.write "" next %> <% if month(Date())=1 then response.write "Enero" else response.write "Enero" if month(Date())=2 then response.write "Febrero" else response.write "Febrero" if month(Date())=3 then response.write "Marzo" else response.write "Marzo" if month(Date())=4 then response.write "Abril" else response.write "Abril" if month(Date())=5 then response.write "Mayo" else response.write "Mayo" if month(Date())=6 then response.write "Junio" else response.write "Junio" if month(Date())=7 then response.write "Julio" else response.write "Julio" if month(Date())=8 then response.write "Agosto" else response.write "Agosto" if month(Date())=9 then response.write "Septiembre" else response.write "Septiembre" if month(Date())=10 then response.write "Octubre" else response.write "Octubre" if month(Date())=11 then response.write "Noviembre" else response.write "Noviembre" if month(Date())=12 then response.write "Diciembre" else response.write "Diciembre" %> <% if month(Date())=2008 then response.write "2008" else response.write "2008" if month(Date())=2009 then response.write "2009" else response.write "2009" if month(Date())=2010 then response.write "2010" else response.write "2010" if month(Date())=2011 then response.write "2011" else response.write "2011" %> Lu Ma Mi Ju Vi Sa Do
Núm noches:
Núm personas:
Núm niños:
Comentarios:

Tel. 608.75.50.10 Tel. 637.71.05.41 <% end if %>