Ver Mensaje Individual
  #3 (permalink)  
Antiguo 27/03/2007, 04:58
Avatar de Adler
Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 3 meses
Puntos: 126
Re: Buscadores con paginación

Esta es una paginación muy básica, implantala y ya me cuentas

Código:
 
if rs.RecordCount >= 6 then
dividir_resp = (rs.RecordCount) / 5
valor = Mid(dividir_resp,3,2)
total = dividir_resp + entero(valor)
entero_total = Mid(total,1,1)
%>
<b>Ir a&nbsp;</b>
<%
For I = 1 to CInt(entero_total)
If I = pagina_actual Then
%>
[<b><%= I %></b>]&nbsp;<%Else%><a href="./xxx.asp?show=<%=I%>"><%=I%></a><%if I < CInt(entero_total) then%>,
<%
end if
End If
Next
elseif rs.RecordCount <=5 then
[<b><%= I %></b>]&
end if
Suerte