Set Conn = Server.CreateObject("ADODB.Connection")
strconn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("usuarios.mdb")
Set Command = Server.CreateObject("ADODB.Command")
Set RS =Server.CreateObject("ADODB.RecordSet")
Conn.Open strconn
RS.Open sSQL,Conn,adopenstatic,adcmdtext
'quita este if
'resultados por pagina a elegir arbitrariamente
num_registros = 8
'Dimensionamos las paginas y determinamos la pagina actual
RS.PageSize=num_registros
RS.AbsolutePage=Session("f")
%>
<table width="500" border="0" cellspacing="0" cellpadding="0">
<%
registros_mostrados = 0
While (Not RS.eof And registros_mostrados < num_registros)
user = RS( "user" )
nombre = RS( "nombre" )
apellido = RS( "apellido" )
ciudad = RS( "ciudad" )
pais = RS( "pais" )
email = RS( "email" )
usuario = RS( "usuario" )
registros_mostrados = registros_mostrados +1
%>