<%
'<< Numero di record visualizzati per pagina
Record_Pagina = 7
'<< Numero di Pagine visualizzate nei link
Numerazione_Max = 10
Dim conn, rs, strSQL, percorso_DB, nome_DB
'--------------------------------------
'NOME DEL VOSTRO DATABASE
nome_DB = "../test.mdb"
percorso_DB = Server.MapPath (nome_DB)
'--------------------------------------
'<< connessione DB
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & percorso_DB
'<< connessione strSQL
strSQL = "SELECT * FROM links"
'<< connessione RS
Set rs = Server.CreateObject("ADODB.Recordset")
rs.PageSize = Record_Pagina
rs.Open strSQL, conn, 3, 3
'<< Recuperiamo il numero della pagina corrente
Pag = CInt(Request.Querystring("pag"))
'<< Controllo che il numero di pagina sia corretto
If (Not rs.Eof) Then
If Pag>rs.PageCount Then
Pag = rs.PageCount
End If
If Pag = 0 Then
Pag = 1
End If
'<< Setto la pagina corrente
rs.AbsolutePage = Pag
'<< Ora prepariamo i link alle pagine
indice_inizio = pag-(Numerazione_Max/2)
If (indice_inizio>(rs.PageCount-Numerazione_Max)) Then
indice_inizio = rs.PageCount-Numerazione_Max+1
End If
If (indice_inizio<=0) Then
indice_inizio = 1
End if
indice_fine=indice_inizio+Numerazione_Max-1
If (indice_fine>rs.PageCount) Then
indice_fine = rs.PageCount
End If
'<< Link alla prima pagina
Link = "<< Prima "
'<< Link alle pagine precedenti
If (indice_inizio<>1) Then
Link=Link&"... "
End If
For i=indice_inizio to indice_fine
'<< Pagina attuale
If (i=pag) then
Link = Link&"|"&i&"| "
'<< Link alle altre pagine
Else
Link = Link&"|"&i&"| "
End If
Next
'<< Link alle pagine successive
If (indice_fine... "
End If
'<< Link all'ultima pagina
Link=Link&"Ultima >> "
End If
%>
<%
Dim conta, pagina
'<< Creiamo la tabella dinamica
Response.Write "
"
'<< I link sono pronti, ora stampiamo i record
i=0
While (NOT rs.EOF)and(i"
Response.write "