Ayuda al Paginar

[sak]

ejecuto un procedimiento almacenado (sql), y muestro el resultado, cuando le puse el código para paginar la salida me da el sigte. error:

Tipo de error:
ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/apd/listainformesEval.asp, line 137

la linea 137 es esta en mi codigo : rs.AbsolutePage=PaginaActual

tengo definido el cerrojo y el cursor, y en la ejecucion lo tengo asi :

rs.Open SQL, oConn, 1, 3

sin embargo no funciona, apesar que la consulta devuelve mas de 500 registros el rs.pagecount me da como valor -1

no se que pasa, me pueden ayudar porfis...

Saludos y Gracias.

[lubetpic]

con solo esa linea no se puede saber que pasa

hay algunos paginadores en las faqs, tal vez te sirvan

[urjose]

Pos no va a funcionar por que debes hacer algo asi

PaginaActual=Request.QueryString("pagina")

If PaginaActual="" Then
PaginaActual=1
End If


Y ya, lo que pasa es que la primera vez que entras paginaactual viene vacio por eso te manda error.

no conozco tu codigo pero la idea es esa.

Saludos

[sak]

Gracias por la ayuda, pero no pasa nada se mantiene el error, aqui va el código :

Gracias y Ayuda porfis...


<%
Dim oConn, rs, SQL
Dim PaginaActual, PaginasTotales, TamPagina, CuantosRegistros, pagina
TamPagina=20
pagina=Request.Querystring("pagina")
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if

set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open sConexion
SQL="exec Sp_apd_Busca_rep_Eval '" &evaluacion& "','" &fecha1& "','" &fecha2& "','" &session("codigo")& "' "

rs.PageSize=TamPagina
rs.CacheSize=TamPagina

rs.Open SQL, oConn, 1, 3

#########################
aqui aunque rs trae registros, el pagecount me asigna
-1 a la variable PaginasTotales ????

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

#################
esta linea es la del error

rs.AbsolutePage=PaginaActual

#############################
Response.Write("Pagina " &PaginaActual & " de " & PaginasTotales)
CuantosRegistros=0

Do While Not RS.EOF and CuantosRegistros < TamPagina

%>

aqui despliego los datos

<%
CuantosRegistros=CuantosRegistros+1
RS.MoveNext
Loop
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
%>

[meru-kun]

Bueno, es que tienes que añadir esto para abrir la DB:

<%
' ****** VARIABLES PARA PAGINAR ******
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
Const adCmdText = &H0001
Const adOpenStatic = 3

%>
<%
MyRecordset.Open strSQLTodas, myConn, adopenstatic,adcmdtext
%>


Luego lo demas ya lo veras tu... ^^