% 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
Il Bollettino Ufficiale della Regione Campania del 3 dicembre 2007, contiene Leggi e Regolamenti
Legge Regionale n. 12 del 28 novembre 2007
"Incentivi alle imprese
per l'attivazione del Piano di Azione per lo Sviluppo Economico Regionale".
Legge Regionale n. 13 del 28 novembre 2007
"Variazione al Bilancio
di Previsione della Regione Campania per l'Anno Finanziario 2007".
Regolamenti
REGOLAMENTO N. 4 del 28 novembre 2007
Regolamento di attuazione
del Contratto di Programma Regionale.
REGOLAMENTO N. 5 del 28 novembre 2007
Regolamento di attuazione
del Credito di Imposta per nuovi investimenti in Regione Campania.
REGOLAMENTO N. 6 del 28 novembre 2007
Regolamento di attuazione
del Credito di Imposta per l'incremento dell'occupazione.
REGOLAMENTO N. 7 del 28 novembre 2007
Regolamento di attuazione
degli incentivi per l'innovazione e lo sviluppo.
REGOLAMENTO N. 8 del 28 novembre 2007
Regolamento di attuazione
degli incentivi per il consolidamento delle passività a breve.