Paginar resultados...

[ken-obi]

Hola de nuevo,

tengo otra curiosidad, en el buscador que tengo creado he programado un paginado con el tipico
<%For I = 1 To pag_total%>

cula es el problema con esto...pues que cuando me muestra miles de registros se me descuadra la pagina, os lo muesto:

<<ir al primero| 1 2 3 4 5 6 7 8 9 10 11 12.........hasta 1200 |ir al ultimo>>

espero haberlo mostrado bien...

ahora la pregunta es como puedo hacer que solo me muestre de 10 y cuando llegue al 5 vayan mostrando 11 y 12....sucesivamente.


GRACIAS DE ANTEMANO

[mariano_donati]

probá solamente este código en una página, y fijate si te puede servir.

const paginas_a_mostrar = 10
pagina_actual = request.querystring("p")
comienzo_paginas = pagina_actual-(paginas_a_mostrar/2)
fin_paginas = pagina_actual + (paginas_a_mostrar/2)

if comienzo_paginas < 1 then
comienzo_paginas = 1
fin_paginas = 10
end if
if pagina_actual = "" then
pagina_actual = 1
end if

for i=comienzo_paginas to fin_paginas
%>
<a href="forosTest.asp?p=<%=i%>"><%=i%></a>
<%
next

Saludos!.

[ken-obi]

lo he intentado acoplar a mi pagina de muchas maneras y nada...
lo ultimo me salia casi perfecto pero me seguia mostrando todas las pagina...

[mariano_donati]

lo probaste solo al código ese para ver si genera el tipo de botonera que querés? create una página aparte y pega ese código ahí, después ejecutalo y fijate si es eso como lo estás buscando. Si es eso, pega la parte relevante del código adonde lo querés acomodar y quizás te podamos dar una mano entre todos.

[ken-obi]

Voy a ver si lo puedo acoplar de nuevo...gracias

[ken-obi]

me riondo...
llevo por lo menos 7 horas y el tiempo corre en mi contra...

mariano_donati si te apetece ayudarme te pegare el codigo y lo miras aver si tu lo puedes acoplar...

aqui va:

mostrar = 11
rs.PageSize = mostrar
rs.CacheSize = mostrar

if Request.Querystring("pagina")="" then
pag_actual=1
else
pag_actual=CInt(Request.[COLOR=Magenta]Querystring[/COLOR(]"pagina"))
end if

pag_totales = rs.PageCount

if pag_actual < 1 then
pag_actual = 1
end if
if pag_actual > pag_totales then
pag_actual = pag_totales
end if

if pag_totales=0 then
%>
.................................
<%
Else
RS.AbsolutePage = pag_actual
%>
.................................
<%
if pag_totales=0 then
Response.Write("")
else
rs.AbsolutePage = pag_actual
Response.Write("<td valign='middle' width='100' class='izqborde' background='../img/fondopaginado.gif'><font size='1' color='#FFFFFF'>&nbsp;Página " & Pag_actual & " de " & pag_totales &"</font></td>")
cant_registros = 0
end if
if pag_actual > 1 then
Response.Write("<td align='center' class='izqborde' width='16' bgcolor='#CCCCCC'><A HREF=buscar_barco.asp?pagina="& pag_actual-1& "&modelo="&modelo&"&nforo="&nforo&"&orden="&orden& "><img src='../../img/tildizq.gif' border='0' align='absmiddle'></A></td>")
end if%>
<%
For I = 1 To pag_totales
If I = pag_actual Then
%>
.................................
<%
Else
%>
.................................
End If
Next
if pag_actual < pag_totales then
Response.Write("<td align='center' valign='middle' class='derborde' bgcolor='#999999'>&nbsp;<A HREF=buscar_barco.asp?pagina="& pag_actual+1& "&modelo="&modelo&"&nforo="&nforo&"&orden="&orden& "><img src='../../img/tildder.gif' border='0' align='absmiddle'></A>&nbsp;</td>")
end if
-----------------------------------------------------------------------

TOMA YA ESTILO DREAMWEAVER

Gracias de antemano....

[mariano_donati]

Esto iría en la parte del principio:

const paginas_a_mostrar = 10

Esto ponelo después de que le das un valor a la variable pag_actual (luego de la primer sentencia condicional):

comienzo_paginas = pag_actual-(paginas_a_mostrar/2)
fin_paginas = pag_actual + (paginas_a_mostrar/2)

Y reemplaza el comienzo del bucle for por este comienzo:

for i=comienzo_paginas to fin_paginas

Me parece que con eso debería funcionar. Vos nos comentarás luego que tal te fue.
Espero qeu funcione.
Saludos ken-obi!