<directory>
	<rule>
		<id></id>
		<language>VBScript</language>
		<script language="VBScript">
			<![CDATA[
			Directory.AddContainer Directory.SharedItem("XS_DOC"), "a"
			Directory.AddContainer Directory.SharedItem("XS_COM"), "b"
			Directory.AddContainer Directory.SharedItem("XS_UFF"), "c"
			Directory.AddContainer Directory.SharedItem("XS_SIM"), "d", , "directory-xhtml-entities.xml"
			Directory.AddContainer "Multimedia", "multimedia"
			]]>
		</script>
	</rule>
	<rule>
		<id>a</id>
		<language>VBScript</language>
		<script language="VBScript">
			<![CDATA[
			Dim objConn, rsData

			Set objConn = CreateObject("ADODB.Connection")

			objConn.Open Directory.SharedItem("DBWEB_PATH")

			Set rsData = objConn.Execute("SELECT id, title_" & Directory.SharedItem("LANG") & " FROM documenti WHERE argomento=2 and visibile_" & Directory.SharedItem("LANG") & "=1 ORDER BY posizione")
			Do Until rsData.EOF
				'Metadata is: areaid,parentid
				Directory.AddContainer rsData("title_" & Directory.SharedItem("LANG")).Value, "a1", rsData("id").Value & ",0"
				rsData.MoveNext
			Loop

			Set objConn = Nothing
			Set rsData = Nothing
			]]>
		</script>
		<rule>
			<id>a1</id>
			<language>VBScript</language>
			<script language="VBScript">
				<![CDATA[
				Dim objConn, rsData, strXHTML

				Set objConn = CreateObject("ADODB.Connection")

				objConn.Open Directory.SharedItem("DBWEB_PATH")

				Set rsData = objConn.Execute("SELECT id, title_" & Directory.SharedItem("LANG") & ", parentid, areaid FROM documenti WHERE areaid=" & Split(Directory.Metadata, ",")(0) & " AND argomento=1 AND visibile_" & Directory.SharedItem("LANG") & "=1 AND parentid=" & Split(Directory.Metadata, ",")(1) & " ORDER BY posizione")
				Do Until rsData.EOF
					'Metadata is: areaid,parentid
					Directory.AddContainer rsData("title_" & Directory.SharedItem("LANG")).Value, "a1", rsData("areaid").Value & "," & rsData("id").Value
					
					strXHTML = "<a href=""argomento.asp?cat=" & rsData("id").Value & """>" & Replace(rsData("title_" & Directory.SharedItem("LANG")).Value, Chr(34), "&quot;") & "</a>"
					Directory.AddObject rsData("title_" & Directory.SharedItem("LANG")).Value & " (" & Directory.SharedItem("XS_CAT") & ")", strXHTML
					
					rsData.MoveNext
				Loop
				
				Set rsData = objConn.Execute("SELECT id, title_" & Directory.SharedItem("LANG") & " FROM documenti WHERE areaid=" & Split(Directory.Metadata, ",")(0) & " AND  argomento=0 AND visibile_" & Directory.SharedItem("LANG") & "=1 AND catid=" & Split(Directory.Metadata, ",")(1) & " ORDER BY posizione")
				Do Until rsData.EOF
					strXHTML = "<a href=""documento.asp?id=" & rsData("id").Value & """>" & Replace(rsData("title_" & Directory.SharedItem("LANG")).Value, Chr(34), "&quot;") & "</a>"
					Directory.AddObject rsData("title_" & Directory.SharedItem("LANG")).Value, strXHTML
					
					rsData.MoveNext
				Loop

				Set objConn = Nothing
				Set rsData = Nothing
				]]>
			</script>
		</rule>
	</rule>
	<rule>
		<id>b</id>
		<language>VBScript</language>
		<script language="VBScript">
			<![CDATA[
			Dim objConn, rsData

			Set objConn = CreateObject("ADODB.Connection")

			objConn.Open Directory.SharedItem("DBWEB_PATH")

			Set rsData = objConn.Execute("SELECT id, title_" & Directory.SharedItem("LANG") & ", disp_da FROM comunicati WHERE visibile_" & Directory.SharedItem("LANG") & "=1 ORDER BY disp_da desc")
			Do Until rsData.EOF
					strXHTML = "<a href=""comunicato.asp?id=" & rsData("id").Value & """>" & Replace(rsData("title_" & Directory.SharedItem("LANG")).Value, Chr(34), "&quot;") & "</a>"
					Directory.AddObject rsData("title_" & Directory.SharedItem("LANG")).Value & " (" & day(rsData("disp_da").Value) & "/" & month(rsData("disp_da").Value) & "/" & year(rsData("disp_da").Value) & ")", strXHTML
				rsData.MoveNext
			Loop

			Set objConn = Nothing
			Set rsData = Nothing
			]]>
		</script>
	</rule>
	<rule>
		<id>c</id>
		<language>VBScript</language>
		<script language="VBScript">
			<![CDATA[
			Dim objConn, rsData, strXHTML, strParentID
				
			If Len(Directory.Metadata) = 0 Then
				strParentID = "0"
			Else
				strParentID = Directory.Metadata
			End If

			Set objConn = CreateObject("ADODB.Connection")

			objConn.Open Directory.SharedItem("DBWEB_PATH")

			Set rsData = objConn.Execute("SELECT id, title_" & Directory.SharedItem("LANG") & ", parentid FROM strutture WHERE childs=1 AND visibile=1 AND parentid=" & strParentID & " ORDER BY title_" & Directory.SharedItem("LANG"))
				
			Do Until rsData.EOF
				'Metadata is: areaid,parentid
				Directory.AddContainer rsData("title_" & Directory.SharedItem("LANG")).Value, "c", rsData("id").Value
					
				strXHTML = "<a href=""struttura.asp?id=" & rsData("id").Value & """>" & Replace(rsData("title_" & Directory.SharedItem("LANG")).Value, Chr(34), "&quot;") & "</a>"
				Directory.AddObject rsData("title_" & Directory.SharedItem("LANG")).Value & " (struttura)", strXHTML
					
				rsData.MoveNext
			Loop
				
			Set rsData = objConn.Execute("SELECT id, title_" & Directory.SharedItem("LANG") & " FROM strutture WHERE childs=0 AND visibile=1 AND parentid=" & strParentID & " ORDER BY title_" & Directory.SharedItem("LANG"))
			Do Until rsData.EOF
				strXHTML = "<a href=""ufficio.asp?id=" & rsData("id").Value & """>" & Replace(rsData("title_" & Directory.SharedItem("LANG")).Value, Chr(34), "&quot;") & "</a>"
				Directory.AddObject rsData("title_" & Directory.SharedItem("LANG")).Value & " (ufficio)", strXHTML
					
				rsData.MoveNext
			Loop

			Set objConn = Nothing
			Set rsData = Nothing
			]]>
		</script>
	</rule>
	<rule>
		<id>multimedia</id>
		<language>VBScript</language>
		<script language="VBScript">
			<![CDATA[
			Directory.AddContainer "Quicktime", "quicktime"
			Directory.AddContainer "Real Media", "real-media"
			Directory.AddContainer "Windows Media", "windows-media"
			]]>
		</script>
	</rule>
	<rule>
		<id>quicktime</id>
		<language>VBScript</language>
		<script language="VBScript">
			<![CDATA[
			Dim objConn, rsData

			Set objConn = CreateObject("ADODB.Connection")

			objConn.Open Directory.SharedItem("DBWEB_PATH")

			Set rsData = objConn.Execute("SELECT * from video where visibile_" & Directory.SharedItem("LANG") & "=1 and tipo=3")
			Do Until rsData.EOF
					strXHTML = "<p>codice XHTML per Quicktime</p>"
					Directory.AddObject rsData("title_" & Directory.SharedItem("LANG")).Value, strXHTML
				rsData.MoveNext
			Loop

			Set objConn = Nothing
			Set rsData = Nothing
			]]>
		</script>
	</rule>
	<rule>
		<id>real-media</id>
		<language>VBScript</language>
		<script language="VBScript">
			<![CDATA[
			Dim objConn, rsData

			Set objConn = CreateObject("ADODB.Connection")

			objConn.Open Directory.SharedItem("DBWEB_PATH")

			Set rsData = objConn.Execute("SELECT * from video where visibile_" & Directory.SharedItem("LANG") & "=1 and tipo=2")
			Do Until rsData.EOF
					strXHTML = "<p>codice XHTML per RealMedia</p>"
					Directory.AddObject rsData("title_" & Directory.SharedItem("LANG")).Value, strXHTML
				rsData.MoveNext
			Loop

			Set objConn = Nothing
			Set rsData = Nothing
			]]>
		</script>
	</rule>
	<rule>
		<id>windows-media</id>
		<language>VBScript</language>
		<script language="VBScript">
			<![CDATA[
			Dim objConn, rsData

			Set objConn = CreateObject("ADODB.Connection")

			objConn.Open Directory.SharedItem("DBWEB_PATH")

			Set rsData = objConn.Execute("SELECT * from video where visibile_" & Directory.SharedItem("LANG") & "=1 and tipo=1")
			Do Until rsData.EOF

					strXHTML = "<p><object id=""MP_" & rsData("id").Value & """ width=""320"" height=""240"" classid=""CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6"">" & vbcrlf
					strXHTML = strXHTML &"<param name=""URL"" value=""" & rsData("urlvideo_" & Directory.SharedItem("LANG")).Value & """ />" & vbcrlf
					strXHTML = strXHTML & "<param name=""SAMIFileName"" value=""" &  rsData("captions_" & Directory.SharedItem("LANG")).Value  & """ />" & vbcrlf 
					strXHTML = strXHTML & "<param name=""captioningID"" value=""cc_" & rsData("id").Value & """ />" & vbcrlf
					strXHTML = strXHTML & "<!--[if IE]> <-->" & vbcrlf
					strXHTML = strXHTML & "<object type=""application/x-mplayer2"" id=""MP_" & rsData("id").Value & """ width=""320"" height=""240"">" & vbcrlf
					strXHTML = strXHTML & "<param name=""autostart"" value=""true"" />" & vbcrlf
					strXHTML = strXHTML & "<param name=""showcontrols"" value=""-1"" />" & vbcrlf
					strXHTML = strXHTML & "<param name=""SAMIFileName"" value=""" &  rsData("captions_" & Directory.SharedItem("LANG")).Value  & """ />" & vbcrlf 
					strXHTML = strXHTML & "<param name=""src"" value=""" & rsData("urlvideo_" & Directory.SharedItem("LANG")).Value & """ />" & vbcrlf
					strXHTML = strXHTML & "<param name=""captioningID"" value=""cc_" & rsData("id").Value & """ />" & vbcrlf
					strXHTML = strXHTML & "</object>" & vbcrlf 
					strXHTML = strXHTML & "<!--> <![endif]-->"
					strXHTML = strXHTML & "</object></p>" & vbcrlf 
					strXHTML = strXHTML & "<div id=""cc_" & rsData("id").Value & """></div>" 

					Directory.AddObject rsData("title_" & Directory.SharedItem("LANG")).Value, strXHTML
				rsData.MoveNext
			Loop

			Set objConn = Nothing
			Set rsData = Nothing
			]]>
		</script>
	</rule>
</directory>