<%
vLangId=Request.QueryString("lang")
If vLangId = "" And Session("contentLanguage") <> "" Then
vLangId = CStr(Session("contentLanguage"))
End If
Dim vRoot, vMenuTree, vMenuTreeRoot
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open GetConStr("..\SiteResources\Data\")
vRoot = GetRoot(conn)
vMenuTreeRoot = "/m/dtree/"
vMenuTree = GetMenuTree("-1", conn, "")
conn.Close
Set conn = Nothing
%>
DTree
<%=vMenuTree%>
open all | close all
<%PrintMenu%>