Dynamic Tree Menu

Can anyone point me in the right direction for creating a Dynamic ASP/VB Tree style menu much like a Windows Explorer Style menu. Or even a Javascript Menu that will read from an access/sql database.

I can't seem to find anything on it.

Quote:

---

Originally Posted by tiga

Can anyone point me in the right direction for creating a Dynamic ASP/VB Tree style menu much like a Windows Explorer Style menu. Or even a Javascript Menu that will read from an access/sql database.

I can't seem to find anything on it.

---

None of the menus will be able to read from db out of the box, you will have to adap them so they read from DB. I have adapted one from dynamicdrive.com so it is constructed from db info.

Check out dynamic drive for pretty cool menus, here is one example.

http://www.dynamicdrive.com/dynamicindex1/navigate1.htm

Hope it helps.

Danial

Thanks for that Danial.

I have this working for anything on the root of my tree menu. The menu items are being retrieved sweet from the DB. But I am Having trouble getting the sub menus to work.

I am trying to group this sub menu into sub folders and then display the relevant records for each sub folder, but at the moment I am getting all records in the table displayed for all sub folders rather than the records only pertaining to those subfolders.

I am not sure how to write my query to do this.

HELP !!!!

Below is my Query.

Code:

---

<%
Dim rs8

        Set rs8 = Server.CreateObject("ADODB.Recordset")
        strSQL = "SELECT * FROM [tbl_policy_manual]" & "ORDER BY DocumentDescription ASC"       
                rs8.open strSQL, Conn, 3, 3
%>

---

Below is the code that is displaying my results.

Code:

---

  <li id="foldheader">Policy Manual / Forms</li>
  <ul id="foldinglist" style="display:none" style=&{head};>
<%
        On Error Resume Next
        rs6.MoveFirst
        do while Not rs6.eof
%>
          <li id="foldheader"><%=rs6.Fields("LinkID")%></li>
                  <ul id="foldinglist" style="display:none" style=&{head};>

<%
        On Error Resume Next
        rs8.MoveFirst
        do while Not rs8.eof
%>
                      <li><a class="sitemap_link" href="../<%=rs8.Fields("DocumentPath")%><%=rs8.Fields("DocumentName")%>" target="_self"><%=rs8.Fields("DocumentDescription")%></a></li>               

<%
rs8.MoveNext
loop
%>
        </ul>

<%
rs6.MoveNext
loop
%>
</ul>

---