<%
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
%>
burc 318/2006
Bollettino Ufficiale della Regione Campania Numero 37
del 14 agosto 2006
Decreto Dirigenziale n. 318 del 25 luglio 2006
POR Campania 2000-2006 Misura 3.23 Azione e) - Approvazione Bando di Gara per
l'affidamento di un servizio volto al "Potenziamento delle attività
dell'Osservatorio regionale sulla sicurezza urbana per la promozione, la programmazione,
il coordinamento ed il monitoraggio degli interventi" ed allegati.
