% function timeStamp(txtDateRiferimento) Dim dateRif if IsDate(txtDateRiferimento) then select case Month(txtDateRiferimento) case "1" dateRif="Gennaio " case "2" dateRif="Febbraio " case "3" dateRif="Marzo " case "4" dateRif="Aprile " case "5" dateRif="Maggio " case "6" dateRif="Giugno " case "7" dateRif="Luglio " case "8" dateRif="Agosto " case "9" dateRif="Settembre " case "10" dateRif="Ottobre " case "11" dateRif="Novembre " case "12" dateRif="Dicembre " end select dateRif= dateRif & Year(txtDateRiferimento) timeStamp=dateRif else timeStamp=txtDateRiferimento end if end function Dim dbConn Dim rsSO,sqlSO set dbConn=server.CreateObject("ADODB.connection") dbConn.Open DB_ASL9_READ,"","" set rsPR=Server.CreateObject("ADODB.recordset") if Trim(Request.QueryString("strYR"))="" then Response.Redirect "TraspPresenze_anno.asp" elseif isNumeric(Request.QueryString("strYR"))=true then sqlPR="SELECT SO_Riferimento FROM T_OT_StruttureOperative WHERE Year(SO_Riferimento)='" & Request.QueryString("strYR") & "' GROUP BY SO_Riferimento ORDER BY Convert(datetime,SO_Riferimento,105)" else Response.Redirect "TraspPresenze_anno.asp" end if rsPR.Open sqlPR,dbConn,3,3 %>
L'articolo 16, comma 3, del Decreto Legislativo numero 33 del 2013 stabilisce che le pubbliche amministrazioni debbano rendere note, attraverso i propri siti internet, le informazioni relative ai tassi di assenza e di presenza del personale, distinti per uffici di livello dirigenziale.
Sono rilevate le assenze a qualunque titolo: