<%
' Fruibile - L'elemento CMS Open Source che mancava
' Copyright (C) 2002-2006 Roberto Scano
'
' Licensed under the terms of the GNU Lesser General Public License:
' http://www.opensource.org/licenses/lgpl-license.php
'
' For further information visit:
' http://www.fruibile.it/
'
' File Author:
' Roberto Scano (mail@robertoscano.info)
%>
<%
Sub DisplayTree(ByVal oNode, ByVal lLevel)
Dim objNode1
If oNode Is oNode.OwnerDocument.DocumentElement Then
Response.Write ""
For Each varKey In dictArea.Keys
If oNode.selectNodes("item[@area='" & varKey & "']").length > 0 Then
Response.Write ""
End If
Next
Else
Response.Write ""
For Each objNode1 In oNode.ChildNodes
If objNode1.NodeType = 1 Then
DisplayTree objNode1, lLevel + 1
End If
Next
End If
Set objNode1 = Nothing
End Sub
%>