• Can Bielet
• Talamanca
• Valls del Montcau
• Com arribar-hi
• Contacte
• Activitats
• Dates lliures

<% 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 "Dades enviades" Response.write "La petició s'atendrà en les properes hores. Per qualsevol dubte, truqueu al telèfon 687.01.88.01" response.write "

Nom: " & vnom & "
" response.write "Telèfon: " & vtelefon & "
" response.write "Mail: " & vmail & "
" response.write "Data d'entrada: " & vdata_e & "
" response.write "Data de sortida: " & vdata_s & "
" response.write "Número de nits: " & vnum_nits & "
" response.write "Número de persones: " & vnum_pers & "
" response.write "Número de nens: " & vnum_nens & "
" response.write "Comentaris: " & 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ó de reserva processada en el formulari de canbielet.com." & chr(13) & chr(10) cad_mail=cad_mail & "Nom: " & vnom & chr(13) & chr(10) cad_mail=cad_mail & "Telèfon: " & vtelefon & chr(13) & chr(10) cad_mail=cad_mail & "Mail: " & vmail & chr(13) & chr(10) cad_mail=cad_mail & "Data entrada: " & vdata_e & chr(13) & chr(10) cad_mail=cad_mail & "Data sortida: " & vdata_s & chr(13) & chr(10) cad_mail=cad_mail & "Num nits: " & vnum_nits & chr(13) & chr(10) cad_mail=cad_mail & "Num persones: " & vnum_pers & chr(13) & chr(10) cad_mail=cad_mail & "Num nens: " & vnum_nens & chr(13) & chr(10) cad_mail=cad_mail & "Comentaris: " & 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 "Nom, camp obligatori
" if vtelefon="" then response.write "Telèfon, camp obligatori
" if vdata_e="" then response.write "Data d'entrada, camp obligatori
" if vdata_s="" then response.write "Data de sortida, camp obligatori
" if vnum_nits="" then response.write "Número de nits, camp obligatori
" if vnum_pers="" then response.write "Número de persones, camp obligatori
" end if %>

Què opinen els hostes

Formulari de contacte

L'enviament d'aquest formulari no implica la reserva de la casa. És necessària la confirmació per tal que sigui efectiva. Amb negreta, camps obligatoris.

Nom:
Telèfon:
mail:
Data entrada:
Data sortida:
	<% 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 "Gener" else response.write "Gener" if month(Date())=2 then response.write "Febrer" else response.write "Febrer" if month(Date())=3 then response.write "Març" else response.write "Març" if month(Date())=4 then response.write "Abril" else response.write "Abril" if month(Date())=5 then response.write "Maig" else response.write "Maig" if month(Date())=6 then response.write "Juny" else response.write "Juny" if month(Date())=7 then response.write "Juliol" else response.write "Juliol" if month(Date())=8 then response.write "Agost" else response.write "Agost" if month(Date())=9 then response.write "Setembre" else response.write "Setembre" if month(Date())=10 then response.write "Octubre" else response.write "Octubre" if month(Date())=11 then response.write "Novembre" else response.write "Novembre" if month(Date())=12 then response.write "Desembre" else response.write "Desembre" %> <% 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" %> Dl Dm Dx Dj Dv Ds Dg
Num nits:
Num. persones:
Núm. nens:
Comentaris:

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