Bueno, pues la cosa es qe con el sistema qu tengo para paginar, no se por que, pero SIEMPRE me dice que el numero de paginas que hay es de 1. Y no encuentro el problema por ningun lado. Os dejo aqui el fragmento de codigo que intersa, a ver si alguno ve algo...
Código:
If txtPagina = "" Then
PaginaActual=1
Else
PaginaActual=CInt(txtPagina)
End if
TamPagina = 3
strSQLSecc = "Select ID, CONTENIDO, SECC_JUEGO, TITULO FROM GAMES_INFO"
strSQLSecc = strSQLSecc & " WHERE ID_JUEGO =" & txtGameEsID
strSQLSecc = strSQLSecc & " AND ID_SECCION=" & txtGameSeccID
MyRecordset.Open strSQLSecc, myConn, adopenstatic,adcmdtext
PaginasTotales = MyRecordset.PageCount
PaginasTotales
If PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
...
El problema tiene que surgir por ahi, pues es ahi donde me cuenta las paginas, y siempre me sale que PaginasTotales = 1
¿Por que?