Lo puse como tu me dijiste y sigue sin funcionar, debajo te posteo el codigo para que lo veas como quedo.
' Abro la tabla...
Set ObjDB = Server.CreateObject("ADODB.Connection")
ObjDB.Open strConnection, oConn,3,1
RS.Open strSQL, ObjDB, 3, 3
'cuento las páginas que se formaron con la variable mostrar
cant_paginas = RS.PageCount (esta es la linea 143)
' Si el pedido de página cae afuera del rango,
' lo modifico para que caiga adentro
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
Gracias anticipadas al que me ayude con esto.
