| <% '################## Comienzo paginación ############# Server.ScriptTimeOut=180 '################################################ '# Asigna el tamaño de largo de la página # '################################################ tamanopagina=14 paginaabsoluta=request.querystring("paginaabsoluta") if paginaabsoluta="" then paginaabsoluta=1 end if '################## FIN ///paginación/// ############# dbfile=Server.MapPath("datos/acomp.mdb") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&dbfile set rs=createobject("ADODB.Recordset") rs.CursorType = adOpenKeyset '################# sacado el rem por mi ################ rs.LockType = adLockOptimistic '################# hasta aca había rem ################ rs.open "select * from acomp order by Id_Acomp ",conn if not rs.EOF then '################## Comienzo paginación ############# '################## Comienzo paginación ############# if tamanopagina <> "all" then '###################################################### '# Asigna los valores guardados en cint() a las rs # '###################################################### rs.pagesize= cint(tamanopagina) rs.absolutepage=cint(paginaabsoluta) contador=1 '################## FIN ///paginación/// ############# '### indica que imprima en pantalla resultados del RS mientras no sea Eof el Rs y el ### '### contador que se inicializo arriba sea <=cint(tamanopagina)"cantidad de reg*pag ### do while not rs.eof and contador <= cint(tamanopagina) '################## FIN ///paginación/// ############# 'do while not rs.EOF %> |
<% ' rs.movenext '######################### COMIENZA LA PAGINACIÓN ############################ '### aca se termino de imprimir los registros ya sea * Eof o se llego a (tamanopagina) ### '### incrementa el contador "de paginas" en 1 y hace el loop ### 'End If 'If del "Not eof" contador=contador+1 'If not rs.eof and contador <= cint(tamanopagina) then loop '### imprime el cartel "pulsa en la pag que deseas ir" ### %>
Pulse en la página a la que deseas ir
|
<%
'### se inicializa a (j) en 0 ###
j=0
'### si pagina absoluta no es 1 entonces le asigna a (atras)=paginaabsoluta - 1 ###
'### asigna a href el valor "<" si esta en pag 2 en adelante para ir hacia atras ###
if cint(paginaabsoluta) <> 1 then
atras=cint(paginaabsoluta)-1
response.write "
| "
j=j+1
end if
%>
 |
<%'########################### Comienzo combo ################# %>
<% '########################### Fin combo ################# end if %> | <% '### asigna el href para el ">" de siguiente pagina" if cint(paginaabsoluta) <> rs.pagecount then atras=cint(paginaabsoluta)+1 response.write " |  | "
'######################### FIN DE PAGINACIÓN ############################
end if %>
<%
end if
rs.close
Conn.close
set rs=nothing
set Conn=Nothing
%>