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'> 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'> <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> </td>")
end if
-----------------------------------------------------------------------
TOMA YA ESTILO DREAMWEAVER
Gracias de antemano....
