Foros del Web » Programando para Internet » ASP Clásico »

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

Estas en el tema de URGENTE :::::: Como puedo listar de a 10 registros y luego.. en el foro de ASP Clásico en Foros del Web. Hola como estan, me gustaria saber , si es posible, que alguien me ayude a listar unos registros, lo que pasa es que tengo un ...
  #1 (permalink)  
Antiguo 08/07/2003, 08:43
Avatar de Chileno82  
Fecha de Ingreso: marzo-2003
Ubicación: Santiago de Chile
Mensajes: 40
Antigüedad: 21 años, 3 meses
Puntos: 0
Exclamación URGENTE :::::: Como puedo listar de a 10 registros y luego..

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%>
  #2 (permalink)  
Antiguo 08/07/2003, 09:55
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
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.
__________________
...___...
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:12.