URGENTE :::::: Como puedo listar de a 10 registros y luego..

[Chileno82]

Hola como estan, me gustaria saber , si es posible, que alguien me ayude a listar unos registros, lo que pasa es que tengo un libro de visitas , pero al momento de mostrarlo me muestra todos los mensajes , para abajo, y yo quiero ponerle un limite de mensajes que muestre , yo se que es sencillo hacerlo, pero no se como.... si alguien me puede ayudar por favor, ah y que ademas abajo me salga ir a la siguiente pagina, algo asi
************************************************** *
* *
* REGISTRO (MENAJES) *
* LIBRO DE VISIT *
* *
************************************************** *


Pagina 1,2,3 >>

No se si me entienden por favor espero que me ayuden!

Aqui va todo el codigo...

<%
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

if request.querystring("insertado")<> "" then%>
<font face="Arial">Tu mensaje ha sido insertado, muchas gracias
<%end if
if request.querystring("borrado")<> "" then%>
El mensaje seleccionado ha sido borrado </font>
<%end if

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd_camela.mdb"))


set rs=createobject("ADODB.Recordset")
'rs.CursorType = adOpenKeyset
'rs.LockType = adLockOptimistic

rs.open "select * from visitas order by id desc",conn
if not rs.EOF then
do while not rs.EOF%>
<p align="center">

<table border="1" width="580" bordercolor="#0000CC"cellspacing="0" bgcolor="f2f5f7">
<tr>
<td width="501" bgcolor="#0000cc"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font><font color="#FFFFFF"><b><%=rs("nombre")%></b></font>
<%if rs("mail")<>"" then%>
&nbsp;&nbsp;<a href="mailto:<%=rs("mail")%>"><img border="0" src="imagenes/3.gif"></a>
<%end if%>
<%if rs("web")<>"" then%>
&nbsp;&nbsp;<a href="http://<%=rs("web")%>"><img border="0" src="imagenes/2.gif"></a>
<%end if%>
</font></td>
<td width="20" bgcolor="#0000cc"><a href="javascript:;" onClick="MM_openBrWindow('borrar_men.asp?id=<%=rs( "id")%>','','width=500,height=340')"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><img border="0" src="gb_delmsg.gif"></font></a></td>
<td width="233" bgcolor="#0000cc"> <p align="right"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rs("fecha")%>&nbsp;</font></p></td>
</tr>
<tr>
<td width="511" bgcolor="#f2f5f7" colspan="2" valign="top" background=""><font size="2" face="Arial"><img border="0" src="imagenes/1.gif"><%=rs("comentarios")%><br>
<br>
<b>Host: <%=rs("ip")%></b></font></td>
<td width="233" bgcolor="#F2f5f7"> <% if rs("Pais")<>"" then%> <b><font size="1" face="Arial">Pais</b> <hr>
<%=rs("pais")%></font> </b> <font size="1">
<hr>
<%=rs("pais")%></font> <p> <font size="1" face="Arial">¿<b>Como nos conociste?</b>
</font><font size="1">
<hr>
<%=rs("como")%></font> <p> <font size="1" face="Arial">
<%end if%>
<% if rs("opinion")<>"" then%>
<b>¿Que opinión te merecen estas páginas</b> </font> <font size="1">
<hr>
<%=rs("opinion")%></font> <%end if%> </td>
</tr>
</table>

<%rs.movenext
loop
end if

rs.close
conn.close
set rs=nothing
set conn=nothing%>

[AlZuwaga]

Eso se llama "paginar".

Entrá a www.aspfacil.com y buscá "paginar" (o en este mismo foro!) y fijate en los ejemplos que estan bien explicados.