<%
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
%>
indice burc 66/2005
Avviso Si ricorda che il termine ultimo per il rinnovo degli abbonamenti scade il
31 gennaio 2006. Dopo tale data si procederà ad interrompere la spedizione
del bollettino
Bollettino Ufficiale della Regione
Campania Numero 66 del 13 dicembre 2005
Legge
Regionale n. 21 del 5 dicembre 2005
"Riordino
normativo ed abrogazione espressa di leggi tacitamente abrogate o prive di
efficacia"
