<% Set con=Server.CreateObject("ADODB.Connection") con.open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/mdb-database/db.mdb") dbCode="5ANJzWYGVs7hLYQX" dbuser="piraext" dbServer="unix01.piramedia.it" dbDriver="MySQL ODBC 3.51 Driver" dbname="databaseMo" conMo = "server=" & dbServer & ";db=" & dbName & ";driver=" & dbDriver & ";uid=" & dbUser & ";pwd=" & dbCode & ";" FUNCTION fixquotes (thestring) fixquotes = REPLACE (thestring, "'", "''" ) END FUNCTION Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = con sqlString = "select * from scheda" RS.open sqlString nome = rs("nome") italiano = rs("italiano") inglese = rs("inglese") tedesco = rs("tedesco") francese = rs("francese") sito = rs("sito") email = rs("email") password = rs("password") portale = rs("portale") altro = rs("altro") naltro = rs("naltro") ml = rs("ml") id_portale = rs("idportale") %> Agriturismo Montaione, Appartamenti e case vacanze a Montaione, Firenze

Belmonte Vacanze

Agriturismo a Montaione

Agriturismo

Agriturismo Residence Belmonte a Montaione, Firenze

Belmonte Vacanze

Foto Album

.: Album Fotografico :.

Se desiderate inviarci le vostre foto, spedite una e-mail a: info@agriturismo-e.com

<%Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = con sqlString = "select * from foto order by categoria asc, testo asc" RS.open sqlString while not rs.eof a = a +1%> <%if cat <> rs("categoria") then%>

<%=rs("categoria")%><%a=1%>
<%end if%> .jpg" target="_blank" class="foto" rel="lightbox[<%=rs("categoria")%>]">.jpg&width=75&height=55" style="border: 1px solid #CA7502"> <%if a mod 6 = 0 then%>
<%end if%> <%cat = rs("categoria")%> <%rs.movenext wend%>

Piscina

Piscina

Belmonte Case Per Vacanze Srl - p.i./c.f. Rea 04918310485 - 2007 - Tutti i diritti riservati.