loop i loop måske

Hvordan dælen for jeg fire billeder vist på to rækker og derefter lavet en side deling...

kan ikke dreje den...

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If
%>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM billeder WHERE menupunkt = '" & request.querystring("menu") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 8
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
  Do While Not rs.EOF And intRecCount > 0
%>
<div align="center">
            <table border="0" id="table2" cellspacing="0" cellpadding="0" bordercolor="#000000" width="95" height="112">
            <%
            COUNTER = 0
            Do While Not rs.eof
            %>
            <tr>
                <td align="center">
                <img border="0" src="<%=rs("fil")%>" width="89" height="112">
                </td>
            </tr>
            <%
            intRecCount = intRecCount - 1
            rs.Movenext
            COUNTER = COUNTER + 1
            If COUNTER = 1 And Not rs.eof Then
            COUNTER = 0
            %>
            </table>
<%
End If
Loop
%>
<table border="0" width="100%" id="table4">
    <tr>
        <td align="left">
        <b><font face="Arial" size="2">
        <%
        Response.Write "<p>Gå til side "
        For intNum = 1 To intPageCount
        %>
        </b>
        <a href=galleri2.asp?menu=galleri&page=<%=intNum%>>
        <span style="text-decoration: none; font-weight: 700">
        <font color="#000000"><%=intNum%></font></span></a><b>
        <%
        Next
        %>
        </b>
        </font>
        </td>
    </tr>
</table>
</div>
<% end if %>
</body></html>