Select box problem

Hej

Jeg sidder og roder lidt med at få lavet min menustruktur i en <select> box: menupunkterne kommer fra en db og vil være i stil med
Punkt1
Punkt2
  punkt1
    punkt1
  punkt2
Punkt3
-----
Jeg bruger dette kode til at hente fra db'en

<%
    Function BygUnderMenuF(MenuID)
        UnderSQL = "SELECT * FROM Live_Menu_" & SubLetter & " WHERE Ref_Id = " & MenuID & " ORDER BY Nummer"
        Set UnderRS = conn.execute(UnderSQL)
        While Not UnderRS.EOF
            If CountSubsF(UnderRS("ID")) > 0 Then
                Response.write("<option value=""" & UnderRS("Id") & """>")
                    Response.write("" & UnderRS("Navn") & " ")
                Response.write("</Option>")
                BygUnderMenuF UnderRS("ID")
            Else
                Response.write("<option value=""" & UnderRS("Id") & """>")
                    Response.write("" & Mellemrum & "" & UnderRS("Navn") & " ")
                Response.write("</Option>")
            End If
            UnderRS.MoveNext
        Wend
    End Function

    Function CountSubsF(MenuID)
        CountSQL = "SELECT Count(*) as CountSubs FROM Live_Menu_" & SubLetter & " WHERE Ref_Id = " & MenuID & ""
        Set CountRS = conn.execute(CountSQL)
        CountSubsF = CountRS("CountSubs")
    End Function
   
    SQL = "SELECT * FROM Live_Menu_" & SubLetter & " WHERE Ref_Id = '0' ORDER BY Nummer"
    Set RS = conn.execute(SQL)
    If RS.BOF AND RS.EOF Then
    else
        RS.MoveFirst
        While Not RS.EOF
            If CountSubsF(RS("Id")) > 0 Then
                Response.write("<option value=""" & rs("Id") & """>")
                    Response.write("" & rs("Navn") & " ")
                Response.write("</Option>")
                BygUnderMenuF RS("Id")
            Else
                Response.write("<option value=""" & rs("Id") & """>")
                    Response.write("" & rs("Navn") & " ")
                Response.write("</Option>")
            End If

            RS.MoveNext
        Wend
    End If
%>