02/09/2004, 14:48
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
| Creas el recordset, pero nunca lo abres...
' creo el RecordSet y defino la cantidad de registros a mostrar
Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar
' Abro la tabla...
Set ObjDB = Server.CreateObject("ADODB.Connection")
ObjDB.Open strConnection, oConn,3,1
'Aqui lo debes abrir...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
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |