<%
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 17/05
Bollettino Ufficiale della Regione Campania
Numero 17 del 21 marzo 2005
Decreto Dirigenziale n. 17 del 2 marzo 2005
Rettifica del disciplinare di gara e riapertura termini
della gara, indetta con Decreto Dirigenziale n. 7 del 27 gennaio 2005, pubblicato
sul B.U.R.C. n. 9 del 7 febbraio 2005, mediante appalto integrato, di cui
all’art. 19 comma 1 lettera b della L. 109/94 e s.m.i., per la realizzazione
del progetto definitivo, approvato con D.G.R. n. 2067 del 12 novembre 2004,
di “Espansione ed integrazione funzionale della rete di monitoraggio
meteoidropluviometrico in tempo reale del Centro Funzionale del Settore Programmazione
Interventi di Protezione Civile sul territorio.
