Paginación en ASP

[emont]

Hola, donde puedo encontrar un ejemplo secillo y facil de aplicar para paginar en ASP o si me pudieran ayudar con este que trate de implementar en mi pagina:
<form method=get action="<%=FormAction%>">
<table width="490" border="0" cellspacing="0">
<tr>
<td valign="top"><!-- #BeginEditable "Contenido" --><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">
<%Do while not (Rsforos is nothing)
Dim SW
SW=0
if rsforos.EOF then%>
<tr><td colspan=5 width=565 bgcolor=#ffff5d align=center>No hay Preguntas</td></tr>
<%else%>

<%do while not rsforos.EOF and rowcount>0
if sw=0 then%>

<tr>
<td width=62 bgcolor=#ffffff><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><%=formatdatetime( rsforos("fecha"),2)%></font></td>
<td width=254 bgcolor=#ffffff valign=middle><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<a href="/foros/VerMyP.asp?numero=<%=rsforos("numero" )%>&Nombreforo=<%=nombreforo%>"& gt;<font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rsforos("q") %></font></td>
<%sqltxt2="select count(*) from respuestas where numero ="&rsforos("numero")

rsr.Open sqltxt2,conn%>
<td width=49 bgcolor=#ffffff>
<p align=center><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">
<%=rsr(0)%>
<%rsr.Close%></font></td>

<td width=82 align=center bgcolor=#ffffff>
<p align=center><font face=verdana size=1><%=rsforos("autor")%>&lt ;a href="/foros/AgregaRespuesta.asp?numero=<%=rsforos("num ero")%>&nombreforo=<%=Nombreforo%&g t;"></a></font></p>