Dela upp recordset!?

I FAQn så står det ju hur man delar upp ett recordset på flera sidor och jag har gjort en sida på det sättet som fungerar perfekt men nu när jag skulle göra en lite annorlunda sida så får jag det här felet:

ADODB.Recordset fel '800a0cb3'
The operation requested by the application is not supported by the provider.

/peachy2/meddelanden2.asp, rad 47

Jag tror inte det är själva rad 47 som är själva felet utan något runt om men det är bäst att ni får kolla på koden istället. Rad 47 är fet:

<!--#INCLUDE FILE="config.inc"-->
<% if Session("anvandarnamn")<>"" then %>

   <!--#INCLUDE FILE="topandmeny.inc" -->

<b><center>Dina meddelanden:</b></center><br>

   <table name="valkommen" border="0" align="left" cellspacing="0" width="400">
   <tr>
      <td>

<Table name="artiklar" width="600" align="left" valign="top" border="0" cellspacing="1" bordercolor="<%=BorderColor%>">
<tr bgcolor="<%=HeadCellColor%>">
   <td width="16"><font face="verdana, helvetica, arial" size="1" color="#FFFFFF"></td>
   <td><font face="verdana, helvetica, arial" size="1" color="#FFFFFF"><b>Ämne:</B></td>
   <td width="20"><font face="verdana, helvetica, arial" size="1" color="#FFFFFF"><b>Från:</b></td>
   <td width="40"><font face="verdana, helvetica, arial" size="1" color="#FFFFFF"><b>Inkom:</b></td>
   <td width="25"><font face="verdana, helvetica, arial" size="1" color="#FFFFFF"><b>Status:</b></td>
   <td width="25"></td>
   <td width="25"></td>
</tr>

<%
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 20

Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open MessConString
if Request.Querystring("mapp")="Outbox" then
SQL = "SELECT * From meddelanden WHERE avsandare ='" & Session("anvandarnamn") & "' ORDER BY datum DESC"
else
SQL = "SELECT * From meddelanden WHERE mottagare ='" & Session("anvandarnamn") & "' ORDER BY datum DESC"
end if
rs.Open SQL, MinCon

If rs.EOF then
   Response.write "Här finns det inga meddelanden =(" & sok
Else
   rs.movefirst
   rs.pagesize = mypagesize
   maxcount = Cint(rs.pagecount)
[b]   rs.absolutepage = mypage[/b]
   howmanyrecs = 0
   howmanyfields = rs.fields.count -1
   Do While Not RS.EOF AND howmanyrecs < rs.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = firstcellcolor
   Else
      color = secondcellcolor
   End If
   Response.write "<tr bgcolor='" & color & "'><td>" & RS("rubrik") & "</td></tr>"

   rs.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rs.close
   Set rs = nothing
   %>
   <tr><td><hr></td></tr>
   <tr><td>
   <%
   If maxcount <> 0 then
   response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 10 then
      pad = ""
   End If
   ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "'>" & pad & counter & "</a> "
   response.write ref & " "
   if counter mod 10 = 0 then
      response.write "<br>"
   End If
   Next
   End If
End If
%>

   <tr>
      <td colspan="6">
          <br>
      </td>
   </tr>
   <tr>
      <td colspan="6"><a href="nyttmeddelande.asp">Skriv nytt meddelande <img src="bilder/srarrows.gif" border="0"></A></td>
   </tr>
   </table>

      </td>
   </tr>
   </table>

<!--#include file="right.inc" -->

<%
else

Response.Redirect "default.asp"

end if
%>