<%
function getThisPage()
Dim sPath
Dim lLastSlashPosition
Dim sCurrPage
Dim lPathLength
sPath = Request.ServerVariables("PATH_INFO")
lLastSlashPosition = instrrev(sPath, "/")
lPathLength = len(Request.ServerVariables("PATH_INFO"))
getThisPage = right(sPath, (lPathLength-lLastSlashPosition))
end function
%>
<%
on error resume next
Dim pathCounter
Dim filecounter
Dim myfile
Dim visita
pathCounter="/public/"
filecounter = pathcounter & getthispage() & ".txt"
myfile=server.mappath(filecounter)
Set fs=CreateObject("Scripting.FileSystemObject")
if fs.fileExists(myfile) then
Set a=fs.OpenTextFile(myfile)
visita=Cdbl(a.ReadLine)
else
Set a=fs.CreateTextFile(myfile, False)
a.WriteLine("0")
visita=0
end if
a.close
if Len(Session(filecounter))=0 then
Session(filecounter)=visita
visita=visita+1
Set a=fs.CreateTextFile(myfile, True)
a.WriteLine(visita)
a.Close
end if
set fs = nothing
%>
decdir 85/05
Bollettino Ufficiale della Regione Campania
Numero 21 del 18 aprile 2005
Decreto Dirigenziale n. 50 del 11 aprile 2005
Decreto Dirigenziale n. 37 dell'11/03/2005: Presa d'atto
delle risultanze del Nucleo di Valutazione dei progetti presentati ai sensi
“dell'Avviso di Evidenza Pubblica per attività formative rivolte
ad operatori sociali impegnati nelle attività di cui ai Piani di Zona
Sociali in applicazione della Legge 328/2000. Rettifica meri errori materiali.
Documenti
tipo
Decreto Dirigenziale n. 50 del 11 aprile 2005
Allegato A (tiene conto dell'errata corrige
pubblicata sul BURC 22 del 26/04/05)
