Walking the Concept Tree

Help > Web Development > Object Reference > Code Samples > ASP > Walking the Concept Tree

<a name="kanchor592"></a>Walking the Concept Tree

Demonstrates opening a Concept Tree, and displaying the top level nodes along with the first three child nodes. This produces a web directory-like view.

<%
  ' Open the concept tree  
  set conceptRoot = Application("ISYS").OpenConcept("c:\index\isys.sct")
%>  

<% for i = 1 to conceptRoot.Length
     set conceptNode = conceptRoot.Item(i)
%>  

  <%= conceptNode.Name %>  <br>  
  <% count = conceptNode.Length
    if count > 3 then count = 3
    for j = 1 to count
      set subitem = conceptNode.Item(j)
  %>  
    <%= subitem.Name %>  
    <% if j < count then  %>, <% end  if  %>  
  <% next  %>  

<% next  %>