Todimensionelt udtræk fra access

Hej...

Jeg har en database med en kolonne der hedder kategori og en der hedder mainkategori. Jeg vil gerne have stillet en tabel op, med disse værdier..
Det skal være stillet op således


----------------------------------------------------
| mainkategori 1 | mainkategori 2 | mainkategori 3 |
----------------------------------------------------
| kategori 1    | kategori 4    | kategori 7    |
| kategori 2    | kategori 5    | kategori 8    |
| kategori 3    | kategori 6    | kategori 9    |
----------------------------------------------------
| mainkategori 4 | mainkategori 5 | mainkategori 6 |
----------------------------------------------------
| kategori 10    | kategori 13    | kategori 16    |
| kategori 11    | kategori 14    | kategori 17    |
| kategori 12    | kategori 15    | kategori 18    |
----------------------------------------------------


kategori 1,2,3 er selvfølgelig udledt hvor mainkategori er lig med mainkategori 1 dvs. (SELECT kategori WHERE mainkatogori = 'mainkategori 1') (hvis det hjalp lidt mere..


Det er et problem for mig at se, hvordan jeg kan lave min kodning... Jeg har prøvet nedenstående, men det får serveren til at gå ned:::

<%
dim I, L(3), sqlmain, sqlsecond, restsecond

sqlmain = "SELECT DISTINCT mainkategori FROM kategori ORDER BY mainkategori"
set rest = cn.execute(sqlmain)
%>

<table>
<%
while not rest.eof
  for I = 1 to 3
    if not rest.eof then
      L(I) = rest("mainkategori")
      if I = 1 then
        response.write ("<tr>")
      end if
      response.write ("<td class=""headlist"">" & rest("mainkategori") & "</td>")
      if I = 3 then
        response.write ("</tr>")
      end if
    end if
  next

  for I = 1 to 3
    sqlsecond = "SELECT kategori FROM kategori WHERE mainkategori = '" & L(I) & "'"
    set restsecond = cn.execute(sqlsecond)
    if I = 1 then
      response.write ("<tr>")
    end if
    response.write ("<td class=""list"">")
    while not restsecond.eof
      response.write (restsecond("kategori"))
    wend
    response.write ("</td>")
    if I = 3 then
      response.write ("</tr>")
    end if
  Next
wend
%>

</table>


Jeg håber nogen kan hjælpe mig...


P.S. Tabellen hedder også kategori...