<%@ language=VBScript %>
<%
' ///////////////////////////////////////////////////////
' // 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.
' ///////////////////////////////////////////////////////
If NOT CBool(Session("ValidAdminUser")) Then
Response.Redirect("../LIO/loggin.asp")
End IF
SiteRootID = GetSettingValue("SiteRootID", "..\..\SiteResources\Data\")
Dim vTrash, vMenuTree, vMenuTreeRoot
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open GetConStr("..\..\SiteResources\Data\")
vTrash=GetSettingValue("TrashBinID", "..\..\SiteResources\Data\")
vMenuTreeRoot = "allview/dtree/"
vMenuTree = GetMenuTree("-1", conn, false, "docmovetreeprocess.asp?NewDocID=", "docmovetreeprocess.asp?NewDocID=")
conn.Close
Set conn = Nothing
%>
<%=vMenuTree%>
<% If Session("DocID") <> 0 Then %>
<%=langLabelMoveSelect%>
<%PrintMenu%>
<% Else %>
<%=langLabelSelectDoc%>
<% End If %>