Does not support bookmarks???

Håller på att konvertera ett forum som är skrivet för Access till MySQL och får detta felmeddelnde som jag inte har stött på förut.

ADODB.Recordset error '800a0cb3'

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

/fwforum/admin_medlemmar.asp, line 144

Koden på rad 144 ser ut så här.
rs.AbsolutePage = nextPage

Detta är Recordseten som öppnas
Set rs = Server.CreateObject("ADODB.Recordset")
if request.form("sok")&""<> "" then
SQL = "SELECT * FROM users order by username Like '%%" & Request.Form("sok") & "%%' "
else
SQL = "SELECT * FROM users order by username"
end if
rs.Open SQL, objCon, 3, 3

Nån som stött på samma problem som kan tipsa mig, har kommit så långt att jag listat ut att det har något med paging att göra.

Då kan det ju vara smart att visa koden för pagingen.

Använd gärna kod-taggen också.

Så här ser hela koden ut för hämtning från databas, och pagingen.
Detta är Access koden, skulle vara underbart om man kunde få det att funka i MySQL också

Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM users where id="&request.QueryString("id")
rs.Open SQL, objCon, 3, 3	
		
Set rs1 = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM mod"
rs1.Open SQL, objCon, 3, 3
		
rs1.addnew
rs1("mod") = rs("username")
rs1("modid") = rs("id")
rs1("forum") = request.form("forum")
rs1.update
rs.close
set rs = nothing
rs1.close
set rs1 = nothing
objCon.close
set objCon = nothing
response.Redirect "admin_medlemmar.asp?id="&request.QueryString("id")
			
' till hör sidsystemet
nextPage = TRIM( Request("nextPage"))
IF nextPage = "" THEN nextPage = 1

Set rs = Server.CreateObject("ADODB.Recordset")
if request.form("sok")&""<> "" then
SQL = "SELECT * FROM users order by username Like '%%" & Request.Form("sok") & "%%' "
else
SQL = "SELECT * FROM users order by username"
end if
rs.Open SQL, objCon, 3, 3
ida = rs("id")

' tillhör sidsystemet		
rs.PageSize = 20 ' ändra antalet medlemmar per sida här
'if not rs.EOF then
'rs.AbsolutePage = nextPage
'END IF

fark=1

Do until rs.EOF OR rowCount = rs.PageSize
rowCount = rowCount + 1
 %>
            <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="<%=farg%>">
              <tr>
                <td><a href="admin_medlemmar.asp?id=<%=rs("id")%>">
                  <% =rs("username")%>
                  </a></td>
              </tr>
            </table> 
            <a href="admin_medlemmar.asp?id=<%=rs("id")%>"> 
            </a> 
            <% 
if fark=1 then fark = 0  else fark = 1			
rs.movenext
loop

 %>
     <%
    IF rs.PageCount > 1 THEN 

%>
      &nbsp;Sida: 
      <%
	FOR a = 1 to rs.PageCount
IF a <> cINT( nextPage ) THEN %>
      <a href="admin_medlemmar.asp?nextPage=<%=a%>"><%=a%></a> 
      <%
ELSE %>
      [<%=a%>]
      <%
END IF 
 NEXT
 end if%>

Som sagt, använd [kod]-taggen när du postar kod!