Loop - 4 på en række

Tags:    asp

Jeg har en kode der ser sådan ud:

<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
sql = "SELECT * FROM brugere"
Set rs = Conn.Execute(sql)
do while not rs.EOF
%>
<div align="center">
<table border="0" width="158" id="table1">
<% For t = 0 To 4 %>
<tr>
<td width="152" align="center" colspan="3">
<p align="center">
<font face="Arial" size="2">
<img border="0" width="124" height="113"></font></td>
</tr>
<tr>
<td width="36" align="center">
<p align="left"><font face="Arial" size="2">Navn: </font> </td>
<td width="64" align="center">
<p align="left"><font face="Arial" size="2"><%=rs("navn")%></font></td>
<td width="40" align="center" rowspan="2">
<p align="right"><font face="Arial" size="2">ID: <%=rs("id")%></font></td>
</tr>
<tr>
<td width="36" align="center">
<p align="left"><font face="Arial" size="2">Adresse: </font> </td>
<td width="64" align="center">
<p align="left"><font face="Arial" size="2"><%=rs("AA")%></font></td>
</tr>
<% Next %>
</table>
<%
rs.movenext
loop
%>
</div>

Den vil jeg gerne have til at vise udtrækkene sådan:

1 - 2 - 3 - 4
5 - 6 - 7 - 8
9....

istedet for:
1
2
3
4



du kan to i din løkke teste om t er større end 0 og om t modulus 3 er 0 hvis den er det så indsæt et række skrift </tr><tr>

Du risikere at få en tom række i bunden hvis antallet af elementer modulus 3 er 0.



t