numero progressivo record

[elthundra]

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>

[optime]

se sai quale è la pagina che stai mostrando, fai partire il contatore da (pagina-1)*100 anziché da 0

[EmTmE]

Originariamente inviato da optime
se sai quale è la pagina che stai mostrando, fai partire il contatore da (pagina-1)*100 anziché da 0

mi associo ... sicuramente è quello il problema se ti funziona solo sulla prima e poi riparte da zero.

[optime]

Originariamente inviato da EmTmE
mi associo ... sicuramente è quello il problema se ti funziona solo sulla prima e poi riparte da zero.

ah beh, e c'è la tua benedizione...

[EmTmE]

ah ah ah mica lo dicevo per quello figuriamoci !!!
era un modo per rincuorare elthundra riguarda al fatto che aveva fatto tutto bene ed era solo questione di un qualche piccolo dettaglio quasi banale.

[optime]

Originariamente inviato da EmTmE
ah ah ah mica lo dicevo per quello figuriamoci !!!
era un modo per rincuorare elthundra riguarda al fatto che aveva fatto tutto bene ed era solo questione di un qualche piccolo dettaglio quasi banale.

appunto. dovevi pure rincuorarlo e rassicurarlo. una carezzina sulla capoccia e il bacetto della buonanotte, la prossima volta

[EmTmE]

Originariamente inviato da optime
appunto. dovevi pure rincuorarlo e rassicurarlo. una carezzina sulla capoccia e il bacetto della buonanotte, la prossima volta

Visto che lo dici tu non posso che obbedire