paginar muchas paginas

engonga · #1 (**permalink**) 26/12/2006, 07:06

hola estoy paginando un monton de paginas
tengo este script

Código HTML:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/sumer_con.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin t&iacute;tulo</title>
</head>
<%
'----- definir cadena sql
sql = "SELECT * FROM CURRICULUMS"
%>
<%
cantidadregistros=40
%> 
<%
if request.querystring("paginaactual")<>"" then
     mostrarpagina=request.querystring("paginaactual")
else
     mostrarpagina=1
end if
%>
<%
set rs=Server.CreateObject("ADODB.Recordset")
rs.cachesize=60
rs.open sql, MM_sumer_con_STRING, 3, 3 
%>
<%
rs.pagesize=cantidadregistros
maxpagina=cint(rs.pagecount)
maxregistros=cint(rs.pagesize)
rs.absolutepage=mostrarpagina
contreg=0 
%> 
<%
'--Si en lugar de cinco registros quiere mostrar diez, sólo cambie los "5" por "10" y los "4" por "9". 
if int(mostrarpagina)<>int(maxpagina) then        '-- Si no es la última página.
     hasta=mostrarpagina*40
     desde=hasta-39
else
     hasta=rs.recordcount
     desde=(maxpagina*40)-39
end if 
%> 
 
 
<body>
Resultados :
<%
response.write desde & " a " & hasta & " de " & rs.recordcount & " encontrados.<BR><BR>" 
%>
Pagina: <%=mostrarpagina%>
<br /><br />
<%
do while not rs.eof and contreg < maxregistros
     response.write rs.fields("CODI") & "<br>"
     rs.movenext
     contreg=contreg+1 
loop 
%> 
<%
cero="0"
nombrescript=request.servervariables("script_name")
if int(mostrarpagina)<>1 then       '--si no es la primer página mostrar botón atrás
    ref="<a href='" & nombrescript & "?buscar=" &_
          Server.Urlencode(request.querystring("buscar")) 
    ref=ref &  "&paginaactual=" & mostrarpagina-1
    ref=ref & "'>[<< Anterior]</a>&nbsp;"
end if
for contador=1 to maxpagina
    If contador>9 then
       cero=""
    end if
    ref=ref & "&nbsp;<a href='" & nombrescript 
    ref=ref & "?buscar=" & Server.Urlencode(request.querystring("buscar")) 
    ref=ref & "&paginaactual=" & contador
    if int(contador)=int(mostrarpagina) then      '-- pone en negrita pagina actual
        ref=ref & "'><strong>" & cero & contador & "</strong></a>"
    else
        ref=ref & "'>" & cero & contador & "</a>"
    end if
next
if int(mostrarpagina)<>int(maxpagina) then     '-- si no es la última página 
                                               '   mostrar botón siguiente
    ref=ref & "&nbsp;<a href='" & nombrescript & "?buscar=" 
    ref=ref & Server.Urlencode(request.querystring("buscar")) 
    ref=ref & "&paginaactual=" & mostrarpagina+1
    ref=ref & "'>[Siguiente >>]</a>"
end if
response.write ref
%>
 
</body>
</html>

lo que me pasa es que me sale

[<< Anterior] 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 [Siguiente >>]

lo que no se es como hacer que me salga

<<Primera <<Anterior 01 02 03 04 05 06 07... Siguiente>> Ultima >>

y que cuando cliara en el 5 se me fueran sumando paginas (como hace el google)

... 04 05 06 07 08 09 10 11 ...

Myakire · #2 (**permalink**) 26/12/2006, 09:54

Pues fácil, pero laborioso, jejeje

Mira, en las FAQ's hay un script de paginacion (usa una "clase"), que modifique para que se comportara casi igual al de FDW, te dejo el código y para que te tomes una idea. Ya las dudas específicas me dices luego:

Código:

<table class="tborder" border="0" cellpadding="3" cellspacing="1">
<tbody><tr>
	<td class="vbmenu_control" style="font-weight: normal;height:40px"><%="Página " & PaginaActual & " de " & nro_paginas %></td>
<%
MuestraNumPag = 10
IF (vPagAct > 1) and (nro_paginas > MuestraNumPag) Then%>
	<td class="alt1"><a class="smallfont" href="<%=Me.pagina%>?ref=<%=0%>&PagAct=<%=1%>&sort=<%=vOrden%>&Estatus=<%=vEstatusP%>" title="Primera Página"><strong>«</strong> Primero</a></td>
	<td class="alt1"><a class="smallfont" href="<%=Me.pagina%>?ref=<%=vPagAct-2%>&sort=<%=vOrden%>&PagAct=<%=vPagAct-1%>&Estatus=<%=vEstatusP%>" title="Página Anterior">&lt;</a></td>
<%
End If
If Cint(vPagAct+9) > CInt(nro_paginas) Then
   vFinal = nro_paginas-1
	 vInicio = vFinal - MuestraNumPag
Else
   vFinal = vPagAct+MuestraNumPag
	 If vFinal - MuestraNumPag < 1 Then
	    vInicio = 1
	 Else
	    vInicio = vFinal-MuestraNumPag
	 End If
End If
If CInt(vPagAct) <= CInt((vFinal-(MuestraNumPag/2))) Then 
   vInicio = vPagAct - (MuestraNumPag/2) 
   vFinal = vPagAct + (MuestraNumPag/2) 
End If
if vInicio < 1 Then 
   vInicio = 0
	 vFinal =  MuestraNumPag
End if
if vFinal > CInt(nro_paginas) Then 
	 vFinal =  nro_paginas-1
End if
	 
'println("PagAct: " & vPagAct & " (" & vInicio & " to " & vFinal & ")")
	For i=vInicio to vFinal
		If i < vPagAct+5 Then vInicio = vPagAct-1 End If    
    Titulo = "Registros del " & FormatNumber(i*me.por_pagina,0) & " al " & FormatNumber(i*me.por_pagina+por_pagina,0) & " de " & Me.total_registros  
    If cInt(Me.desde) = CInt(i*Me.por_pagina) then%>
			<td class="alt2"><%=Justifica(i+1,2)%>
    <%else%>
			<td class="alt1"><a class="smallfont" href="<%=Me.pagina%>?ref=<%=i*Me.por_pagina%>&PagAct=<%=i+1%>&sort=<%=vOrden%>&Estatus=<%=vEstatusP%>" title="<%=Titulo%>"><%=Justifica(i+1,2)%></a>
    <%end if%>
		</td>
    <%If Not(i < nro_paginas-1) then UltimaPagina = Me.pagina & "?ref=" & i*Me.por_pagina & "&PagAct=" & i+1 & "&sort=" & vOrden end if
  Next
UltimaPagina = Me.pagina & "?ref=" & (nro_paginas-1)*por_pagina & "&PagAct=" & nro_paginas & "&sort=" & vOrden 
IF (CInt(vPagAct) < CInt(nro_paginas)) and (nro_paginas > 9) Then%>
	<td class="alt1"><a class="smallfont" href="<%=Me.pagina%>?ref=<%=vPagAct+2%>&PagAct=<%=vPagAct+1%>&sort=<%=vOrden%>&Estatus=<%=vEstatusP%>" title="Siguiente Página">&gt;</a></td>
	<td class="alt1"><a class="smallfont" href="<%=Me.pagina%>?ref=<%=(nro_paginas-1)*por_pagina%>&PagAct=<%=nro_paginas%>&sort=<%=vOrden%>&Estatus=<%=vEstatusP%>" title="Última página">Último <strong>»</strong></a></td>
<%
End If
%>
	<td style="cursor: pointer;" onclick="ShowBox('pagenav_menu')"> 
	   <img alt="" title=""  src="images/menu_open.gif" border="0"></td>
  <td>
  <div style="display:none;margin:0;padding:0">
		<table cellpadding="4" cellspacing="1" border="0" >
		<tr>
			<td nowrap="nowrap">Ir a la Página...</td>
			<td >
				<input type="text" style="font-size:11px" onKeyPress='return SoloNumeros(event)' size="4" />
				<input type="button" class="button" value=" Ir "/>
			</td>
		</tr>
		</table>
	</div>
	</td>
</tr>
</tbody></table>

<script>PaginasTotales=<%=nro_paginas-1%></script>

STRAW102 · #3 (**permalink**) 26/12/2006, 10:23

yo tengo que hacer exactamente lo mismo que ^engonga^ y no tengo ni idea...
he visto que en las faqs hay algo como "Paginando del lado del cliente" que fue lo mas parecido a lo que quiero, solo que ni siquiera logro que me reconozca la clase de getrows que ahi dan, la he guardado como .class .asp .txt y nada y obiamente colocada en la misma carpeta que la pagina que la manda a llamar..porque no la veee? de antemano graciass.. :(

STRAW102 · #4 (**permalink**) 26/12/2006, 11:20

Cita:

Iniciado por Myakire

Pues fácil, pero laborioso, jejeje

Mira, en las FAQ's hay un script de paginacion (usa una "clase"), que modifique para que se comportara casi igual al de FDW, te dejo el código y para que te tomes una idea. Ya las dudas específicas me dices luego:

Código:

<table class="tborder" border="0" cellpadding="3" cellspacing="1">
<tbody><tr>
	<td class="vbmenu_control" style="font-weight: normal;height:40px"><%="Página " & PaginaActual & " de " & nro_paginas %></td>
<%
MuestraNumPag = 10
IF (vPagAct > 1) and (nro_paginas > MuestraNumPag) Then%>
	<td class="alt1"><a class="smallfont" href="<%=Me.pagina%>?ref=<%=0%>&PagAct=<%=1%>&sort=<%=vOrden%>&Estatus=<%=vEstatusP%>" title="Primera Página"><strong>«</strong> Primero</a></td>
	<td class="alt1"><a class="smallfont" href="<%=Me.pagina%>?ref=<%=vPagAct-2%>&sort=<%=vOrden%>&PagAct=<%=vPagAct-1%>&Estatus=<%=vEstatusP%>" title="Página Anterior">&lt;</a></td>
<%
End If
If Cint(vPagAct+9) > CInt(nro_paginas) Then
   vFinal = nro_paginas-1
	 vInicio = vFinal - MuestraNumPag
Else
   vFinal = vPagAct+MuestraNumPag
	 If vFinal - MuestraNumPag < 1 Then
	    vInicio = 1
	 Else
	    vInicio = vFinal-MuestraNumPag
	 End If
End If
If CInt(vPagAct) <= CInt((vFinal-(MuestraNumPag/2))) Then 
   vInicio = vPagAct - (MuestraNumPag/2) 
   vFinal = vPagAct + (MuestraNumPag/2) 
End If
if vInicio < 1 Then 
   vInicio = 0
	 vFinal =  MuestraNumPag
End if
if vFinal > CInt(nro_paginas) Then 
	 vFinal =  nro_paginas-1
End if
	 
'println("PagAct: " & vPagAct & " (" & vInicio & " to " & vFinal & ")")
	For i=vInicio to vFinal
		If i < vPagAct+5 Then vInicio = vPagAct-1 End If    
    Titulo = "Registros del " & FormatNumber(i*me.por_pagina,0) & " al " & FormatNumber(i*me.por_pagina+por_pagina,0) & " de " & Me.total_registros  
    If cInt(Me.desde) = CInt(i*Me.por_pagina) then%>
			<td class="alt2"><%=Justifica(i+1,2)%>
    <%else%>
			<td class="alt1"><a class="smallfont" href="<%=Me.pagina%>?ref=<%=i*Me.por_pagina%>&PagAct=<%=i+1%>&sort=<%=vOrden%>&Estatus=<%=vEstatusP%>" title="<%=Titulo%>"><%=Justifica(i+1,2)%></a>
    <%end if%>
		</td>
    <%If Not(i < nro_paginas-1) then UltimaPagina = Me.pagina & "?ref=" & i*Me.por_pagina & "&PagAct=" & i+1 & "&sort=" & vOrden end if
  Next
UltimaPagina = Me.pagina & "?ref=" & (nro_paginas-1)*por_pagina & "&PagAct=" & nro_paginas & "&sort=" & vOrden 
IF (CInt(vPagAct) < CInt(nro_paginas)) and (nro_paginas > 9) Then%>
	<td class="alt1"><a class="smallfont" href="<%=Me.pagina%>?ref=<%=vPagAct+2%>&PagAct=<%=vPagAct+1%>&sort=<%=vOrden%>&Estatus=<%=vEstatusP%>" title="Siguiente Página">&gt;</a></td>
	<td class="alt1"><a class="smallfont" href="<%=Me.pagina%>?ref=<%=(nro_paginas-1)*por_pagina%>&PagAct=<%=nro_paginas%>&sort=<%=vOrden%>&Estatus=<%=vEstatusP%>" title="Última página">Último <strong>»</strong></a></td>
<%
End If
%>
	<td style="cursor: pointer;" onclick="ShowBox('pagenav_menu')"> 
	   <img alt="" title=""  src="images/menu_open.gif" border="0"></td>
  <td>
  <div style="display:none;margin:0;padding:0">
		<table cellpadding="4" cellspacing="1" border="0" >
		<tr>
			<td nowrap="nowrap">Ir a la Página...</td>
			<td >
				<input type="text" style="font-size:11px" onKeyPress='return SoloNumeros(event)' size="4" />
				<input type="button" class="button" value=" Ir "/>
			</td>
		</tr>
		</table>
	</div>
	</td>
</tr>
</tbody></table>

<script>PaginasTotales=<%=nro_paginas-1%></script>

wow esta cañon el codigo pero me da error en "Me.pagina" supongo que es porque ni siquiera he declarado dicho recordset? podrias poner completo el codigo... te agradeceria muchisimo ...no tengo mucho en el mundillo del asp... pero me esfuerzo :P...ya tengo la paginacion lista solo que no se como carajos hago los bloques de paginacion ni como hacer para que me corran las clases :(

Myakire · #5 (**permalink**) 26/12/2006, 11:37

Como mencioné, es la modificación de parte del código que esta en la FAQ 51, si quieres, héchale un vistazo primero, también hay otra de paginación pero la neta no la he probado, es la 125

Saludos

engonga · #6 (**permalink**) 26/12/2006, 12:23

NO CONSIGO QUE FUNCIONE

HE CREADO UN class.asp

y donde quiero que me paguine he puesto lo liguiente

<%
strConnection=("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../dades.mdb"))
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open strConnection
set rs = new paginado
rs.cnn = cnn '* Conexión a la base de datos

rs.consulta ="SELECT CODI, [COGNOMS, NOM], [CATEGORIA PROF1], [CATEGORIA PROF2], [CATEGORIA PROF3], PRETECON, POBLACIO, COMARCA FROM CURRICULUMS"
rs.desde = Int(Request.Querystring("ref")) '* Registro desde donde comienza el paginado, dejar como está

rs.por_pagina = 50 'Cantidad de Registros por página (10 por defecto)
rs.encabezado = "codi,nom/cognoms,cat1,cat2,cat3,pretecon,poblacio,comarca" '*Texto de cada Columna de datos
rs.orden_lista = "CODI"
rs.ancho_encabezado = "3%,5%,5%,15%,10%,15%,15%,10" '*Ancho de cada Columna de datos (pixeles o porcentaje)
rs.alineacion = "center" 'Alineación de la tabla que muestra los datos ("center" por defecto)
rs.ancho = "100%" 'Ancho de la tabla que muestra los datos (100% por defecto)
rs.paginar() '* Método que realiza la paginación y genera la tabla
If Err.Description <> "" then%>
<center>
Error: <%=Err.Description%>
</center>
 
<%end if
set rs = Nothing
%>

veras que lo que esta en rojo y negrita es lo que he canviado para que se conecte a mi base de datos pero me da el error

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
/sumer/classes/class.asp, línea 54

Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
Página:
GET /sumer/indexclass2.asp

ya no se por donde atacar

Nota: existe alguna manera de no usar esa clase? ya que yo la paginacion la tengo correcte pero solo quiero modificar lo de los numeros que salen ya que mi base de datos tiene un monton de registros tantos como 2644 y subiendo.

estoy buscando un script que hago el ejemplo de google pero no lo encuentro

engonga · #7 (**permalink**) 26/12/2006, 12:25

un ejemplo muy claro es el que usa el vbulletin de foros del web.

lo que hace es mostrarte las diez o cinco primeras paginas y si le das a la numero 10 de salen 10más con el boton de ultima y primera

Myakire · #8 (**permalink**) 26/12/2006, 12:33

Supongo que el error es por la coma del primer campo:

rs.consulta ="SELECT CODI, [COGNOMS, NOM], [CATEGORIA PROF1], [CATEGORIA PROF2], [CATEGORIA PROF3], PRETECON, POBLACIO, COMARCA FROM CURRICULUMS"

La modificación que le hice, hace que funcione exactamente como la paginación del vbulletin, hechale un vistazo

STRAW102 · #9 (**permalink**) 26/12/2006, 12:34

Me lanza este error en la pag de la paginacion

"Error de Microsoft VBScript en tiempo de ejecución error '800a01fa'
Clase no definida: 'paginado'

/luisef/Copia (4) de sql40-2.asp, línea 277"

porqueee... he hecho todo al pie de la letra... y nada :( ...porque es tan engorroso esto de los bloques , no deberia ser asiii

no se podra hacer con un javascript?

jeje ya estoy debrayando...

porcierto mi bd esta en sql

gracias

u_goldman · #10 (**permalink**) 26/12/2006, 12:42

Eso significa que no tienes esa clase(paginado) en ningun lado.

Código:

class paginado
.
.
.
.
end class

engonga · #11 (**permalink**) 26/12/2006, 12:44

tienes que incluir la class

engonga · #12 (**permalink**) 26/12/2006, 12:47

es que el campo se llama COGNOMS, NOM

es de una base de datos que yo no cree y que los campos estan nombrados como el culo

gracias

HE PROVADO CON ESTO

valorcamp = "COGNOMS, NOM"
rs.consulta ="SELECT CODI, '" + Replace(valorcamp, "'", "''") + "', [CATEGORIA PROF1], [CATEGORIA PROF2], [CATEGORIA PROF3], PRETECON, POBLACIO, COMARCA FROM CURRICULUMS"

pero me da el error
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
/sumer/classes/class.asp, línea 54

Cita:

Iniciado por Myakire

Supongo que el error es por la coma del primer campo:

rs.consulta ="SELECT CODI, [COGNOMS, NOM], [CATEGORIA PROF1], [CATEGORIA PROF2], [CATEGORIA PROF3], PRETECON, POBLACIO, COMARCA FROM CURRICULUMS"

La modificación que le hice, hace que funcione exactamente como la paginación del vbulletin, hechale un vistazo

STRAW102 · #13 (**permalink**) 26/12/2006, 12:48

ps si.. "paginado" es el nombre de la clase que esta en class.asp pero ps en la pag donde pagino no llama a esta clase no se porquee

u_goldman · #14 (**permalink**) 26/12/2006, 12:54

Porque en algun momento la tienes que tener disponible, quizas a nivel de include?

STRAW102 · #15 (**permalink**) 26/12/2006, 12:54

Cita:

Iniciado por ^engonga^

tienes que incluir la class

a como soyyy....jejej tnx
a ver que nuevos errores me lanza gracias a todos por su paciencia

Myakire · #16 (**permalink**) 26/12/2006, 12:55

Cita:

es que el campo se llama COGNOMS, NOM

mmmmm, Bueno algo que se me ocurre para evitar eso es que hagas un SELECT * FROM ... y hagas referencia a los campos por su posición (Rs(0), RS(1), Etc)

Myakire · #17 (**permalink**) 26/12/2006, 12:56

¿Ya notaron que en este post se estan tratando varios problemas y ya esta "hecho un camote"?

engonga · #18 (**permalink**) 26/12/2006, 12:57

ahora mi problema es en la setencia SLQ

rs.consulta ="SELECT CODI, [CATEGORIA PROF1], [CATEGORIA PROF2], [CATEGORIA PROF3], PRETECON, POBLACIO, COMARCA FROM CURRICULUMS"

ya que tengo nombres de campos partidos

CATEGORIA PROF1

Y

COGNOMS, NOM

NO SE COMO PONERLO EN LA SENTENCIA SQL

Myakire · #19 (**permalink**) 26/12/2006, 13:00

Se supone que para eso son los corchetes, ¿probaste lo de llamar por su posición a los campos?

engonga · #20 (**permalink**) 26/12/2006, 13:01

Cita:

Iniciado por Myakire

mmmmm, Bueno algo que se me ocurre para evitar eso es que hagas un SELECT * FROM ... y hagas referencia a los campos por su posición (Rs(0), RS(1), Etc)

donde se hace la refecnia

Nota:
Ya veo que se estan tocando muchos temas y se esta liadno la cosa, pero creo que sera un manual para como paginar correctamente

si el Adminsitrador nos deja despues lo dejamos todo bnito en una faq, que os parece

engonga · #21 (**permalink**) 26/12/2006, 13:11

Myakire

he hecho la referencia pero ahora me da otro error

codigo de referencia

Código HTML:

rs.encabezado = "CODI,""COGNOMS, NOM"",CATEGORIA PROF1,CATEGORIA PROF2,CATEGORIA PROF3,PRETECON,POBLACIÓ,COMARCA" '*Texto de cada Columna de datos

y ahora me da el error dentro del class.asp

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0009)
El subíndice está fuera del intervalo: '1'
/sumer/classes/class.asp, línea 75

Myakire · #22 (**permalink**) 26/12/2006, 13:28

Es por lo mismo, por esa coma dentro de la cadena, como puedes ver, el código hace un SPLIT por la coma como separador

Linea 68: encabezado = split(Me.encabezado,",")

Pero en la 75 hay dos vectores: orden_lista y encabezado, seguro el primero es una casilla menos que el Ubound(encabezado) por esa famosa coma

Es solo para los encabezados, por lo menos de ahí, por favor, sácala a la goma, jejeje

engonga · #23 (**permalink**) 26/12/2006, 13:33

Cita:

Iniciado por Myakire

Es por lo mismo, por esa coma dentro de la cadena, como puedes ver, el código hace un SPLIT por la coma como separador

Linea 68: encabezado = split(Me.encabezado,",")

Pero en la 75 hay dos vectores: orden_lista y encabezado, seguro el primero es una casilla menos que el Ubound(encabezado) por esa famosa coma

Es solo para los encabezados, por lo menos de ahí, por favor, sácala a la goma, jejeje

no pongo el nombre CONGOMS, NOM en los encabezados y me de el mismo error.

voy a intentar hacer una paginacion sin la clases esta, ya que me esta dando un monton de dolores de cabeza.

STRAW102 · #24 (**permalink**) 26/12/2006, 13:54

ok ok ya logre porfin hacer funcionar su paginacion y esta Excelente!!! pero es lo mismo :(

osea

de mis 19303 datos que tengo en sql quiero que de entrada me ponga

Page 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 Next >> y al darle next ps del 11 al 20 y asi

es decir los dichosos bloquess :( el next y back funcionan perfecto solo que no quiero que me lo muestre asi

Page 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | 110 | 111 | 112 | 113 | 114 | 115 | 116 | 117 | 118 | 119 | 120 | 121 | 122 | 123 | 124 | 125 | 126 | 127 | 128 | 129 | 130 | 131 | 132 | 133 | 134 | 135 | 136 | 137 | 138 | 139 | 140 | 141 | 142 | 143 | 144 | 145 | 146 | 147 | 148 | 149 | 150 | 151 | 152 | 153 | 154 | 155 | 156 | 157 | 158 | 159 | 160 | 161 | 162 | 163 | 164 | 165 | 166 | 167 | 168 | 169 | 170 | 171 | 172 | 173 | 174 | 175 | 176 | 177 | 178 | 179 | 180 | 181 | 182 | 183 | 184 | 185 | 186 | 187 | 188 | 189 | 190 | 191 | 192 | 193 | 194 | 195 | 196 | 197 | 198 | 199 | 200 | 201 | 202 | 203 | 204 | 205 | 206 | 207 | 208 | 209 | 210 | 211 | 212 | 213 | 214 | 215 | 216 | 217 | 218 | 219 | 220 | 221 | 222 | 223 | 224 | 225 | 226 | 227 | 228 | 229 | 230 | 231 | 232 | 233 | 234 | 235 | 236 | 237 | 238 | 239 | 240 | 241 | 242 | 243 | 244 | 245 | 246 | 247 | 248 | 249 | 250 | 251 | 252 | 253 | 254 | 255 | 256 | 257 | 258 | 259 | 260 | 261 | 262 | 263 | 264 | 265 | 266 | 267 | 268 | 269 | 270 | 271 | 272 | 273 | 274 | 275 | 276 | 277 | 278 | 279 | 280 | 281 | 282 | 283 | 284 | 285 | 286 | 287 | 288 | 289 | 290 | 291 | 292 | 293 | 294 | 295 | 296 | 297 | 298 | 299 | 300 | 301 | 302 | 303 | 304 | 305 | 306 | 307 | 308 | 309 | 310 | 311 | 312 | 313 | 314 | 315 | 316 | 317 | 318 | 319 | 320 | 321 | 322 | 323 | 324 | 325 | 326 | 327 | 328 | 329 | 330 | 331 | 332 | 333 | 334 | 335 | 336 | 337 | 338 | 339 | 340 | 341 | 342 | 343 | 344 | 345 | 346 | 347 | 348 | 349 | 350 | 351 | 352 | 353 | 354 | 355 | 356 | 357 | 358 | 359 | 360 | 361 | 362 | 363 | 364 | 365 | 366 | 367 | 368 | 369 | 370 | 371 | 372 | 373 | 374 | 375 | 376 | 377 | 378 | 379 | 380 | 381 | 382 | 383 | 384 | 385 | 386 | 387 Next >>

como delimito el rango para que aparezcan solo los primeros 10 y no todos :(

Myakire · #25 (**permalink**) 26/12/2006, 13:59

y volvemos a empezar

Favor de referirse al post número dos de este hilo

engonga · #26 (**permalink**) 26/12/2006, 14:10

Cita:

Iniciado por STRAW102

ok ok ya logre porfin hacer funcionar su paginacion y esta Excelente!!! pero es lo mismo :(

osea

de mis 19303 datos que tengo en sql quiero que de entrada me ponga

Page 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 Next >> y al darle next ps del 11 al 20 y asi

es decir los dichosos bloquess :( el next y back funcionan perfecto solo que no quiero que me lo muestre asi

Page 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 | 76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 | 101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | 110 | 111 | 112 | 113 | 114 | 115 | 116 | 117 | 118 | 119 | 120 | 121 | 122 | 123 | 124 | 125 | 126 | 127 | 128 | 129 | 130 | 131 | 132 | 133 | 134 | 135 | 136 | 137 | 138 | 139 | 140 | 141 | 142 | 143 | 144 | 145 | 146 | 147 | 148 | 149 | 150 | 151 | 152 | 153 | 154 | 155 | 156 | 157 | 158 | 159 | 160 | 161 | 162 | 163 | 164 | 165 | 166 | 167 | 168 | 169 | 170 | 171 | 172 | 173 | 174 | 175 | 176 | 177 | 178 | 179 | 180 | 181 | 182 | 183 | 184 | 185 | 186 | 187 | 188 | 189 | 190 | 191 | 192 | 193 | 194 | 195 | 196 | 197 | 198 | 199 | 200 | 201 | 202 | 203 | 204 | 205 | 206 | 207 | 208 | 209 | 210 | 211 | 212 | 213 | 214 | 215 | 216 | 217 | 218 | 219 | 220 | 221 | 222 | 223 | 224 | 225 | 226 | 227 | 228 | 229 | 230 | 231 | 232 | 233 | 234 | 235 | 236 | 237 | 238 | 239 | 240 | 241 | 242 | 243 | 244 | 245 | 246 | 247 | 248 | 249 | 250 | 251 | 252 | 253 | 254 | 255 | 256 | 257 | 258 | 259 | 260 | 261 | 262 | 263 | 264 | 265 | 266 | 267 | 268 | 269 | 270 | 271 | 272 | 273 | 274 | 275 | 276 | 277 | 278 | 279 | 280 | 281 | 282 | 283 | 284 | 285 | 286 | 287 | 288 | 289 | 290 | 291 | 292 | 293 | 294 | 295 | 296 | 297 | 298 | 299 | 300 | 301 | 302 | 303 | 304 | 305 | 306 | 307 | 308 | 309 | 310 | 311 | 312 | 313 | 314 | 315 | 316 | 317 | 318 | 319 | 320 | 321 | 322 | 323 | 324 | 325 | 326 | 327 | 328 | 329 | 330 | 331 | 332 | 333 | 334 | 335 | 336 | 337 | 338 | 339 | 340 | 341 | 342 | 343 | 344 | 345 | 346 | 347 | 348 | 349 | 350 | 351 | 352 | 353 | 354 | 355 | 356 | 357 | 358 | 359 | 360 | 361 | 362 | 363 | 364 | 365 | 366 | 367 | 368 | 369 | 370 | 371 | 372 | 373 | 374 | 375 | 376 | 377 | 378 | 379 | 380 | 381 | 382 | 383 | 384 | 385 | 386 | 387 Next >>

como delimito el rango para que aparezcan solo los primeros 10 y no todos :(

puedes poner un ejemplo de como lo hiciste?

poer que yo aun es hora de que mi nevegador no me de un error

STRAW102 · #27 (**permalink**) 26/12/2006, 14:28

<%
orden=request.querystring("orden")
if orden="" or orden=null then
orden="regdate"
end if
session("orden_lista")=orden

Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "etc ,etc"
Set rs = new paginado

rs.cnn = cnn '* Conexión a la base de datos

if custo<>"" then
rs.consulta = "SELECT * FROM BASE order by id"
else
rs.consulta = "SELECT * FROM BASE order by id"
end if

rs.desde = Int(Request.Querystring("ref")) '* Registro desde donde comienza el paginado, dejar como está
rs.por_pagina = 50 'Cantidad de Registros por página (10 por defecto)
rs.encabezado = "ID, RAZON_SOCIAL, RFC, CURP, NUMERO_EMPLEADOS, TAMAÑO, CONTACTO, CARGO, DIRECCION, COLONIA, DELEGACION, ESTADO, CP, LADA, TELEFONO, FAX, RAMA, SECTOR, SUBSECTOR, EMAIL, AREA, SERVICIO_COMPITE, FECHA_SERVICIO" '*Texto de cada Columna de datos
rs.orden_lista = "ID, RAZON_SOCIAL, RFC, CURP, NUMERO_EMPLEADOS, TAMAÑO, CONTACTO, CARGO, DIRECCION, COLONIA, DELEGACION, ESTADO, CP, LADA, TELEFONO, FAX, RAMA, SECTOR, SUBSECTOR, EMAIL, AREA, SERVICIO_COMPITE, FECHA_SERVICIO"
rs.ancho_encabezado = "3%,5%,5%,15%,10%,15%,15%,3%,5%,5%,15%,10%,15%,15% ,3%,5%,5%,15%,10%,15%,15%,3%,5%" '*Ancho de cada Columna de datos (pixeles o porcentaje)
rs.alineacion = "center" 'Alineación de la tabla que muestra los datos ("center" por defecto)
rs.ancho = "90%" 'Ancho de la tabla que muestra los datos (100% por defecto)
rs.paginar() '* Método que realiza la paginación y genera la tabla

If Err.Description <> "" then%>
<center>
Error: <%=Err.Description%>
</center>
 
<%
end if
set rs = Nothing
%>

engonga · #28 (**permalink**) 26/12/2006, 14:45

bueno a mi me sigue saliendo el error

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0009)
El subíndice está fuera del intervalo: '1'
/sumer/classes/class.asp, línea 75

voy a dejar la cosa como impossoble y me voy a basar con mi paginacion ya que si que me funciona pero solo tengo que sacar la forma de que me muester una serie de paginas solo... lo estoy consiguiendo

3pies · #29 (**permalink**) 27/12/2006, 03:24

Creo que lo que buscas es algo como esto: http://www.forosdelweb.com/showpost....3&postcount=57

Salu2

engonga · #30 (**permalink**) 27/12/2006, 03:35

y no se tiene que poner nada de conexion ni nada de esto

y como sabe los registros que tengo y todo esto?