<%
function replaceXML(value)
if not isNull(value) then
value = Replace(value,"&","&")
'value = Replace(value,"&","")
'value = Replace(value,"à","a'")
'value = Replace(value,"à","a'")
'value = Replace(value,"è","e'")
'value = Replace(value,"é","e'")
'value = Replace(value,"ì","i'")
'value = Replace(value,"í","i'")
'value = Replace(value,"ò","o'")
'value = Replace(value,"ó","o'")
'value = Replace(value,"ù","u'")
'value = Replace(value,"ú","u'")
value = Replace(value,vbcrlf," ")
value = Replace(value,"&","&")
value = Replace(value,"'","'")
value = Replace(value,"""",""")
' value = Replace(value,"'>","'>")
' value = Replace(value,"href='","href='")
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=0 and TT_id=" & id
rsTree.Open sqlTree,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"%>