Наполнение рекурсивный список TreeView

Question

Если у меня есть база данных Microsoft Access населенной, как это:

Использование ASP VBScript, как бы я напечатать, что в список TreeView? С бесконечным потенциалом уровней, как и любой странице может иметь дочерние страницы ...

Например, выше дБ должны печататься выглядеть следующим образом:

---

Update:

Я сейчас застрял в рекурсивном аспекте этого ...

... 

rs.open "SELECT id,parent_id,page_name,node_path FROM pages ORDER BY node_path",conn 
records = rs.GetRows 

... 

<% 
    function tree(parent, arrPages) 

     children = false 

     for x = 0 to ubound(arrPages, 2) 
      if (cint(arrPages(1, x)) = parent) then 
       if (children = false AND parent > 0) then 
        children = true 
        Response.Write("<ul>") 
       end if 
      %> 
      <li> 
       <%=arrPages(2,x)%> 
       <% Call Tree(arrPages(0,x), arrPages) %> 
      </li> 
      <% 
      end if 
     next 

     if (children = true AND parent > 0) then 
      %></ul><% 
     end if 

    end function 

    Response.Write "<ul>" 
    Call tree(0, records) 
    Response.Write "</ul>" 
%> 

Тем не менее, это только пишет:

Answer 1

Я положил свои данные в массив, и ваш код работал отлично.

Вы уверены, что ваш запрос вытащил правильные данные?

<% 
Dim records(3, 6) 

records(0, 0) = 1 
records(1, 0) = 0 
records(3, 0) = ".0." 
records(2, 0) = "Home" 

records(0, 1) = 2 
records(1, 1) = 1 
records(3, 1) = ".0.1." 
records(2, 1) = "About" 

records(0, 2) = 3 
records(1, 2) = 1 
records(3, 2) = ".0.1." 
records(2, 2) = "Contact" 

records(0, 3) = 4 
records(1, 3) = 2 
records(3, 3) = ".0.1.2." 
records(2, 3) = "What we do" 

records(0, 4) = 5 
records(1, 4) = 3 
records(3, 4) = ".0.1.3." 
records(2, 4) = "Employees" 

records(0, 5) = 6 
records(1, 5) = 5 
records(3, 5) = ".0.1.3.5." 
records(2, 5) = "Full time" 

records(0, 6) = 7 
records(1, 6) = 5 
records(3, 6) = ".0.1.3.5." 
records(2, 6) = "Part time" 

    function tree(parent, arrPages) 

     children = false 

     for x = 0 to ubound(arrPages, 2) 
      if (cint(arrPages(1, x)) = parent) then 
       if (children = false AND parent > 0) then 
        children = true 
        Response.Write("<ul>") 
       end if 
      %> 
      <li> 
       <%=arrPages(2,x)%> 
       <% Call Tree(arrPages(0,x), arrPages) %> 
      </li> 
      <% 
      end if 
     next 

     if (children = true AND parent > 0) then 
      %></ul><% 
     end if 

    end function 

    Response.Write "<ul>" 
    Call tree(0, records) 
    Response.Write "</ul>" 
%> 

Результат: