Problem med udtræk og relation..

Hej Alle!

Jeg har desværre fået et mindre problem med et udtræk.

Jeg har et database indhold, hvor der er et:

Toplink    (samt en masse)
Underlink
Underlinks

Jeg har lavet en relation mellem dem alle sammen, hvilket er et tal i et felt kaldet rela.

Nu er problemet bare, at jeg skal have trukket underlinksne ud under toplinket.

Jeg henter toplinket ud sådan her:

##################

<%
Response.Buffer = True

Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("database.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

    Sql = "SELECT * FROM menuopsaetning where rel = '0' ORDER BY ID"
    Set Record =  Con.Execute(Sql)

%>

Jeg henter toplinket her:

<% Do while Not REcord.EOF %>

<% Response.Write Record("link")%>

<%
Record.MoveNext
Loop
%>

Men hvordan i al verden skal koden se ud, hvis jeg skal have underlinket under toplinket?

Evt. database billeder? http://www.nythjem.dk/tabel.jpg

Håber nogle har lyst til at hjælpe : )