Exibição de dados no formato de árvore com o AspTreeView

<%
' Cria uma instância do controle
Set AspTreeView = Server.CreateObject("obout_ASPTreeview_2.Tree")
' Nó raiz
AspTreeView.AddRootNode "Componentes ASP", "xpMyComp.gif"

' Depois populamos estes nós utilizando outro nó
AspTreeView.Add "root", "a0", "Manipulação de Arquivos XML", True
  AspTreeView.Add "a0", "a0_0", "MSXML - Microsoft"
  AspTreeView.Add "a0", "a0_1", "ASP XML Parser - Chilkat Software"
 
AspTreeView.Add "root", "a1", "Links", False, "book.gif"
  AspTreeView.Add "a1", "a1_0", "<a href='http://www.obout.com/'>Site do Fabricante</a>" , , "page.gif"
  AspTreeView.Add "a1", "a1_1", "<a href='http://www.obout.com/t2/download.aspx'>Download do Componente</a>" , , "page.gif"

' Localização das pasta de ícones
AspTreeView.FolderIcons = "icons/"
' Localização da pasta de estilos
AspTreeView.FolderStyle = "style/Classic/"
' Localização da pasta de scripts
AspTreeView.FolderScript = "script/"
' Largura utiliza pelo componente
AspTreeView.Width = "250px"
'Imprime o componente no página
Response.Write AspTreeView.HTML()
' Tira o objeto da memória
Set AspTreeView = Nothing
%>