Hola, estoy intentando paginar el código del carro de compras de Aspfacil.com , pero me da el siguiente error:
ADODB.Recordset error '800a0cb3'
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.
Os muestro el código, a ver si alguien me ayuda, gracias.
Sub MostrarCatalogo
' Muestra el catálogo con enlaces para ir comprando
Dim oRs, oRs2, SQL ' Uso 2 recordset
Dim idAcc ' idAcc en Accesorios
Dim mostrar 'cantidad de registros a mostrar por página
Dim cant_paginas 'cantidad de páginas que recibimos
Dim pagina_actual 'La página que mostramos
Dim registro_mostrado 'Contador utilizado para mostrar las páginas
Dim inicio
Dim fin
Dim I 'Variable Loop
mostrar = 5
' IF para saber que página mostrar
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
set oRs=Server.CreateObject("ADODB.Recordset")
")
SQL="SELECT * FROM tabla;"
oRs.PageSize = mostrar
oRs.CacheSize = mostrar
oRs.Open SQL, oConn
cant_paginas = oRs.PageCount
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("We haven´t got any property with those profiles")
Else
' Nos movemos a la página elegida
oRs.AbsolutePage = pagina_actual
' Mostramos el dato de que página estamos...
'Dibujo la tabla
%>
<TABLE BORDER=1 CELLSPACING="1" CELLPADDING="1">
<TR>
<TD><B>Marca</B></TD>
<TD><B>Producto</B></TD>
<TD><B>Precio</B></TD>
<TD></TD>
<%
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not oRs.EOF
%>
<TR>
<TD><IMG src="../db/thumbnail/<%=oRs.Fields("fotothAcc")%>"> <!--<A HREF="<'%=oRs2.Fields("URL")%>"><'%=oRs2.Fields("N ombre")%></A>--></TD>
<TD><%=oRs.Fields("nameAcc")%></TD>
<TD><%=oRs.Fields("precioAcc")%></TD>
<TD><A HREF="tienda.asp?ac=meter&prod=<%=oRs.Fields("idAc c")%>">Comprar</A></TD>
</TR>
<TR>
<TD colspan="4">
</TD>
</TR>
<%
'para allar el primer y último registro de la page en curso
inicio = 1+(pagina_actual-1)*oRs.pagesize
fin = inicio +(mostrar-1)
if fin > oRs.recordcount then
fin =oRs.recordcount
end if
registro_mostrado = registro_mostrado + 1
'Limpio oRs2
'oRs2.Close
oRs.MoveNext
loop
'Termino la tabla
%>
</TABLE>
<!--Ahora mostramos los enlaces a las otras páginas con el resto de los registros...-->
<%If pagina_actual > 1 Then
%>
<a href="tienda.asp?izona=<%=izona%>&itipo=<%=itipo%> &iprecio=<%=iprecio%>&iword=<%=iword%>&page=<%= pagina_actual - 1 %>"><font class="Estilo4">Previous</font></a>
<%
End If
' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<font class="Estilo9"><%= I %></font> |
<%
Else
%>
<a href="index8.asp?izona=<%=izona%>&itipo=<%=itipo%> &iprecio=<%=iprecio%>&iword=<%=iword%>&page=<%= I %>"><font class="Estilo4"><%= I %></font></a> |
<%
End If
Next 'I
If pagina_actual < cant_paginas Then
%>
<a href="index8.asp?izona=<%=izona%>&itipo=<%=itipo%> &iprecio=<%=iprecio%>&iword=<%=iword%>&page=<%= pagina_actual + 1 %>"><font class="Estilo4">Next</font> </a>
<%
End If
End if
'Fin...
%>
<%
oRs.Close
set oRs=nothing
'set oRs2=nothing
' Pinto opciones
%>
<center><A HREF=tienda.asp?ac=ver>Ver Carrito</A></center>
<%
End Sub
