<%
function replaceXML(value)
if not isNull(value) then
value = Replace(value,"&","&")
value = Replace(value,vbcrlf," ")
'value = Replace(value,"&","&")
value = Replace(value,"'","'")
value = Replace(value,"""",""")
value = Replace(value,"'","'")
'value = Replace(value,"'","'")
value = Replace(value,""","""")
end if
replaceXML=value
end function
function get_PathNav(idR,objConn,idC)
set rsPath=Server.CreateObject("ADODB.recordset")
sqlPath = "SELECT * FROM T_TT_TreeTrasparenza WHERE TT_id=" & idR
rsPath.Open sqlPath,objConn,3,3
if not rsPath.EOF then
if idR=idC then
strPath = rsPath("TT_Titolo")
else
strPath = "" & rsPath("TT_Desc") & ""
end if
if rsPath("TT_idP")<>"0" then
strPath = get_PathNav(rsPath("TT_idP"),objConn,idC) & " " & strPath
else
strPath= "Amministrazione trasparente " & strPath
end if
else
strPath= "Amministrazione trasparente "
end if
rsPath.Close
set rsPath=nothing
get_PathNav=strPath
end function
%>
<%
Dim id
if Trim(Request.QueryString("id"))="" then
id=0
else
id=Request.QueryString("id")
end if
if not isNumeric(id) then
response.end
end if
set dbConn = Server.CreateObject("ADODB.connection")
dbConn.Open DB_ASL9_READ,"",""
set rsTree = Server.CreateObject("ADODB.recordset")
sqlTree = "SELECT * FROM T_TT_TreeTrasparenza WHERE TT_TypeCnt=1 and TT_id=" & id
rsTree.Open sqlTree,dbConn,3,3
set rsAll = Server.CreateObject("ADODB.recordset")
sqlAll = "SELECT * FROM T_TT_TreeDocument WHERE TD_idTree=" & id & " ORDER BY TD_Order"
rsAll.Open sqlAll,dbConn,3,3
%>
Asl TO4 - Amministrazione Trasparente - <%if not rsTree.EOF then Response.Write rsTree("TT_Titolo")%>
<%dim sezione
'specifica la sezione, per evidenziarlo all'interno del men
sezione="AmmTrasp"%>