<%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: <>](RS("n_fotoG_Home")-5)
RS.Close
RS.PageSize = n_fotoG_Home
%>
::
Contatti
::
Per
ottenere ogni tipo di informazione,
in merito ai servizi offerti da Roma Transex,
è possibile entrare in contatto con noi esclusivamente via Email:
