• Can Bielet
• Talamanca
• Valls del Montcau
• Comment y arriver
• Contact
• Activités
• Occupation

<% 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 %>

Opinion des hostes

Formulaire de contact

Le reenvoi de ce formulaire n'implique pas la réserve de la maison. La confirmation est nécessaire pour qu'elle soit effective (en caractère gras, les champs obligatoires).

Nom|Prénom:
Téléphone:
mail:
Date entrée:
Date sortie:
	<% 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 "Janvier" else response.write "Janvier" if month(Date())=2 then response.write "Février" else response.write "Février" if month(Date())=3 then response.write "Mars" else response.write "Mars" if month(Date())=4 then response.write "Avril" else response.write "Avril" if month(Date())=5 then response.write "Mai" else response.write "Mai" if month(Date())=6 then response.write "Juin" else response.write "Juin" if month(Date())=7 then response.write "Juillet" else response.write "Juillet" if month(Date())=8 then response.write "Août" else response.write "Août" if month(Date())=9 then response.write "Septembre" else response.write "Septembre" if month(Date())=10 then response.write "Octobre" else response.write "Octobre" if month(Date())=11 then response.write "Novembre" else response.write "Novembre" if month(Date())=12 then response.write "Décembre" else response.write "Décembre" %> <% 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 Me Je Ve Sa Di
Num nuits:
Num. personnes:
Nº. enfants:
Commentaires:

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