[xanburzum]

CÓDIGO

<% 'Cria o objeto que irá gerar o menu

Set oTree = Server.CreateObject("obout_asptreeview_XP.tree")

'Diretório onde se encontra os ícones

oTree.TreeIcons_Path = "/asptree/tree"

'Diretório onde se encontra os Estilos (.css)

oTree.TreeStyle_Path = "/asptree/tree"

'Título Principal do Menu

oTree.Add "root", "xan", " TEste ", True, "xpPanel.gif"

'Ajusta os tópicos do menu

oTree.Add "bill", "a0", " Teste 1 ", True, "folder.gif"

oTree.Add "bill", "a1", " Teste 2 ", True, "folder.gif"

oTree.Add "bill", "a2", " Teste 3 ", True, "folder.gif"

'Ajusta os subtópicos do primeiro

oTree.Add "a0", "a0_0", " Sites ", , "folder.gif"

oTree.Add "a0", "a0_1", " E-mails ", , "folder.gif"

oTree.Add "a0", "a0_2", " SQL ", , "folder.gif"

oTree.Add "a0", "a0_3", " .Net ", , "folder.gif"

oTree.Add "a0", "a0_4", " ASP ", , "folder.gif"

oTree.Add "a0", "a0_5", " ASP.NET ", , "folder.gif"

oTree.Add "a0", "a0_6", " Java, JSP, Servlets ", , "folder.gif"

'Ajusta os subtópicos do segundo

oTree.Add "a1", "a1_0", " SPAM ", True, "folder.gif"

oTree.Add "a1", "a1_1", " Vídeos ", True, "folder.gif"

oTree.Add "a1", "a1_2", " Administração ", True, "folder.gif"

oTree.Add "a1", "a1_3", " Músicas ", True, "folder.gif"

'Cria mais um nível para o primeiro subtópico do segundo tópico

oTree.Add "a1_0", "a1_0_0", " Detecção de SPAM por cabeçalho ", , "folder.gif"

oTree.Add "a1_0", "a1_0_1", " Lista de Midia ", , "folder.gif"

'Ajusta os subtópicos do terceiro

oTree.Add "a2", "a2_0", " Programação em VXML ", True, "folder.gif"

oTree.Add "a2", "a2_1", " Integração entre Web / Telefonia ", True, "folder.gif"

oTree.Add "a2", "a2_2", " Windows ", True, "folder.gif"

'Escreve o HTML que vai gerar o menu em sua página

Response.Write oTree.HTML

'Destrói o objeto que gerou o menu

Set oTree = Nothing

%>