Current Recordset does not support bookmarks??

Hey,

jeg har fundet et script som gør det muligt at opdele udtrækket fra min database i flere sider, men når jeg køre scriptet på min side får jeg flg. fejl:

*-----------------------------
ADODB.Recordset error '800a0cb3'

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

/billedeshow.asp, line 21
*-----------------------------

min kode ser så ledes ud:

*-----------------------------
<% Set Conn = Server.CreateObject("ADODB.Connection")
Dim Connstr
Connstr = "DRIVER={MySQL}; server=localhost; database=database; uid=na; pwd=na;"
Conn.Open Connstr
strSQL = "Select* from billeder WHERE Fra='" & Request("Fra") & "' Order by ID"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open strSQL, Connstr, 1
'Set rs = Conn.Execute(strSQL)

call html1white()

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

  If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 1
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount

Do While Not rs.EOF And intRecCount > 0
    Response.Write "<table align='center' border='0' cellpadding=""0"" cellspacing=""0""><tr><td><img src='images/album/" & rs("Fra") & "/" & rs("SRC") & "'></td></tr></table>"
  intRecCount = intRecCount - 1
  strSRC = rs("src")
  rs.MoveNext
  Loop
End If

Response.Write "<table bgcolor=""#94C93D"" align='center' border='0'width='400' cellpadding=""0"" cellspacing=""0""><tr><td align='left'>"

If Clng(intPage) > 1 Then
  Response.Write "<a href='?fra=" & Request("fra") & "&page=" & intPage - 1 & "'><img src='images/design/tilbage.jpg' border='0' width='20' height='20' alt=''></a>"
Else
  Response.Write "<font class='main'><img src='images/design/tilbage_bw.jpg' border='0' width='20' height='20' alt=''></font>"
End If

Response.Write "</td><td align=""center""><font color=""#FFFFFF"" class=""text-small"">" & UCase(strSRC) & "</font></td><td align='right'>"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href='?fra=" & Request("fra") & "&page=" & intPage + 1 & "'><img src='images/design/frem.jpg' border='0' width='20' height='20' alt=''></a>"
Else
  Response.Write "<font class='main'><img src='images/design/frem_bw.jpg' border='0' width='20' height='20' alt=''></font>"
End If

Response.Write "</td></tr></table>"

rs.Close
Set rs = Nothing
%>

</body>
</html>
*-----------------------------

fejlen er i denne linie:  rs.AbsolutePage = intPage

Håber der er nogle der kan hjælpe,
Anders.