Problemas para paginar
Publicado por Fernando (5 intervenciones) el 03/08/2002 14:29:01
Hola a todos
Tengo el siguiente codigo:
<%
' Carga el numero de la pagina activa para poder paginar
pg = TRIM(Request("pg"))
If pg = "" then pg =1
'Abre el recordset
Set prodRS = Server.CreateObject("ADODB.Recordset")
prodRS.ActiveConnection = Conexion
prodRS.CursorType = adOpenStatic
prodRS.PageSize = 5
sqlString = "SELECT IdentificadorProducto, ImagenProducto, NombreProducto, DescBrevProducto " &_
"FROM Productos WHERE CategoriaProducto='" & cat & "' " &_
"AND EstadoProducto=1 " &_
"ORDER BY NombreProducto "
prodRS.Open sqlString
prodRS.AbsolutePage = pg (*) Aca pincha
%>
Lo probe en win 2000 y 2000 server, tengo access 2000 instalado en ambos, tambien probe con el cursor del lado del cliente y nada.
Me dice que el recordset no admite marcadores que puede ser una limitacion.
Que puedo hacer ???
Tengo el siguiente codigo:
<%
' Carga el numero de la pagina activa para poder paginar
pg = TRIM(Request("pg"))
If pg = "" then pg =1
'Abre el recordset
Set prodRS = Server.CreateObject("ADODB.Recordset")
prodRS.ActiveConnection = Conexion
prodRS.CursorType = adOpenStatic
prodRS.PageSize = 5
sqlString = "SELECT IdentificadorProducto, ImagenProducto, NombreProducto, DescBrevProducto " &_
"FROM Productos WHERE CategoriaProducto='" & cat & "' " &_
"AND EstadoProducto=1 " &_
"ORDER BY NombreProducto "
prodRS.Open sqlString
prodRS.AbsolutePage = pg (*) Aca pincha
%>
Lo probe en win 2000 y 2000 server, tengo access 2000 instalado en ambos, tambien probe con el cursor del lado del cliente y nada.
Me dice que el recordset no admite marcadores que puede ser una limitacion.
Que puedo hacer ???
Valora esta pregunta


0