<%
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
%>
pro
Bollettino Ufficiale della Regione Campania
Numero 24 del 2 maggio 2005
Avvio di procedimento
PROVINCIA
DI NAPOLI
Città Metropolitana
Avviso pubblico
Avvio
del procedimento riguardante l'espropriazione da effettuarsi degli immobili
occorrenti alla realizzazione dei lavori di ampliamento e sistemazione
sede stradale SS.PP. Striano-S. Valentino Torio e Striano-Sarno.
IL
DIRIGENTE
RENDE NOTO
Che
è stato pubblicato sul sito INTERNET della Regione Campania (www.regione.campania.it)
l'avviso di
avvio del procedimento ai sensi e per gli effetti degli articoli 11
comma 2 del D.P.R. n. 327/2001 e s.m.i. e dell'art. 8 della legge n. 241/90
e s.m.i., riguardante l'espropriazione da effettuarsi degli immobili occorrenti
alla realizzazione dei lavori di ampliamento e sistemazione sede stradale
SS.PP. Striano-S. Valentino Torio e Striano-Sarno.