<%
mesi= Array( "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov","Dec")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/quercia.mdb")
if request("cancella")<>"" then conn.execute "DELETE FROM news WHERE id="&request("cancella")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM news ORDER BY data DESC"
rs.Open sql, conn
do while not rs.eof
%>
<%=rs("titolo")%>
<%if rs("link")<>"" then response.write " Link "%> |
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
"Agriturismo La Quercia Verde" - Quiete, benessere ed ospitalita'
Siamo lieti di accogliervi nel nostro agriturismo, a conduzione familiare, nel cuore della collina piacentina.
Nelle immediate vicinanze importanti mete turistiche e culturali
In azienda grande contatto con la natura, gli animali della fattoria e numerosi svaghi
