Ho creato questa pagina per richiamare i records di un database che costituiscono le categorie di un forum.Chiedo aiuto perchè non riesco a capire dove sta l'errore dovuto al fatto che la prima poagina visulaizza comunque tutti i records mentre le successive rispettano i criteri assgìegnati.
Il codice da me scritto è questo:
<!--#include file="frmtestata.asp"-->
<%
'recupero la pagina
page = Request.QueryString("page")
' imposto il numero di record per pagina
perpage = 2
%>
<%
Set cn = Server.CreateObject("ADODB.Connection")
%><!--#include file="Connections/frmOpencn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM QCategoria ORDER BY nArg Desc"
rs.Open strSQL,cn, 1, 3
%>
<%
'imposto la variabile in modo da ottenere l'ultima se non ne viene specificata un'altra
If page = "" then
page = (rs.PageCount)
End if
'imposto la dimensione della pagina
Rs.PageSize = perpage
' mi sposto all'ultima pagina
Rs.AbsolutePage = page
%>
<%
Set objID=rs("ID")
Set objCategoria=rs("Categoria")
Set objData=rs("Data")
Set objnArg=rs("nArg")







if rs.EOF then
response.write("<h3>Spiacente, non e' stata inserita nessuna categoria.</h3>")
else
dim pari 'booleano per identificare se siamo in una riga pari o in una dispari
pari = false
%>

<table width="100%" cellpadding="1" >
<tr align="left">
<td width="60%" class="Testata"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> Categoria</font></strong></td>
<td class="Testata"><div align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> Data</font></strong></div></td>
<td class="Testata" align="center"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Argomenti
Trattati</font></strong></td>
</tr>

<%
Do Until rs.EOF
if pari then
%>
<tr class="rigapari">
<%else%>
<tr class="rigadispari">
<%end if%>

<td><div align="left"> <a href="arg01.asp?ID=<%= objID%>"><%=objCategoria%></a></div></td>
<td align="center"><div align="center"><%= objData%></div></td>
<td align="center"><%=objnArg%> </td>
</tr>
<%
pari = not pari ' inverto il valore della variabile booleana

rs.movenext
loop
%>






</table>

<%

'scrivo i link ai 10 record
For i = 1 to perpage
If Not rs.EOF then
if rs("ID") < 2 then
Response.Write ("[<a href='cat01.asp?ID=" & rs("ID") & "'>0" & rs("ID") & "</a>' target=_blank> ")
else
Response.Write ("[<a href='cat01.asp?ID=" & rs("ID") & "'>" & rs("ID") & "</a>' target=_blank> ")
end if
rs.MoveNext
end if
next

'scrivo i numeri delle pagine
Response.Write "<P><B>Pagine:</B> "

For pag = 1 to rs.PageCount
if page = pag then
'grassetto per la pagina corrente
Response.Write "<b>"
Response.Write "<A href='cat01.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Response.Write "</b>"
else
'normale per le altre pagine
Response.Write "<A href='cat01.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
end if
Next

Response.Write "</P>"

%>

<% end if
Set cn = nothing
Set rs = nothing
%>
grazie per l'aiuto