counter og tables

Hejsa..

Jeg har puttet lidt sammen, som genererer en alfabet, hvorpå når en af disse bliver trykket på kommer der diverse kataloger frem.

Problemet lige pt ligger i at få lavet en counter der sørger for at når conter = 3,6,9,12,15,18,21 osv, så skal der en linieskif ind eller en ny <tr>, hvorpå katalogerne går en linie ned, istedet for at køre på en lige linie.

Her er en billede som illustrer problemet:

http://www.jansangill.dk/test.gif


Her er koden som jeg includer på hovedsiden:

<%
b = tt("b")

SQL="SELECT bureauer.navn, bureauer.id, bureauer_info.web, bureauer_info.bureau_id, bureauer_info.katalog_billede FROM bureauer, bureauer_info WHERE bureauer.id = bureauer_info.bureau_id ORDER BY bureauer.navn DESC"
SET RS = Conn.Execute (SQL)


counter = 1


Do while not rs.eof
   
    web = RS("web")
   

    temp = lcase(left(rs("navn"),1))
    if temp <> husk then med=med&temp
    husk = temp

    if b = temp then

        html =  html & "<td id='skikatalog_hjemmeside_box' valign='middle'>" & RS("navn") & "<a href='http://"&web&"' target='_blank' valign='middle'><img src='/web/grafik/hent_url_katalog.gif' valign ='middle' style='margin-left:75px;' border='0'>" &"</a></td>"
       
        html1 = html1 & "<td id='indhold_skikatalog'>" & "<img src='/public/Image/bureauer/katalog_billede/"&RS("katalog_billede")&"'>" & "</td>"
       
        html2 = html2 &    "<td id='input_skikatalog'><input type='checkbox' name='id' value='1' style='margin-left:5px;'>" & "<a href='FLASH KATALOG VARIABEL' style='margin-left:50px;'>LÆS ONLINE</a></td>"   
       
       
       
    counter = counter + 1   
    end if
   
    rs.movenext
   
loop


Alphabet = "abcdefghijklmnopqrstuvwxyzæøå"
For iCnt = 1 To Len(Alphabet)
    temp = Mid(Alphabet,iCnt,1)
    if temp = b then
        Response.Write "<a href="""&url_komplet&"&b="&temp&""" style='color:black'>" & (temp) & "</a>" & "&nbsp;&nbsp;&nbsp;"
    elseif instr(med, temp) then
        Response.Write "<a href="""&url_komplet&"&b="&temp&""">" & (temp) & "</a>" & "&nbsp;&nbsp;&nbsp;"
    else
        Response.Write (temp) & "&nbsp;&nbsp;&nbsp;"
    end if

Next
%>


Her er det jeg sætter det ind:

<table style="margin-left:10px;">
<tr>
<%= html%>
</tr>
<tr>
<%=html1%>
</tr>
<tr>   
<%=htm
</tr>
</table>


Nogle der kan hjælpe mig med dette problem?