Mysql y ASP (problemas bookmarks)

[Davilitu_22]

Hola :)

Tengo una aplicación en ASP que tiene vinculada una base de datos en Access.
Desde hace unos días, estoy comenzando el traspaso a una base de datos en MySql.

Tras comprobar que hay algunos cambios entre Access y MySql que he conseguido corregir, me encuentro con el problema de que en una página en la que se cargan unos datos de un SELECT en una tabla, 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.

/consulta_personal.asp, line 46

La línea del error es esta

RS.AbsolutePage = pagina_actual

Pego el código de ASP para que lo podaís revisar y ayudarme a solucionar este quebradero de cabeza que me lleva martirizando varios días

Código:

<%
mostrar = 10

If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If

Dim conn_bd

conn_bd = "Driver={MySQL ODBC 5.1 Driver};Server=gmwebserver;Port=3306;Database=inci dencies;Uid=inc;Pwd=tcb2008"
Set Conn=Server.CreateObject("ADODB.Connection")
'Conn.Open "TCB"
Conn.Open (conn_bd)

sSql="Select * from Incidencias where técnico='" & Session("nombre") & " " & Session("apellidos") & "'"

Set RS=Server.CreateObject("ADODB.Recordset")

RS.PageSize = mostrar
RS.CacheSize = mostrar

RS.Open sSql, Conn, 3,1

cant_paginas = RS.PageCount

If pagina_actual > cant_paginas Then pagina_actual = cant_paginas

If pagina_actual < 1 Then pagina_actual = 1


If cant_paginas = 0 Then
Response.Write "No hay registros"
Else
RS.AbsolutePage = pagina_actual
End If%>
<table border="2">
<th>Código Incidencia</th>
<th>Fecha</th>
<th>Nombre</th>
<th>Apellido</th>
<th>Departamento</th>
<th>Extensión</th>
<th>Incidencia</th>
<th>Técnico Asignado</th>
<th>Resolución</th>
<th>Visualizar</th>

<%Do While registro_mostrado < mostrar And Not RS.Eof%>
<tr>
<td><%=RS("codigo_incidencia")%></td>
<td><%=RS("fecha")%></td>
<td><%=RS("nombre")%></td>
<td><%=RS("apellidos")%></td>
<td><%=RS("departamento")%></td>
<td><%=RS("extension")%></td>
<td><%=RS("incidencia")%></td>
<td><%=RS("técnico")%></td>
<td><%=RS("resolucion")%></td>
<td><form method="post" action="ficha.asp">
<input type="hidden" value="<%=RS("codigo_incidencia")%>" name="cod_inc">
<input type="submit" value="Actualizar" />
</form></td>
</tr>
<%
RS.MoveNext
registro_mostrado = registro_mostrado + 1
Loop
Conn.Close
RS.Close%>

Muchas gracias y un saludo!!

[yeyowave]

modifica esto

Set RS=Server.CreateObject("ADODB.Recordset")

RS.PageSize = mostrar
RS.CacheSize = mostrar

RS.Open sSql, Conn, 3,1

cant_paginas = RS.PageCount

----------------------
por esto
---------------------

Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open sSql, Conn, 3,1
RS.PageSize = mostrar
RS.CacheSize = mostrar
cant_paginas = RS.PageCount

[Davilitu_22]

Lo cambié pero sigue saliendo el mismo error en la misma línea

Muchas gracias por responder!!

Saludos

[sjam7]

Ponlo asi y me cuentas:

Código ASP:

RS.CursorLocation = 3
 
rs.open sql, Conn
 

[Davilitu_22]

Perdóna por tardar en contestar =/

También lo probé y nada :(

De todos modos, ya lo solucioné usando el código que se propuso en las últimas respuestas de este tema http://www.forosdelweb.com/f15/paginar-registros-mysql-asp-378529

Muchas gracias a ambos!!

Saludos!!