<%
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 speciale 12/07/2007
Bollettino Ufficiale della Regione Campania
Numero Speciale del 12 luglio 2007
Deliberazione n. 1094 del 22 giugno 2007
Approvazione
del Piano Regionale per la Programmazione delle Attività di Previsione
Prevenzione e Lotta Attiva contro gli Incendi Boschivi - Anno 2007.
