<html>
    <head>
        <title>ASP TreeView Advanced Demo</title>
    </head>
    <body scroll="auto" style="margin:10px;">

<table border=0 width="100%" height="100%">
<tr><td height="100%" valign=top width=200 nowrap style="overflow:auto;">
<%

Dim tv,tn
Set tv = New TreeView
tv.DefaultTarget="content"
'tv.ID = "T1"

'add treenode using the standard procedure
Set tn = New Node
With tn
    .Text = "AspWebSolution.com"
    .Href = "http://aspwebsolution.com/"
    .ToolTipText="Home of the ASP Report Wizard"
    .ImageUrl = "images/home.gif"
    .Target="_self"
End With
tv.Nodes.Add(tn)

'add a node group using the AddNode shortcut
tv.AddNode("ASP Articles")
tv.Nodes(1).Add(tv.CreateNode("XML Republic","http://aspwebsolution.com/articles/?cid=xmlrep","XML Widgets And Sample Code"))
tv.Nodes(1).ChildNodes(0).Add(tv.CreateNode("XML Tree","http://www.aspwebsolution.com/articles/xmlrep/xtree2.htm","XML Tree object"))
tv.Nodes(1).ChildNodes(0).Add(tv.CreateNode("XML Bar Chart","http://www.aspwebsolution.com/articles/xmlrep/xmlbarchart.htm","XML Bar Chart (Pure HTML - no graphics used)"))

tv.Nodes(1).Add(tv.CreateSimpleNode("SQL & Databases"))
tv.Nodes(1).ChildNodes(1).Add(tv.CreateNode("Database Sorting","http://www.aspwebsolution.com/articles/esqel/sorting2.htm","Simplest Multiple-Column sorting (Up & Down) In ASP"))
tv.Nodes(1).ChildNodes(1).Add(tv.CreateNode("Connection Strings","http://www.aspwebsolution.com/products/report_wizard/t_conn.htm","ADO Connection String Samples"))

tv.AddNode("ASP Links")
tv.Nodes(2).Add(tv.CreateNode("ASPIN","http://aspin.com/","ASP Resource Index"))
tv.Nodes(2).Add(tv.CreateNode("ASP 101 Forums","http://asp101.com/forum/display_forum.asp","ASP 101 Forums"))
tv.Nodes(2).ChildNodes(1).ImageUrl="images/forums.gif"
tv.Nodes(2).Add(tv.CreateNode("ASP.NET","http://asp.net/","Learn ASP.NET"))
tv.Nodes(2).ChildNodes(2).ImageUrl="images/members.gif"

tv.AddNode("Currency")
tv.Nodes(3).Add(tv.CreateSimpleNode("USD"))
tv.Nodes(3).ChildNodes(0).ImageUrl="images/dollar.gif"
tv.Nodes(3).ChildNodes(0).Add(tv.CreateNode("$1.00","images/Currency/usd/dollar.jpg","$1.00"))
tv.Nodes(3).ChildNodes(0).Add(tv.CreateNode("$20.00","images/Currency/usd/new20.jpg","New $20.00 bill"))
tv.Nodes(3).ChildNodes(0).Add(tv.CreateNode("$100.00","images/Currency/usd/100.jpg","$100.00 bill"))

tv.Nodes(3).Add(tv.CreateSimpleNode("XAF"))
tv.Nodes(3).ChildNodes(1).Add(tv.CreateNode("10,000 FCFA","images/Currency/xaf/cas2b.jpg","10,000 FCFA"))
tv.Nodes(3).ChildNodes(1).Add(tv.CreateNode("1,000 FCFA","images/Currency/xaf/casf.jpg","1,000 FCFA"))
tv.Nodes(3).ChildNodes(1).Add(tv.CreateNode("2,000 FCFA","images/Currency/xaf/cas4b.jpg","2,000 FCFA"))

'tv.Nodes(3).ImageUrl="images/dollar.gif"

'add treenode using the standard procedure
Set tn = New Node
With tn
    .Text = "ASP Report Wizard"
    .Href = "http://aspwebsolution.com/products/report_wizard"
    .ToolTipText="Get your database online With 1 line of code"
    .ImageUrl = "images/software.gif"
    .Target="_self"
End With
tv.Nodes.Add(tn)

tv.Nodes.Add(tv.CreateNode("Contact Us","mailto:contact@aspwebsolution.com?subject=ASP TreeView","Contact Us!"))
tv.Nodes(tv.Nodes.Length-1).ImageUrl="images/mail.gif"

If Request("f")<>"" Then
    tv.ImagesFolder=Request("f")
End If

'add some more customization
tv.Nodes(0).Text="<b><font color=#6666ff>Asp</font><font color=#669999>Web</font><font color=#666699>Solution</font></b>"
tv.Nodes(2).ChildNodes(0).Text="<b><font color=orange>ASP</font> <font color=red>Resource</font> <font color=green>Index</font></b>"

tv.Nodes.Add(tv.CreateNode("Source Code","source.asp?file=demo_advanced.asp","View Source Code"))
tv.Nodes(tv.Nodes.Length-1).ImageUrl="images/asp.gif"
'tv.Nodes(tv.Nodes.Length-1).Target=""

tv.Display

Dim url
url = Request.ServerVariables("URL")
%>
<br>
<font size=2 face=tahoma>Switch TreeView style To:</font><br>
<ul Type=circle>
<li><a Class=item href="<%=url%>">XP Default</a></li>
<li><a Class=item href="<%=url%>?f=images/xp">XP Explorer</a></li>
<li><a Class=item href="<%=url%>?f=images/classic">Win Classic</a></li>
<li><a Class=item href="<%=url%>?f=images/msdn">MSDN</a></li>
<li><a Class=item href="<%=url%>?f=images/arrows">Arrows</a></li>
</ul>

</td><td valign=top width="99%">
<iframe name=content frameborder=0 width="100%" src="images/Currency/xaf/casf.jpg" height="100%"></iframe>
</td></tr></table>
<script>
toggle('N0_2','P02');
</script>



    </body>
</html>