[an error occurred while processing this directive] <% cnf_siteurl = "http://www.agriturismo-e.com" cnf_ncommenti="10" Action = request.querystring("act") %> Farm Holiday in Tuscany - Belmonte Holiday in Tuscany
Belmonte

Belmonte Vacanze

Farmhouse in Montaione

Agriturismo
Agriturismo in TuscanyFarm Holiday in TuscanyAgritourisme en TuscanyBauernhof in Toskana
Agriturismo Residence Belmonte a Montaione, Firenze
Belmonte Vacanze
The Farmhouse Price & Offers Services Surroundings Contact Us
 
Contact Us
GuestBook
Links

.: Sign our Guestbook :.

<%if Action <> "save" Then%>

Your Name:

Your Email:

Message:

<%Randomize Timer ImageNo = CStr(Fix(9999 * Rnd)) Session("ImageNo") = ImageNo For i = 1 To Len(ImageNo) RndNum = 99999 * Rnd Response.Write "" Next%> paste the check numbers!

<%else conferma = request("conferma") If Trim(conferma) <> Session("ImageNo") Then response.redirect "scrivi_commento.asp" end if Dim Commento Commento = Request.Form("commento") if instr(commento, "http") then aaaa = 1 if instr(commento, "href") then aaaa = 1 end if else aaaa = 0 end if if aaaa = 0 then Commento = Replace(Commento, Chr(34), """) Commento = Replace(Commento, "<", "<") Commento = Replace(Commento, ">", ">") Commento = Replace(Commento, Chr(13), "
") Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "guestbook", con, 1, 3 Rs.AddNew() Rs("nome") = Request.Form("nome") Rs("email") = Request.Form("email") Rs("commento") = Commento Rs("data") = Now() Rs("ip_address") = Request.ServerVariables("REMOTE_ADDR") Rs.Update else response.write "NO" end if %>

<% if aaaa = 0 then%>

Your Sign has been added!
Click here to read our guestbook!

<%else%>

Spam Report from Ip <%=Request.ServerVariables("REMOTE_ADDR")%>
Click here to read our guestbook! <%end if%> <%End if%>

Swimming Pool del Belmonte Vacanze
 
Belmonte Case Per Vacanze Srl - p.i./c.f. Rea 04918310485 - 2007  - All Rights Reserved.