%response.buffer=true%>
<%
'Estrazione pagina corrente
pg = TRIM(Request("pg"))
IF pg = "" THEN pg = 1
'Recupera la query dalle altre pagine
query = TRIM(Request("query"))
Set Con = Server.CreateObject("ADODB.Connection")
'Con.Open "dbescort"
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/dbescort.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = Con
RS.CursorType = adOpenStatic
'Il numero di RECORD per pagina deve essere pari a multipli di 5
'Questo parametro diventerà dinamico, gestibile da remoto
Sql_pg = "SELECT n_fotoG_Home FROM fotopg"
RS.Open Sql_pg
n_fotoG_Home = 20 '[per Enzo: <accompagnatrici roma
escort roma
accompagnatrici escort roma
accompagnatrici roma
accompagnatrici roma
escort roma
accompagnatrici escort roma