Error con AbsolutePage Este es el error que me sale cuando ejecuto mi rutina:
Error Type:
ADODB.Recordset (0x800A0CB3)
Object or provider is not capable of performing requested operation.
/master2.asp, line 228
Y mi lineas de codigo donde tira este error son las siguientes:
set objcon = Server.CreateObject("ADODB.Connection")
objcon.provider ="Microsoft.Jet.OLEDB.4.0"
objcon.ConnectionString = "DataSource=c:\MasterList.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 es que no hay registros... por eso este IF
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...
La linea #228 es:
tabla.AbsolutePage = pagina_actual
