<%@ 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
' -------------------------------------------------------
ImageDir = "../System/Images/Icons/"
Url2 = "javascript:GetIL("
If request.QueryString("xField") <> "" then
Session("imageField") = request.QueryString("xField")
End IF
RootName = "Root"
RootImage = "globe.gif"
StartNode = 0
SP = "Dev"
dIcon = "html"
' ------------------------------------------------------
Function Execute
Dim s
s = " Root" & vbCrLf & " "
s = s & FindChildren(StartNode, 1)
's = "" & RootName & " " & vbCrLf
's = s & FindChildren(StartNode, 1)
Execute = s
End Function
' ------------------------------------------------------
Function FindChildren(ID, dpt)
Dim s
Dim str
Dim StrSql
Dim i, j, x
Dim Con, Rs1, SQL, tmpVar
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Conn.Open GetConStr ("..\..\SiteResources\Data\")
i = 1
StrSql = "SELECT * FROM Documents WHERE ParentID = " & ID
StrSql = StrSql & " ORDER BY SortOrder,DocName "
Rs1.Open StrSql , Conn
While Not rs1.EOF
x = 1
While x < dpt ' // ----------Add space-----------------------
s = s & ""
x = x + 1
Wend
If rs1("isFolder").Value = 0 Then '// Node = dokument , J=last
s = s & "" & rs1("DocName").Value & " " & vbCrLf
Else
If HasChildren(rs1("DocumentID").Value) > 0 Then
s = s & "" & rs1("DocName").Value & " " & vbCrLf
s = s & "
" & vbCrLf
s = s & FindChildren(rs1("DocumentID").Value, dpt + 1)
s = s & "
" & vbCrLf
Else
s = s & "" & rs1("DocName").Value & " " & vbCrLf
End If
End If
i = i + 1
rs1.MoveNext
Wend
rs1.Close
FindChildren = s
End Function
' ------------------------------------------------------
Function HasChildren(vID)
Dim Conn2, Rs2, SQL, tmpVar
Set Conn2 = Server.CreateObject("ADODB.Connection")
Set Rs2 = Server.CreateObject("ADODB.Recordset")
Conn2.Open GetConStr ("..\..\SiteResources\Data\")
StrSql = "SELECT * FROM Documents WHERE ParentID = " & vID
Rs2.Open StrSql , Conn2
If Not Rs2.EOF Then
HasChildren = 1
Else
HasChildren = 0
End if
Set Rs2 = Nothing
Set Conn2 = Nothing
End Function
' ------------------------------------------------------
%>
<% framespage = "parent.parent" %>
<% If Session("DocID") <> 0 Then %>
<%=langLabelMoveSelect%>
:
<% Response.Write("" + Execute() + "") %>
<% Else %>
<%=langErrorSelectDocMove%> !
<% End If %>