Konstigt pagin fel

Hejsan...

Jag har stött på ett mycket konstigt problem må jag säga...

 <%
 file = Server.MapPath("book.mdb") 
 Set Connect = Server.CreateObject("ADODB.Connection") 
 Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file 

 Set RecSet = Server.CreateObject("ADODB.Recordset") 
 SQL = "SELECT * FROM book ORDER BY ID DESC" 
 RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic 

' ####### - PAGIN SCRIPTET STARTAR HÄR - #######

RecSet.pagesize = 10
sida = Request.QueryString("sida") 

If sida = "" then sida = 1 

if RecSet.EOF then 
Response.write "Det finns inga poster att hämta i databasen" 
Else 

Do until RecSet.EOF or fldcounter = RecSet.pagesize 
fldcounter = fldcounter + 1 

RecSet.AbsolutePage = sida 
totalPages = RecSet.PageCount 

%>
                    <b><%=RecSet("Rubrik")%></b><br>
                    <%=RecSet("mess")%><br>
                    <%=RecSet("namn")%> 
                    <%If RecSet("hemsida") = "" then 
Response.write " - H"
ElseIf RecSet("hemsida") = "http://" then 
response.write " - H"
Else
%>
                    - <a href="<%=RecSet("hemsida")%>" target="_blank">H</a> 
                    <%End If%>
                    <%If RecSet("mail") = "" then 
Response.write " - M"
ElseIf RecSet("mail") = "@" then 
response.write " - M"
Else
%>
                    - <a href="mailto:<%=RecSet("mail")%>"> M</a> 
                    <%End If%>
                    - <%=RecSet("datum")%> <br>
                    <br>
<%
RecSet.MoveNext 
Loop 
End If
 %>

                    </font><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">br>
                    </font></p>
                  <p>&nbsp;</p>
                  </div>
              </td>
            </tr>
          </table>
        </td>
      </tr>
      <tr> 
        <td><img src="down.gif" width="264" height="6"></td>
      </tr>
      <tr> 
        <td>&nbsp;</td>
      </tr>
      <tr> 
        <td> <img src="top.gif"></td>
      </tr>
      <tr> 
        <td background="tb_bg.gif"> 
          <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center" height="16">
            <tr> 
              <td><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">

<%
Response.write "<a href=book.asp?sida=1>Första sidan</a> &nbsp;" 

i = 0 
For i = 1 to RecSet.PageCount 
Response.write "<a href=book.asp?sida="& i &">"& i &"</a> &nbsp;" 
Next 

Response.write "<a href=book.asp?sida="& totalPages &">Sista sidan</a>" 

RecSet.Close 
Set RecSet = Nothing 
Connect.close 

%>

Denna koden fungera bra så länge pagesize är 1 men sätter man det till två t.ex så vissas samma inlägga två gånger och inte två olika, byttar man sida så är det samma där fast med ett nytt inlägg... är det någon som kan hitta vad jag har gjort fel tro?

Mvh