% 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 %>
Pagina visitata: <%=visita%> volte
LEGGI REGIONALI
Legge regionale n. 23 del 28 dicembre
2005
"Rideterminazione delle
aliquote dell'imposta regionale sulle attivita' produttive e dell'addizionale
regionale all'imposta sul reddito"
Legge Regionale n. 24 del 29
dicembre 2005
Disposizioni
per la formazione del Bilancio Annuale e Pluriennale della Regione Campania -
Legge Finanziaria 2006
Legge Regionale n. 25 del 29 dicembre 2005
Bilancio
di Previsione della Regione Campania per lAnno Finanziario 2006 e Bilancio
Pluriennale per il triennio 2006 - 2008
DECRETI DEL PRESIDENTE
DEL CONSIGLIO REGIONALE
Decreto
n. 72