Ciao a tutti1

Ho un problema e non riesco a venirne a capo...il problema è piuttosto strano ovvero devo paginare dei dati e con il mio script mi si paginano correttament sulla prima pagina mentre nelle seguenti non appare nessun risultato...cosa altrettanto insolita è che comunque crea le pagine seguenti per i risultati ma sono assolutamente vuote!

Vi allego il codice cosi avete un'idea! :rollo: Io sono giorni ma nn ne riesco a venire a capo!

<%@LANGUAGE = VBScript%>

<%
' DEFINISCO LE VARIABILI CHE MI SERVONO PER L'APPLICAZIONE
Dim cn, rs, quanti, pag, contatore


' Creo un'istanza per la connessione ed una per il Recordset
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

' APRO LA CONNESSIONE COL DATABASE
cn.Open str_cn

' DEFINISCO IL NUMERO DI RECORD DA VISUALIZZARE PER OGNI PAGINA
quanti = 1

' RECUPERO IL NUMERO DI PAGINA CORRENTE
' E CONTROLLO CHE NON SIA INFERIORE A 1
pag = Request.QueryString("pag")
If IsNumeric(pag) = False Or pag < 1 Then pag = 1

' IMPOSTO UN CONTATORE
contatore = 0
%>
<html>
<head>
<title>Paginazione dei risultati di query molto lunghe in ASP</title>
<style>a { color: blue; }</style>
</head>
<body>

<table align="center" width="300" border="1">
<%
Dim SQL ' Creo la query SQL
SQL = "SELECT * FROM dati"
' EFFETTUO MATERIALMENTE LA PAGINAZIONE
rs.Open sql, cn, 3,3
rs.AbsolutePage = pag
rs.PageSize = quanti

' ESEGUO IL CICLO
While rs.EOF = False And contatore < quanti
%>
<tr><td><%=rs("nome")%></td></tr>
<%
rs.MoveNext
' INCREMENTO IL VALORE DEL CONTATORE
contatore = contatore + 1
Wend
%>
</table>


Vi ringrazio per l'aiuto! Un saluto! Alex