Ver Mensaje Individual
  #1 (permalink)  
Antiguo 04/02/2004, 11:14
pepelucho
 
Fecha de Ingreso: enero-2002
Ubicación: Callao - Perú
Mensajes: 1.127
Antigüedad: 23 años, 4 meses
Puntos: 0
ERROR EN paginacion

Holas, tengo un error en el codigo de paginacion, cuando lo usaba con un winNT y access funcionaba ok, ahora lo tengo en un win2003 con sqlserver 2000 y me sale el sgte. error:
/************************************************** *
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
facturas.asp, line 70
************************************************** \
' les coloco el codigo que uso.Espero su ayuda...
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos

TamPagina=30

if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
sql="select f.nro_factura,c.nombre,f.cliente,f.monto,f.estado, f.fecha_venc,f.id from facturas f, clientes c where f.cliente=c.id order by f.nro_factura desc"
set rs=server.createobject("adodb.recordset")

rs.PageSize=TamPagina
rs.CacheSize=TamPagina


rs.Open sql,cn,1,2
'response.write sql
'rs.open sql,cn,adOpenKeyset,adLockPessimistic
PaginasTotales=rs.PageCount
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
rs.AbsolutePage=PaginaActual 'esta es la linea 70 del error
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
%>
__________________
SaLuDoS dE:
PePeLuChO dEl PeRú PaRa El MuNdO