Udskriv fra database

Hej.
Jeg udskriver nogle billeder fra min database i nedenstående kode.

Nu bliver der skiftet linje efter hvert billede, men jeg vil meget gerne have den til at vise 5 billeder på en linje og så skifte til næste linje og vise 5 igen indtil den har vist 15 i alt. (3 rækker og 5 kolonner må det så blive).

Det er alt den skal vise på en side, så har jeg noget kode så man kan vælge at vise "side 2" og så skal den gøre det samme igen med efterfølgende. Det virker fint, det eneste jeg vil have den til at at udskrive det anderledes som jeg beskrev først. Håber der er nogen der kan hjælpe.




kode:

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM seneste WHERE spilnavn <> '' AND visnyhed <> 1 ORDER BY tid DESC"
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/db/db.mdb")
rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then

    rs.PageSize = 15
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
%>
    <div align="left">
        <div align="center"><table border="0" width="93%" id="table3097">
                <tr>
                    <td colspan="3">
                    <p align="center"></td>
                </tr>
                <tr>
                    <td width="92">
                    <img border="0" src="spil.a1.jpg" align="right"></td>
                    <td width="289" valign="bottom">
                    <p align="center"><font face="Forte" size="4">
                    <span lang="da">Hyggestedets</span></font><font face="VAGRounded BT"><b><br>
                    <font size="6">-=( </font></b></font>
                    <font face="Forte" color="#800000" size="6">GAMEZONE</font><b><font face="VAGRounded BT" size="6"><font color="#800000">
                    </font>)=-</font></b></td>
                    <td><img border="0" src="spil.a2.jpg"></td>
                </tr>
                <tr>
                    <td width="92"></td>
                    <td width="289" valign="bottom">
                    <p align="center"><span lang="da"><br>
                    <font face="Verdana" size="4"><b>Nyeste spil</b></font></span></td>
                    <td></td>
                </tr>
            </table></div><b><font size="5" align="center"><span lang="da">
        <font size="2"><hr color="#BD5939">
                        <p><br>
                        <br>
                        <br>
</p>
    <%
    Do While Not rs.EOF And intRecCount > 0
%>
        <div align="left">
            <div align="center">
                <table border="0" width="100%" id="table3095">
                    <tr>
                        <td width="30%">

<%
If rs("spil") = "Spil" then
%>   
    <a target=_blank href="playerspillink.asp?id=<%=rs("id")%>">
        <img border="1" src="<%=rs("pic")%>" width="120" height="82"> </td>
   
<%
else
%>
      <a target=_blank href="http://www.hyggestedet.dk/playerspil.asp?id=<%=rs("id")%>">
    <img border="1" src="http://www.hyggestedet.dk/games/<%=rs("pic")%>" width="120" height="82"> </td>
<%
    end if
    %>

<hr color="#BD5939"></tr>
                </table></div>
            <align="center><hr color="#BD5939" width="100%"></align="center>
            <p align="center">
       

        <%
        intRecCount = intRecCount - 1
        rs.MoveNext
    Loop

End If

rs.Close
Set rs = Nothing


Response.Write "<p><strong>Gå til side</strong> "

For intNum = 1 To intPageCount
    Response.Write "<a href=""?menu=arkade&page=" & intNum & """>" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=""?menu=arkade&page=" & intPage - 1 & """>&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write ""

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=""?menu=arkade&page=" & intPage + 1 & """>&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If

%>

Mvh.
Henrik