<%
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_Desc")
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
get_PathNav=strPath
rsPath.Close
set rsPath=nothing
end function
%>
<%
Dim idP
if Trim(Request.QueryString("idP"))="" then
idP=0
else
idP=Request.QueryString("idP")
end if
set dbConn = Server.CreateObject("ADODB.connection")
dbConn.Open DB_ASL9_READ,"",""
if idP<>0 then
set rsTP= Server.CreateObject("ADODB.recordset")
sqlTP = "SELECT * FROM T_TT_TreeTrasparenza WHERE TT_id=" & idP & " ORDER BY TT_Order"
rsTP.Open sqlTP,dbConn,3,3
if rsTP.EOF then
title="Amministrazione trasparente"
else
title=rsTP("TT_Desc")
if Len(rsTP("TT_Testo"))>0 then
txtDesc = replaceXML(rsTP("TT_Testo"))
end if
end if
else
title="Amministrazione trasparente"
end if
set rsTree = Server.CreateObject("ADODB.recordset")
sqlTree = "SELECT * FROM T_TT_TreeTrasparenza WHERE TT_idP=" & idP & " ORDER BY TT_Order"
rsTree.Open sqlTree,dbConn,3,3
%>
Asl TO4 - Amministrazione Trasparente - <%=title%>
<%dim sezione
'specifica la sezione, per evidenziarlo all'interno del menù
sezione="AmmTrasp"%>
Le informazioni pubblicate in questa pagina sono fornite ai sensi del Decreto Legislativo 14 marzo 2013, numero 33 e successive modificazioni e integrazioni, che ha riordinato gli obblighi di pubblicità, trasparenza e diffusione di informazioni da parte delle pubbliche amministrazioni.
<%if idP="59" then%>
L'Agenzia per l'Italia digitale, d'intesa con il Ministero dell'economia e delle finanze, al fine di promuovere l'accesso e migliorare la comprensione dei dati relativi all'utilizzo delle risorse pubbliche, gestisce il sito internet "Soldi pubblici" che consente l'accesso ai dati dei pagamenti delle PA e ne permette la consultazione in relazione alla tipologia di spesa sostenuta e alle amministrazioni che l'hanno effettuata, nonché all'ambito temporale di riferimento.
<%end if%>
Si informa che i dati personali pubblicati sono riutilizzabili solo alle condizioni previste dalla normativa vigente sul riuso dei dati pubblici (ai sensi del nuovo Regolamento Europeo 679/2016 (GPDR) e del Decreto Legislativo 101/2018 di recepimento dello stesso), in termini compatibili con gli scopi per i quali sono stati raccolti e registrati, e nel rispetto della normativa in materia di protezione dei dati personali.
<%end if%>
<%do while not rsTree.EOF%>
<%if Right(rsTree("TT_codMemo"),1)="R" then%>