<%@ 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
' -------------------------------------------------------
Dim vSID
vSID = SiteRootID
ImageDir = "../System/Images/Icons/"
StartNode = 0
dIcon = "html"
' ------------------------------------------------------
Function Execute()
Dim s
's = "Site:" & vbCrLf & " "
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 "
StrSql = StrSql & " 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 HasChildren(rs1("DocumentID").Value) > 0 Then
s = s & ""
s = s & " "
' // s = s & "" & rs1("DocName").Value & " " & vbCrLf
s = s & "" & rs1("DocName").Value & " " & vbCrLf
s = s & "
" & vbCrLf
s = s & FindChildren(rs1("DocumentID").Value, dpt + 1)
s = s & "
" & vbCrLf
Else
s = s & ""
s = s & " "
s = s & "" & rs1("DocName").Value & " " & vbCrLf
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
' ------------------------------------------------------
%>
Select a document or folder: