Recordest en MySQL

[bitshoot]

prueba con esto:

declara las siguientes variables

Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adUseClient = 3

y en el recordset pones

sql = "select id_producto, titulo, descripcion, archivo, puntaje from producto"
set rsCarrito = server.CreateObject("adodb.recordset")
rsCarrito.PageSize = TamPagina
rsCarrito.CacheSize = TamPagina
rsCarrito.CursorType = adOpenKeyset
rsCarrito.LockType = adLockOptimistic
rsCarrito.CursorLocation = adUseClient
rsCarrito.open sql, conexion , 1 , 2
'PaginasTotales = rsCarrito.PageCount

esto hacemas tolerante la consulta.