menu a struttura ad albero (ricorsivo)

[marco1970]

salve,
con questo script riesco a stampare a video correttamente il mio menu ed i suoi rispettivi sotto menu tipo:

menu 1
     sotto menu 1
         vode del sotto menu 1
menu 2
     sotto menu 2
         voce del sotto menu 2 

allego script:

   sql="select count(*) as totali from menu"
   Set rs = conn.Execute(sql)
      ReDim arr(rs("totali"),4)
      sql = "select* from menu order by nome_menu "
   rs.close
   Set rs = conn.Execute(sql)
   Do While rs.eof = false
      arr(co,0)=rs("id") ' id del menu
      arr(co,1)=rs("nome_menu") 'descrizione della voce menu
      arr(co,2)=rs("tipo_menu") ' tipo di menu M=menu principale SM=sotto menu V=voce
      arr(co,3)=rs("id_padre") 'riferimento all' id del padre
      arr(co,4)=rs("http") 'collegamento da utilizzare nel tag a
      co=co+1
      rs.Movenext
   loop
   rs.close
   set rs=Nothing
   call Stampafigli ("999",0) '999 è id del menu principale


Sub Stampafigli ( idpadre, livello)
dim rip
dim z
dim spazio
   for z= 1 to livello
      spazio=spazio&""
   next
   for rip = 0 to ubound (arr,1)
      if cint ( arr(rip,3) ) = cint (idpadre) then
         response.write "
" & spazio & arr (rip,1)
         call Stampafigli ( cint(arr(rip,0)) ,livello+1)
      end if
   next
End Sub 

ora io vorrei, al posto di inserire gli spazi, formattarlo con il tag div come esempio sottostamnte

   [url="<%=arr(rip,4)%>"]<%=arr(rip,1)%>[/url]
   <div class="section">
      [url="<%=arr(rip,4)%>"]<%=arr(rip,1)%>[/url]
      <a class="item2 arrow"="<%=arr(rip,4)%>"><%=arr(rip,1)%></a>
      <div class="section">
         [url="="]"><%=arr(rip,1)%>[/url]
         [url="="]"><%=arr(rip,1)%>[/url]
         [url="="]"><%=arr(rip,1)%>[/url]
      </div>
      [url="="]"><%=arr(rip,1)%>[/url]
      <div class="section">
         [url="="]"><%=arr(rip,1)%>[/url]
      </div>
   </div>
   [url="javascript:void(0)"]<%=arr(rip,1)%>[/url]
   <div class="section">
      [url="="]"><%=arr(rip,1)%>[/url]
      [url="="]"><%=arr(rip,1)%>[/url]
      [url="="]"><%=arr(rip,1)%>[/url]
   </div>
   [url="="]"><%=arr(rip,1)%>[/url]
   <div class="section">
      [url="="]"><%=arr(rip,1)%>[/url]
      [url="="]"><%=arr(rip,1)%>[/url]
      <div class="section">
         [url="="]"><%=arr(rip,1)%>[/url]
         [url="="]"><%=arr(rip,1)%>[/url]
         [url="="]"><%=arr(rip,1)%>[/url]
         [url="="]"><%=arr(rip,1)%>[/url]
         [url="="]"><%=arr(rip,1)%>[/url]
         [url="="]"><%=arr(rip,1)%>[/url]
         [url="<%=arr(rip,4)%>"]<%=arr(rip,1)%>[/url]
      </div>
      [url="example2.html"]Listing[/url]
   </div> 

peò non riesco a crearmi la routine che mi crei il codice sopra.
in pratica riesco ad aprire i tag ma nn riesco a capire quando chiuderli.
Grazie Marco