Paging med GetRows

Hej!

Jag behöver lite nybörjarhjälp. Jag har använt mig av en artikel på Aspkoll som handlar om paging med GetRows. Resultatet blir nästan som jag vill ha det förutom att det blir en extra post på sista sidan. Jag vill visa en post per sida, men på sista sidan visas alltså två. Vad är fel?

PosterPerSida = 1

ForstaPosten = Request.QueryString("post")

If Len(ForstaPosten) = 0 Then
ForstaPosten = 0
Else
ForstaPosten = CInt(ForstaPosten)
End If

AntalPoster = Ubound(arrRs,2)

If AntalPoster > (PosterPerSida + ForstaPosten) Then
SistaPosten = PosterPerSida + ForstaPosten - 1
Else
SistaPosten = AntalPoster    
End If

If IsArray(arrRs) Then

If ForstaPosten > 0 Then
Response.Write("<a href=""sida1.asp?post=" & ForstaPosten-PosterPerSida & """>Föregående</a> ")
End If

If SistaPosten < AntalPoster Then
Response.Write("<a href=""sida1.asp?post=" & ForstaPosten+PosterPerSida & """>Nästa</a>")
End If

For i = ForstaPosten To SistaPosten
Response.Write("<p>" & arrRs(1,i) & " " &  arrRs(2,i) & " " &  arrRs(4,i) & "</p>")

Response.Write("<p><img src='bilder/" & arrRs(8,i) & "'></p>")
Next  

Else
Response.Write("Arkivbilden saknas")
End If