Problem med script der skal kunne udskrive organisationsplan over

Hej, som jeg ser det, er der to muligheder. Enten kan du lave et rekusiv SQL opslag, du kan læse mere her http://www.eksperten.dk/spm/392083 det er godt nok i php kategorien men det er mest SQL sætningerne der er de vigtige. Ellers kan du lave en sub som du kalder. Det er lidt hårdere ved databasen, der der kommer mange opslag. Men koden kommer her. Det eneste krav er, at toppen af hirakiet har lederid=0

    <%
    Set Connection = Server.CreateObject("ADODB.Connection")
   
    dbstring="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.mappath("./test.mdb")&";"
    Connection.Open dbstring
   
    subSELECT 0, "*"
   
    connection.close
    set connection = nothing
   
    Sub subSELECT(id, spacer)
        S = "SELECT * FROM medarb WHERE lederid="&id
        Set SQL = Connection.execute(S)   
        While not SQL.EOF
            response.Write spacer&SQL("navn")&"<BR>"
            subSELECT SQL("id"), spacer&"*"
            SQL.movenext
        wend
    end Sub
%>

Takker, du må gerne smide et svar

så kommer der et svar. Håber du kan få det til at virke.