RE:Pequeño error recordset
strSQL = "SELECT Tipo,Articulo,Epoca,Estilo,Precio,Numero FROM expresion2000 order by Numero"' Open RS
objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly, adCmdText
' Get the count of the pages using the given page size
iPageCount = objPagingRS.PageCount
t=objPagingRS.recordcount
' If the request page falls outside the acceptable range,
' give them the closest match (1 or max)
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
' Check page count to prevent bombing when zero results are returned!
If iPageCount = 0 Then
Response.Write "¡No hay registros encontrados!"
Else
' Move to the selected page
objPagingRS.AbsolutePage = iPageCurrent
Espero que te ayude