Folde ud menu

Hvordan får jeg menuen til at vise undermenuer under det link hvor der er blevet klikket??

Her er lidt kode:
<%
    Set RS = Conn.Execute(\"SELECT Parent, Name FROM Categories WHERE ID = \" & ID)
    If RS.EOF Then
        Parent = -1
        Kategori = \"Hovedkategorier\"
    Else
        Parent = RS(\"Parent\")
        Kategori = RS(\"Name\")
    End If
   
    SQLstmt = \"SELECT * FROM Categories WHERE Parent = \" & ID & \" ORDER BY Name\"
    Set RS = Conn.Execute(SQLstmt)
    If Not RS.EOF Then
        Do While Not RS.EOF
            %>
            <b><a href=\"viskategori2.asp?id=<%= RS(\"ID\") %>\" target=\"text\">&nbsp;&nbsp;<%= RS(\"Name\") %></a></b><br>
            <%
            If RS(\"Description\") <> \"\" Then
                %>
                - <%= RS(\"Description\") %><br>
                <%
            End If
            RS.MoveNext
        Loop
    End If

%>