paging problem

Hejsa

jeg har en side hvorpå der bliver vist 4 billeder.
jeg kunne godt tænke mig at der bliver vist 8, men at de sidste 4 billeder skal vises nedenunder de første 4 (et nyt tr og td)

koden:

If Not (rsFilm.BOF Or rsFilm.EOF) Then
rsFilm.PageSize = 4
rsFilm.AbsolutePage = intPage
intRecCount = rsFilm.PageSize
intPageCount = rsFilm.PageCount
%>
<table  border="0" cellpadding="5" cellspacing="0" width="86%" align="center">
<tr>
<td colspan="4">
<%
Response.Write "&nbsp;&nbsp;<Font face='Verdana' Size='1'><b>Side " & intPage & " af " & intPageCount & " &nbsp;ud af " & rsAntal("ID") & " film</b></font>"
%>
</td>
</tr>
<tr>
<% Do While Not rsFilm.EOF And intRecCount > 0 %>
<td width="25%" valign="top"><img src="produktBilleder/<%=rsFilm("ProduktBilled")%>_normal.jpg" width="100" height="150" alt="<%=rsFilm("ProduktNavn")%>" border="1"><br><a href="filmbeskrivelse.asp?ID=<%=rsFilm("UnikID")%>"><font face="Verdana" size="1" color="#000000"><strong><%=rsFilm("ProduktNavn")%></strong></font></a></td>
<%
intRecCount = intRecCount - 1
rsFilm.MoveNext
Loop
rsFilm.Close
Set rsFilm = Nothing
%>

Mvh
software