Funciones: AbsolutePage, PageSize, CacheSize, PageCount
Codigo:
mostrar = 3500
' IF para saber que página mostrar
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
set objcon = Server.CreateObject("ADODB.Connection")
objcon.provider ="Microsoft.Jet.OLEDB.4.0"
objcon.ConnectionString = "Data Source=c:\Master.xls;Extended Properties =" & chr(34) & "Excel 8.0;HDR=YES;IMEX=1;" & chr(34) & chr(34) & chr(34)
objcon.Open
set tabla = Server.CreateObject("ADODB.Recordset")
tabla.PageSize = mostrar
tabla.CacheSize = mostrar
sql_statement1 = "Select * from [sheet1$]"
tabla.Open sql_statement1, objcon
cant_paginas = tabla.PageCount
'Si el pedido de página cae afuera del rango,
'lo modificamos para que caiga adentro
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
'Si la cantidad de páginas da 0
If cant_paginas = 0 Then
Response.Write "No hay registros..."
Else
'Nos movemos a la página elegida
tabla.AbsolutePage = pagina_actual
'Mostramos el dato de que página estamos...
Con el codigo de esta manera me presenta el siguiete error
Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.
/master2.asp, line 229
La linea 229 es en donde dice
tabla.AbsolutePage = pagina_actual
Gracias a todos por su ayuda

