Gissa? jeep pagin ;)

Hejsan... ja vet att ni inte gillar alla dessa fråger om pagin så hoppas att ni inte blir allt för sura på mig :-)
i Alla fall behöver hjälp med pagin får inget fel meddelande men posterna byttas inte allså säg att detta finns i databasen:

post 1) FREDRIK
post 2) PATRIK

Men även om ja byttar sida vissas bara FREDRIK och nu min fråga varför har ja skrevit fel någonstans?

<!-- #include virtual="adovbs.inc" -->
<%
file = Server.MapPath("filmer.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 filmer ORDER BY namn ASC" 
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic 

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

If sida = "" then sida = 1

sida = RecSet.AbsolutePage
totalPages = RecSet.PageCount

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 

namn = RecSet("namn")
Response.write ""& namn &"<br>"

RecSet.MoveNext
Loop
End If

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

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

RecSet.Close
Set RecSet = Nothing
Connect.close
%>

Mvh :birp