Este codigo de abajo falla!!!
Asias por adelantado!!!
'PAGINACIÓN*************************************** ****************
dim numTotal,numPag,numReg,cont
'numTotal=rs.count 'NºRegistros q devuelve la consulta
'numPag=numTotal/2
if Request.QueryString("numPag")<>"" then
session("pagina")=Request.QueryString("numPag")
else
session("pagina")=1
end if
set rs=Server.CreateObject("ADODB.RecordSet")
set rs=conexion.Execute(consultaSQL)
if session("pagina") then
rs.absolutePage=session("pagina") 'FALLA
rs.pageSize=2
else
rs.open consultaSQL,conexion,3,&h0001
end if
