Salve ho un problema con la paginazione ASP, ho un db access con due tabelle una si chiama ProductCategories dove c'è l'elenco principale delle mie categorie, l'altra tabella Prodcuts dove inserisco i dati delle mie categorie attraverso un form, vorrei paginare queste categorie visualizzandole 5 - 6 per pagina in un ordine decrescente cioè dal più vecchio al più nuovo, la mia pagina di risposta prodotti è questa:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
dim rs
dim rs2
dim cn
dim msg

set cn = Server.CreateObject("Adodb.Connection")
set rs = server.CreateObject("Adodb.Recordset")
cn.Open Conn
sqlstring = "Select * From ProductCategories"
rs.open sqlstring, cn


%>


<html>
<head>
<title>No title</title>
<meta name="generator" content="Namo WebEditor v6.0">
<link rel="stylesheet" href="stile.css" type="text/css">
<style type="text/css">
<!--
.appartamenti { font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: #000000}
-->
</style>
</head>

<body bgcolor="white" text="black" topmargin="0" marginheight="0">
<table border="0" align="center" width="600" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" valign="top">
<table border="0" cellpadding="0" cellspacing="0" align="center" width="600">
<tr>
<td width="600" height="167" style="border-left-width:1; border-left-style:none;">
<p align="center" style="line-height:1; margin-top:1; margin-bottom:1;">
<%if not request.QueryString("cid")<>"" then%>

<%end if%>
<%
if request.QueryString("cid")<>"" then
set rs = cn.execute("Select * From Products Where CategoryID=" & request.QueryString("cid"))
end if
%>
<%
if not rs.eof then
while not rs.eof
%>
</p>
<TABLE cellSpacing=3 cellPadding=0 border="0" align="center" bordercolordark="#00008C" bordercolorlight="#0D03A0" bordercolor="#070597" width="600">
<TR>
<TD valign="top">
<hr style="layout-flow:vertical-ideographic;" color="Silver" width="1" height="15">
</TD>
<TD width="150" height="103">
<DIV align=center>



<script>

function esempio(str) {

searchWin = window.open(str,'esempio','scrollbars=no,resizable =yes,width=650,height=500,status=yes,location=no,t oolbar=no');

// searchWin.refer = self;

}
</script>
<script>

function informazioni(str) {

searchWin = window.open(str,'informazioni','scrollbars=no,resi zable=yes,width=600,height=565,status=yes,location =no,toolbar=no');

// searchWin.refer = self;

}
</script>
');" onmouseover="window.status='Clicca per ingrandire'; return true">[img]../public/images/<%=rs.fields([/img] "border="0" alt="" width="130" height="100"></p>
</DIV>
</TD>
<TD valign="top">
<hr style="layout-flow:vertical-ideographic;" color="Silver" width="1" height="15">
</TD>
<td height="15" align="left" valign="top" width="150" class=appartamenti>Affitto:

');"><%=rs.fields("productname")%>


</p>
Zona:

');"><%=rs.fields("code")%>
</td>
<td valign="top">

</td>
<td width="150" height="15" align="left" valign="top" class=appartamenti>
Metri Quadri:
');"><%=rs.fields("mq")%>


</p>
Canone €:
');"><%=rs.fields("price")%>


</p>
Arredato:
');"><%=rs.fields("arredato")%>
</td>
<td valign="top">
<hr style="layout-flow:vertical-ideographic;" color="Silver" width="1" height="15">
</td>
<td width="150" height="15" valign="top" class=appartamenti>
Descrizione:

<%=rs.fields("details")%>
</td>
<TD valign="top">
<hr style="layout-flow:vertical-ideographic;" color="Silver" width="1" height="15">
</TD>
</TR>
<TR>
<td height="17" colspan="15">
<hr size="1" color="#00008C" style="border-style:dotted">
</td>
</TR>
</TABLE>
<p align="center" style="line-height:1; margin-top:1; margin-bottom:1;"><font color="#EC2E00">
<%
rs.movenext
wend
else
response.Write("Momentaneamente non ci sono annunci")
end if
%>
</font></p>
</td>
</tr>
</table>
</td>
</tr>
</table>

</body>

</html>

Qualcuno mi dà una mano Grazie..ne sarei molto grato