udskriv RS i kolonner + rækker

Jeg har et recordset som jeg gerne vil have skrevet ud først i 6 kolonner og derefter i rækker, alt efter hvor mange poster der nu kommer til at være.
I øjeblikket ser min kode således ud:

<%
Dim td
Do While Not RS.EOF
%>
<tr>
<%
td = 1
Do while td <= 6 or Not RS.EOF
%>
<td width="50" align="center"><a href="gallery.asp?gallery=<%=name%>" onfocus="this.blur()"><img src="img/mappe.gif" width="32" height="27" border="0" alt="<%=description%>"><br><%=name%></a><p></td>
<%
td = td + 1
RS.MoveNext
loop
%>
</tr>
<%
Loop
%>

Det kan godt være at jeg er helt galt på den, er der nogen der har et bud?