10/05/2008 Development / asp3

Essa é uma função pra quem quer fazer um menu estilo arvore, bem rapidinho sem ter que ficar pensando mto.

O banco fica da seguinte maneira

idMenu - autonumeração
txtCategoria - text
codSubcategoria - Numero (Aqui vem a referencia do idMenu)

  sub geraMenu(cod)
    set rs = Server.CreateObject("Adodb.RecordSet")
    SQL = "Select * from tabMenu where codSubCategoria = "&cod
    rs.open sql, conexao,3,3
   
    while rs.eof = false
        response.write rs("txtCategoria") & "<br>"
        geraMenu(rs("idMenu"))
    rs.movenext
    wend
   
    rs.close
    set rs = nothing
  end sub
 
  call geraMenu(0)