Indentazione menu dinamico

[crizio5]

Salve,
documentandomi qua e la sono riuscito a creare la mia funzione ricorsiva per la visualizzazione dei dati estrapolati da db (unica tabella per la gestione di cat e sottocat a infiniti livelli). Il mio problema è che non riesco ad indentare la viualizzazione delle sottocategorie, l'ordine è corretto ma le mette tutte allo stesso livello(giustamente, se non gli dico come fare :-)).
Magari qualcuno sa darmi una mano



sub sottocategorie(idPadre)
StrSQLSottoaree="SELECT id, NOMEAREA FROM AreeTematiche WHERE AREATEMATICARIF="&idPadre&" and attiva = 'vero' order by NOMEAREA asc"
Set tabRsElenco=tabcon.Execute(StrSQLSottoaree)
if not tabRsElenco.eof then
arrAreeTematicheFiglie = tabRsElenco.GetRows()
for indiceAreaFiglia = 0 to ubound(arrAreeTematicheFiglie, 2)
response.Write("<ul >[*]")
response.Write(arrAreeTematicheFiglie(1, indiceAreaFiglia))
response.Write("[/list]")
call sottocategorie(arrAreeTematicheFiglie(0, indiceAreaFiglia)) next
end if
end sub



' qui ciclo le macrocategorie estrapolate da db e richiamo la sub
for indiceArea = 0 to ubound(arrAreeTematiche, 2)
response.Write("<span class=""testoArea"">"&arrAreeTematiche(1, indiceArea)&"</span>
")

call sottocategorie(arrAreeTematiche(0, indiceArea))
next

Grazie anticipatamente

[Mems]

sub sottocategorie(idPadre)
StrSQLSottoaree="SELECT id, NOMEAREA FROM AreeTematiche WHERE AREATEMATICARIF="&idPadre&" and attiva = 'vero' order by NOMEAREA asc"
Set tabRsElenco=tabcon.Execute(StrSQLSottoaree)
if not tabRsElenco.eof then
arrAreeTematicheFiglie = tabRsElenco.GetRows()
response.write("<ul>")
for indiceAreaFiglia = 0 to ubound(arrAreeTematicheFiglie, 2)
response.Write("[*]")
response.Write(arrAreeTematicheFiglie(1, indiceAreaFiglia))
call sottocategorie(arrAreeTematicheFiglie(0, indiceAreaFiglia))
response.Write("")
next
response.write("[/list]")
end if
end sub

[crizio5]

ok perfetto Grazie