paging hittar ej nästa sida

Jag försöker lägga in en paging för bildvisning och alla nya sidlänkar kommer fram fint men den hittar inte någon av dess sidor. Jag får felmess:

Feltyp:
ADODB.Recordset (0x800A0BCD)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.

Det gäller:

RecSet.AbsolutePage = intPage

Kan nån se vad som är fel?

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
SQL = "Select * From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn"

Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open SQL, Conn, 1, 3
RecSet.PageSize = 3

X=0

If Request.QueryString("page") = "" OR NOT IsNumeric(Request.QueryString("page")) Then
intPage = 1
Else
intPage = CInt(Request.QueryString("page"))
End If

RecSet.AbsolutePage = intPage  

DO UNTIL RecSet.EOF OR X = RecSet.PageSize

Set RS=Conn.Execute("Select * From galleri Where namn='" & RecSet("namn") & "'")
Set ReS=Conn.Execute("Select Top 1 * From bilder Where namn='" & RecSet("namn") & "' Order By datum desc")
Set Bilder=Conn.Execute("Select Count(*) As antal From bilder Where namn='" & RecSet("namn") & "'")
%>

  <tr>
    <td><a href="visa.asp?id=<%=RecSet("namn")%>"><%=RecSet("namn")%></a>(<i><%=Bilder("Antal")%><%If Bilder("Antal") = 1 Then%> bild<%Else%> bilder<%End If%></i>)</td>
  </tr>
  
  <tr>
    <td><a href="visa.asp?id=<%=RecSet("namn")%>"><img src="pics/<%=ReS("Bild")%>" width="397" border="0"></a></td>
  </tr>
  
  <tr>
    <td class="rubrik2" align="center"><%If Len(RS("info")) > 60 Then%></b><%= Left(Replace(RS("info"), vbCrLf, "<br>" ),60)%>..<%Else%><%=Replace(RS("info"), vbCrLf, "<br>" )%><%End If%></td>
  </tr>
   
<%
X=X+1
RecSet.MOVENEXT
LOOP
%>

<%
If RecSet.PageCount > 1 Then
For i = 1 To RecSet.PageCount
If i <> intPage Then
Response.Write("<a href=""?page=" & i & """>" & i &"</a> ")
Else
Response.Write("[" & i & "] ")
End If
Next
End If
%>