Ayuda al Paginar

[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
%>