Dynamic Tree Menu

[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.

[Danial]

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

[tiga]

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.

<%
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.

   <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>