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>

[emont]

y continua con:

</td>
</tr>
<%SW=0%>
<%end if%>
<%RowCount = RowCount - 1
rsforos.MoveNext
loop
set Rsforos=Rsforos.NextRecordset
loop
Rsforos.Close
'set RsForos=Nothing
'set Conn=nothing
%>
<input type="hidden" name="sqlforos" value="<%=sqlforos%>">
<% if PageNo>1 then%>
<input type="submit" name="ScrollAction" value="<%="page"&PageNo-1%>">
<% end if
if PageNo < TotalPages or (PageNo=1 and TotalPages>1) then%>
<input type="submit" name="ScrollAction" value="<%="page"&PageNo+1%&g t;">
<% end if
end if%>
</form>

pero me sale el siguiente error:

Error de compilación de Microsoft VBScript error '800a040e'

'Loop' sin 'Do'

/foros/PyR.asp, line 411

loop
^

y ya hice la verificación pero no encuentro el error o si fue que lo implemene de forma incorrecta.

Agradezco la ayuda que me puedan brindar.

[bakanzipp]

aqui hay algo sencillo

<a href='ir.asp?http://www.aspfacil.com/articulos/paginar.asp' target='_blank'>http://www.aspfacil.com/articulos/pagina...</a>

[bakanzipp]

ademas en el codigo que posteaste parece que te falta cerrar un IF..

aqui parece que iria

Código:

  
loop
END IF ' :-p  :-p AQUI AQUI
set Rsforos=Rsforos.NextRecordset 
loop