Udtræk fra DB til tabeller

Jeg forsøger i øjeblikket, at lave et udtræk fra en database til en tabel, og det går for såvidt godt nok, lige bortset fra en \"lille\" detalje.
Jeg bruger nedenstående kode som lister kategorinavnene vandret, men jeg vil gerne have dem
lodret, altså noget i stil med:

a    b    b
a    b    b
b    b    c

- men hvordan jeg gør jeg det ?
Her kommer koden:

<%
SQLstmt = \"select count (*) as antal from kategorier\"
Set rs = conn.Execute(SQLstmt)
antal = rs(\"antal\")
SQLstmt2 = \"select * from kategorier order by katnavn\"
set rs2 = conn.execute(SQLstmt2)
%>

<table width=\"100%\" border=\"1\">
<%
const WIDTH=3
for i=0 to antal
if (i mod WIDTH)=0 then response.write \"<tr>\"
  DO WHILE NOT rs2.EOF
response.write \"<td >\" & rs2(\"katnavn\") & \"</td>\"
if (i mod WIDTH)=WIDTH-1 then response.write \"</tr>\"
i=i+1
rs2.MoveNext
LOOP
if (i-1 mod WIDTH)<>WIDTH-1 then response.write \"</tr>\"
next
%>
</table>
<%
rs.close
set rs = nothing
rs2.close
set rs2 = nothing
conn.close
set conn = nothing
%>