<%@ language=VBScript %>
<% If bolEdit Then %>
Template 3 - WYSIWYG
Info ; W ; Info
<% End If %>
<%
' ///////////////////////////////////////////////////////
' // Dimac CMS
' // Copyright 2004-2008 Dimac Development AB, Sweden
' // www.Dimac.net
' //
' // NOTE:
' // You are not allowed to remove this
' // Copyright information without written
' // permission from Dimac Development.
' ///////////////////////////////////////////////////////
vDocId = Request.QueryString("DocID").Item
' // -----------------------------------
LoadFields()
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
' ///////////////////////////////////////////////////////
%>
<%= GetOPE %>
<%=vMenuTree%>
<%PrintMenu%>
<%= vValues(1) %>