Tabel menu

Jeg har en menu som henter data fra en .mdb
den ser sådan ud:

1    2    3
1,1  2,1  3,1
1,2  2,2  3,2
1,3  2,3  3,3

Men jeg vil have det hele i en kolonne

1
1,1
1,2
1,3
2
2,1
2,2
2,3

koden ser sådan ud:

<%
Response.Buffer = false

sql = "select * from tbloverskrift where aktiv = true"
rs.open sql, conn
dim varTemp()
dim intCount
Response.Write "<center><table border=0 cellspacing=0>"
Response.Write "<tr>"
do while not rs.eof

Response.Write "<th bgcolor='#c0c0c0'>" & rs("overskrift") & "</th><th bgcolor='#c0c0c0'> </th>"
intcount = intcount +1
    redim preserve vartemp(intcount)
    vartemp(intcount) = rs("id")
rs.movenext

loop
rs.close

dim i
Response.Write "</tr><tr>"

for i = 1 to intcount
sql = "select * from tblmpunkt where fk_overskrift = " & vartemp(i)
rs.open sql, conn

Response.Write "<td valign='top'>"
do while not rs.eof

Response.Write "<li><a href='" & rs("url") & "'>" & rs("mpunkt") & "</a></li>"

rs.movenext
loop
Response.Write "</td><td> </td>"
rs.close
next
Response.Write "</tr></table></center>"


%>


hvordan skal koden se ud for at det bliver i 1 kolonne ?