Salve a tutti, ho un problema nella paginazione dei risultati derivanti da una query ad un db access.
il codice sorgente è questo:

<%
Dim sTitle
Dim PaginaCorrente, ContaPagine, ContaRecord, I

Set rs = Server.CreateObject("ADODB.Recordset")

If Request.QueryString("Task") = "DeleteAnnounce" Then
Conn.Execute ("DELETE FROM news WHERE ID=" & Request.QueryString("ID") & ";")
End If

If Request.QueryString("PaginaNumero") = "" Then
PaginaCorrente = 1
Else
PaginaCorrente = CInt(Request.QueryString("PaginaNumero"))
End If
%>



...
...
...



<%
s.Open "SELECT * FROM news ORDER BY active", Conn, 1, 3
rs.PageSize = 8
rs.CacheSize = 8

If Not rs.EOF Then
ContaRecord = rs.RecordCount
ContaPagine = rs.PageCount

If ContaRecord > 0 Then
rs.AbsolutePage = PaginaCorrente
While Not rs.EOF AND rs.AbsolutePage <= PaginaCorrente
If Len(rs("title")) > 45 Then
sTitle = Trim(Left(rs("title"), 45)) & " .."
Else
sTitle = Trim(rs("title"))
End If
%>

<tr>
<td width="5%" align="center" bgcolor="#C0C0C0"><font face="Arial" size="2"><% If rs("active") = "True" Then Response.Write "Yes" Else Response.Write "No" End If %></font></td>
<td width="5%" align="center" bgcolor="#C0C0C0"><font face="Arial" size="2"><% If rs("keep") = "True" Then Response.Write "Yes" Else Response.Write "No" End If %></font></td>
<td width="44%" align="left" bgcolor="#C0C0C0" nowrap><div align="center">"><font face="Arial" size="2"><%= sTitle %></font></div></td>
<td width="18%" align="center" bgcolor="#C0C0C0"><font face="Arial" size="2"><%= rs("startdate") %></font></td>
<td width="18%" align="center" bgcolor="#C0C0C0"><font face="Arial" size="2"><%= rs("enddate") %></font></td>
<td width="5%" align="center" bgcolor="#C0C0C0">">[img]/images/edit.gif[/img]</td>
<td width="5%" align="center" bgcolor="#C0C0C0">)">[img]/images/delete.gif[/img]</td>
</tr>


<%
rs.MoveNext
Wend
End If
Else
%>

<tr>
<td width="5%" align="center" colspan="7" bgcolor="#C0C0C0"><font face="Arial" size="2">Non ci sono attualmente News </font></td>
</tr>

<%
End If
rs.Close
Conn.Close
Set rs = Nothing
%>

<tr>
<td width="100%" align="center" colspan="7" bgcolor="#C0C0C0">
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="Numero3">
<tr>
<td width="25%" align="left"><% If PaginaCorrente > 1 Then %><a href="news.asp?PaginaNumero=<%= PaginaCorrente - 1 %>"><% End If %>
<font face="Arial" size="2" color="#000000">[ Pagina Precedente]</font></a></td>
<td width="50%" align="center"><font color="#000000" size="2" face="Arial">Pag: </font>

<%
for i = 1 To ContaPagine
If I = PaginaCorrente Then
%>

<font color="#000000" size="2" face="Arial"><%= i %></font>

<% Else %>

<font color="#000000" size="2" face="Arial"><%= i %></font>

<%
End If
Next 'I
%>

</td>
<td width="25%" align="right">

<%
If PaginaCorrente < ContaPagine Then
%>

<a href="news.asp?PaginaNumero=<%= PaginaCorrente + 1 %>">

<%
End If
%>

<font color="#000000" size="2" face="Arial">[ Pagina Successiva]</font></a></td>



funziona tutto ma la paginazione non funziona bene, appena supero l'ottavo record dei risultati, mi viene data la possibilità di andare alla pagina successiva ma il non risultato è in entrambe le pagine, sia la prima che la seconda, questo procedimento prosegue anche aggiungendo altri 10 record, avrò in totale 20 record da paginare nelle pagine, quello che ottengo è:
20 record nella prima pagina,
12 record nella seconda,
4 record nella terza
Qualcuno può aiutarmi a capire dove sbaGLIO?
Grazie mille a chiunque sappia darmi una mano
Itnavad