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

paginado con una variante

Estas en el tema de paginado con una variante en el foro de ASP Clásico en Foros del Web. Hola amigos.... disculpenme pero ya estoy embotado y no me sale nada..... la cosa es asi.... estoy paginando, como siempre lo hago con rs.pagesize y ...
  #1 (permalink)  
Antiguo 03/06/2004, 09:45
Avatar de buliwyf  
Fecha de Ingreso: diciembre-2001
Ubicación: Caracas
Mensajes: 221
Antigüedad: 22 años, 5 meses
Puntos: 1
paginado con una variante

Hola amigos.... disculpenme pero ya estoy embotado y no me sale nada.....


la cosa es asi.... estoy paginando, como siempre lo hago con rs.pagesize y todo esto.... la cosa es que en caga pagina salgan 9 registros.... pero estos 9 registros tienen que estar en uan tabla de 3x3, es decir, tres rows de 3 celdas cada uno..... todo funciona de maravilla hasta que llego a la ultima pagina, que tiene solo 7 registros.....

please un codigo por ahi bueno!
__________________
RTFM antes de preguntar...
  #2 (permalink)  
Antiguo 03/06/2004, 10:13
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
y qué es lo que te ocurre al llegar a la última página? Da algún error?
  #3 (permalink)  
Antiguo 03/06/2004, 10:55
Avatar de buliwyf  
Fecha de Ingreso: diciembre-2001
Ubicación: Caracas
Mensajes: 221
Antigüedad: 22 años, 5 meses
Puntos: 1
si men, me dice error por BOF... logico pero no se como detenerlo, ando medio lento hoy
__________________
RTFM antes de preguntar...
  #4 (permalink)  
Antiguo 03/06/2004, 11:06
Avatar de LeCLUB  
Fecha de Ingreso: abril-2003
Ubicación: Barcelona (España)
Mensajes: 205
Antigüedad: 21 años, 1 mes
Puntos: 1
Seguramente será poque intentas mostrar un RecordSet donde no hay nada. Utiliza EOF para mirar celda por celda que existan datos en el RecordSet antes de realizar el rs.MoveNext()

Ejemplo:

Código:
<table width="200" border="0" cellspacing="0" cellpadding="0">
<% While not Rs.EOF %>
  <tr>
    <td>
	<% if NOT Rs.EOF Then 
	response.write Rs("campo_tabla")
        Rs.MoveNext()
        end if %>
	</td>
    <td>
	<% if NOT Rs.EOF Then 
	response.write Rs("campo_tabla")
        Rs.MoveNext()
        end if %>
	</td>
    <td>
	<% if NOT Rs.EOF Then 
	response.write Rs("campo_tabla")
        Rs.MoveNext()
        end if %>
	</td>
  </tr>
<% Wend %>
</table>
  #5 (permalink)  
Antiguo 21/06/2004, 11:42
 
Fecha de Ingreso: mayo-2004
Mensajes: 28
Antigüedad: 20 años
Puntos: 0
puedes poner tu codigo,aunque no salga.

Estoy intentando hacer algo parecido a lo tuyo, lo que pasa que conozco poco este lenguaje,me podrias poner el codigo de esa tabla 3 x3 .
Gracias


Cita:
Iniciado por buliwyf
Hola amigos.... disculpenme pero ya estoy embotado y no me sale nada.....


la cosa es asi.... estoy paginando, como siempre lo hago con rs.pagesize y todo esto.... la cosa es que en caga pagina salgan 9 registros.... pero estos 9 registros tienen que estar en uan tabla de 3x3, es decir, tres rows de 3 celdas cada uno..... todo funciona de maravilla hasta que llego a la ultima pagina, que tiene solo 7 registros.....

please un codigo por ahi bueno!
  #6 (permalink)  
Antiguo 21/06/2004, 13:55
Avatar de buliwyf  
Fecha de Ingreso: diciembre-2001
Ubicación: Caracas
Mensajes: 221
Antigüedad: 22 años, 5 meses
Puntos: 1
He aqui la respuesta

ok amigos he aqui como lo hice:
Código:
<%
sql ="select * from cualquer_tabla"
SET RS=SERVER.CREATEOBJECT("ADODB.RECORDSET")
	RS.OPEN SQL, CON,3,3
	
	'**********PAGINADO************
	IF REQUEST.QUERYSTRING("NAV") = "" THEN
	INTPAGE = 1
	ELSE
	INTPAGE = REQUEST.QUERYSTRING("NAV")
	END IF
	
	RS.PAGESIZE = 9
	RS.CACHESIZE = RS.PAGESIZE
	INTPAGECOUNT = RS.PAGECOUNT
	INTRECORDCOUNT = RS.RECORDCOUNT
	IF CINT(INTPAGE) > CINT(INTPAGECOUNT) THEN INTPAGE = INTPAGECOUNT
	IF CINT(INTPAGE) <= 0 THEN INTPAGE = 1
		IF INTRECORDCOUNT > 0 THEN
			RS.ABSOLUTEPAGE = INTPAGE
			INTSTART = RS.ABSOLUTEPOSITION
		IF CINT(INTPAGE) = CINT(INTPAGECOUNT) THEN
			INTFINISH = INTRECORDCOUNT
		ELSE
			INTFINISH = INTSTART + (RS.PAGESIZE - 1)
		END IF
	END IF
	
	IF LEFT(request.servervariables("query_string"),3)="NAV" then
	valor=right(request.servervariables("query_string"), len(request.servervariables("query_string"))-instr(request.servervariables("query_string"),"&"))
	else
	valor=request.servervariables("query_string")
	end if
	
	'********FIN PAGINADO**************

		do while (not rs.eof and lista<9)
		lista=lista+1
		rs.movenext
		loop
		if lista>0 then
		rs.move -lista
		end if
    		completos=fix(lista/3)
    		resto=lista mod 3

%>
      <TABLE width=100% height="411" BORDER=0 CELLPADDING=0 CELLSPACING=0 NAME=PRODUCTOS>
        <%for i=1 to completos%>
        <TR>
          <td width=33% class=tabla align=center style="padding:1px"><a class="Azul" href="detalleproducto.asp?id=<%=rs("codigo_prod")%>"><img WIDTH=100 border=0 src="imgproduct/<%=rs("foto1")%>"><br><u><%=rs("nombre_producto")%></u><br></td><%rs.movenext%>
          <td width=33% class=tabla align=center style="padding:1px"><a class="Azul" href="detalleproducto.asp?id=<%=rs("codigo_prod")%>"><img WIDTH=100 border=0 src="imgproduct/<%=rs("foto1")%>"><br><u><%=rs("nombre_producto")%></u><br></td><%rs.movenext%>
          <td width=33% class=tabla align=center style="padding:1px"><a class="Azul" href="detalleproducto.asp?id=<%=rs("codigo_prod")%>"><img WIDTH=100 border=0 src="imgproduct/<%=rs("foto1")%>"><br><u><%=rs("nombre_producto")%></u><br></td><%rs.movenext%>
	</TR>
	<%next%>
	<TR>
        <%for i=1 to resto%>
          <td width=33% class=tabla align=center style="padding:1px"><a class="Azul" href="detalleproducto.asp?id=<%=rs("codigo_prod")%>"><img WIDTH=100 border=0 src="imgproduct/<%=rs("foto1")%>"><br><u><%=rs("nombre_producto")%></u><br></td><%rs.movenext%>
	<%next%>
	<%for i=1 to (3-resto)%>
  	<td width=33% class=tabla align=center style="padding:1px"></td>
	<%next%>
	</TR>
 
  <tr HEIGHT=6>  
  	  <td height="6" colspan="6"  valign="top" bgcolor="#FFFFFF" class=azul STYLE="PADDING:3PX"> 
          <div align="right">(<b><%=INTRECORDCOUNT%>) productos</b> 
      <br>      <% If cInt(intPage) > 1 Then%>
            <a href="?NAV=<%=intPage - 1%>&<%=valor%>"><img src="img/back.jpg" align=absmiddle border=0></a> 
            <%end if%>
            &nbsp;&nbsp;&nbsp;<b> P&aacute;gina: <%=INTPAGE%> de <%=INTPAGECOUNT%><b>&nbsp;&nbsp;&nbsp; 
            <%If cInt(intPage) < cInt(intPageCount) Then%>
            <a href="?NAV=<%=intPage + 1%>&<%=valor%>"><img src="img/forward.jpg"  align=absmiddle border=0></a> 
            <%end if%>
            </b></b></div></td>
            </TR>
    </table>

cualquier duda me avisan! saludos!
__________________
RTFM antes de preguntar...
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 01:31.