<%
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
%>
del 591/05
Bollettino Ufficiale della Regione Campania
Numero 26 del 16 maggio 2005
Deliberazione N. 591 del 20 aprile 2005
D.P.R. 470/82 art. 4 comma 1 lett. B e succ. modifiche e
integrazioni “Individuazione zone non idonee alla balneazione - Anno
2005” - Direttiva Europea (12884/4), avvio della sperimentazione durante
la stagione balneare 2005 e contestuale rilevazione dei punti prelievo per
nuova mappatura costiera.
Documenti
tipo
Deliberazione N. 591 del 20 aprile 2005
Cartografia relativa alle coste non balneabili
Tratti di costa risultati non idonei ad inizio
stagione balneare - Tavole I, II, III, IV
Sperimentazione della direttiva Europea e mappatura
punti di prelievo
