Hola a todos, necisito ayuda para paginar un recorset, el problema me lo manda en la parte del codigo k tengo remarcado con rojo, si lo comento no me da error pero no me pagina, el error que me manda es el sig.
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/destinatario_carrito.asp, line 165
espero me puedan ayudar, aca esta el codigo de la paginacion. desde ya se agradese cualkier tipo de ayuda.
<form name="form1" method="post" action="destinatario.asp?sec=17">
<%
Dim PaginaActual ' en qu� pagina estamos
Dim PaginasTotales ' cu�ntas p�ginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros
'MODIFICAR AQUI PARA CAMBIAR EL N� DE REGISTRO POR PAGINA
TamPagina = 5
sql = "select id_producto, titulo, descripcion, archivo, puntaje from producto"
set rsCarrito = server.CreateObject("adodb.recordset")
rsCarrito.PageSize = TamPagina
rsCarrito.CacheSize = TamPagina
rsCarrito.open sql, conexion , 1 , 2
PaginasTotales = rsCarrito.PageCount
'Leemos qu� p�gina mostrar. La primera vez ser� la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'rsCarrito.AbsolutePage = PaginaActual
Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
%>
<table width="95%" height="55" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="30" colspan="5"> </td>
</tr>
<tr>
<td height="17" colspan="5" bgcolor="#EBEBEB" class="black12"><img src="images/flecha_base.gif" alt="desc" width="31" height="16"> <strong>Agregar producto </strong></td>
</tr>
<tr>
<td height="2" colspan="5">Agregar</td>
</tr>
<%
CuantosRegistros=0
while not rsCarrito.eof and CuantosRegistros < TamPagina%>
<tr>
<td><div align="center">
<input type="checkbox" name="agregar" value="<%=rsCarrito("id_producto")%>">
</div></td>
<td>Nombre :</td>
<td><%=rsCarrito("titulo")%></td>
<td width="10%">Puntos : </td>
<td width="32%" height="2"><%=rsCarrito("puntaje")%></td>
</tr>
<tr>
<td> </td>
<td>Descripción : </td>
<td><%=rsCarrito("descripcion")%></td>
<td>Imagen : </td>
<td height="2"><img src="upload_admin/<%=rsCarrito("archivo")%>" width="93" height="67"></td>
</tr>
<tr>
<td width="10%"> </td>
<td width="15%"> </td>
<td width="33%"> </td>
<td> </td>
<td height="2"> </td>
</tr>
<%
CuantosRegistros = CuantosRegistros + 1
rsCarrito.movenext
wend %>
</table>
<%
'Muestro los enlaces
Response.Write("<hr>")
if PaginaActual > 1 then
Response.Write("<A HREF=rspagina.asp?pagina="& PaginaActual-1& _
">10 Anteriores</A> ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=rspagina.asp?pagina=" & PaginaActual+1 & _
">10 Siguientes</A>")
end if
%>
<div align="center">
<input type="hidden" name="actionForm" id="actionForm" value="1">
<input type="submit" name="Submit" value="Agregar producto">
</div>
</form>
<% end if %>
<%end if%>
