dopo l'estrazione e impaginazione (a più pagine) di record da un database, avrei bisogno di attibuire un numero progressivo da 1 a x ad ogni record da mostrare, nel mio caso, nella prima colonna della tabella.
ho fatto dei tentativi, e per quanto riguarda la prima pagina (100 record) nessun problema (da 1 a 100), ma dalla seconda pagina la numerazione riprende da 1 e non da 101.
come si potrebbe riuscire?

lo script (senza le prove di numerazione) è fatto così:

<%@LANGUAGE = VBScript%>
<%
Dim sc, cn, rs, quanti, pag, contatore
sc = ""
sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
sc = sc & Server.MapPath("mdb-database/database.mdb")
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open sc
quanti = 100
pag = Request.QueryString("pag")
If IsNumeric(pag) = False Or pag < 1 Then pag = 1
contatore = 0
%>
<table border="0" cellpadding="1" cellspacing="0" width="100%">

<%
rs.Open "SELECT * FROM dati WHERE cap > 0 ORDER BY cap DESC, car DESC, cognome ASC", cn, 1
rs.PageSize = quanti
rs.AbsolutePage = pag
While rs.EOF = False And contatore < quanti
%>
<tr>
<td width="60%"><%=rs("cognome")%><%=rs("nome")%></td>
<td width="20%"><%=rs("cap")%></td>
<td width="20%"><%=rs("car")%></td>
</tr>
<%
rs.MoveNext
contatore = contatore + 1
Wend
%>
</table>
<%
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>


<%If pag > 1 Then%>
Precedente
<%End If%>
<%
Dim x
x = 1
For x = 1 To rs.PageCount
If CInt(pag) <> x Then
%>
<font color="#FFFF00"><%=x%></font>
<%
Else
%>
<%=x%>
<%
End If
Next
%>
<%If rs.EOF = False Then%>
<font color="#FFFF00">Successiva</font>
<%End If%></p>