partendo dallo script #208 , non riesco a personalizzare il link per passare ad esempio a pagina due dove dovrebbere mostrarmi i 10 record successivi.
I record ci sono trova 112 risultati e sono quindi 13 pagine.
il link della prima pagina dei risultati è :

risRicercaMenu.asp?mese=Gennaio&testata=0&catTestate=0

a pagina due mi ritrovo con questo link=
risRicercaMenu.asp?pagina=2&mese=Gennaio&testata=0&catTestate=0

come faccio a spostarmi al record 11 se pagina = 2 ?

grazie di un eventuale aiuto
Fede


if (vcategoria="0" and vtestata="0") then

RecordsPerPagina = 10
page = Request("page")
if page="" then page=1

Set rscen = Server.CreateObject("ADODB.Recordset")
sqlcen="SELECT art_rass.id, art_rass.IdTestata, art_rass.Anno, art_rass.Mese, art_rass.Data, art_rass.Tipo, art_rass.Titolo, art_rass.SottoTitolo, art_rass.Testo, testata.testata FROM testata INNER JOIN art_rass ON (testata.id = art_rass.IdTestata) WHERE art_rass.anno = '" &vanno &"' "
sqlcen = sqlcen & " AND art_rass.mese = '" &vmese & "' ORDER BY art_rass.data DESC "
rscen.Open sqlcen, myconn, 1,3

rscen.PageSize = RecordsPerPagina
rscen.AbsolutePage = page
qtarisultati =rscen.RecordCount

%>
<table>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="64">
<tr valign="top">
<td background="../images/barratit.gif" width="88%" class="autrice">  a
cura di </td>
</tr>
<% if rscen.EOF then %>
<tr>
<td> nessun articolo presente in archivio </td>
</tr>
<% else %>
<tr>
<td width="100%" class="titolo">Rassegna Stampa: Archivio generale articoli</td>
</tr>
<tr>
<td valign="top" width="88%" class="sottotitolo">
<i>Anno:</i><%=(rscen.Fields.Item("anno").Value)%><br>
<i>Mese:</i><%=(rscen.Fields.Item("mese").Value)%><br>
</td>
</tr>
<tr><td><hr noshade size="1"></td></tr>
<tr><td>
<%Response.Write "Sono stati trovati: <b>" & qtarisultati &"</b> articoli nell'archivio <br>"
Response.Write "<B>Pagine:</B> "
For pag=1 to rscen.PageCount

Response.Write "<A href='risRicercaMenu.asp?pagina=" & pag
Response.Write "&mese=" & vmese
Response.Write "&testata=" & vtestata
Response.Write "&catTestate=" & vcategoria

Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "<br>" %>
</td></tr>
<tr><td><hr noshade size="1"></td></tr>
<tr><td>
<% For i=1 to RecordsPerPagina
if not rscen.EOF then %>
<tr>
<td> <a href="dettaglio.asp?id=<%=(rscen.Fields.Item("Id").Value)%>"><%=(rscen.Fields.Item("Titolo").Value)%></a><br>
<i><%=(rscen.Fields.Item("SottoTitolo").Value)%></i><br>
<font size="1"><%=(rscen.Fields.Item("Data").Value)%> >> <%=(rscen.Fields.Item("testata").Value)%>>> <%=(rscen.Fields.Item("tipo").Value)%> </font>
<hr noshade size="1">
</td>
</tr>
<% rscen.MoveNext()
end if
next




end if

%>
</td></tr>
</table>
</td>
</tr>



</table>