<% 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 19/2007

Bollettino Ufficiale della Regione Campania

vai a:

Parte Prima
Parte Seconda
Parte Terza

Pagina visitata: <%=visita%> volte

Bollettino Ufficiale della Regione Campania
Numero 19 del 3 aprile 2007

In questo numero

Il Bollettino Ufficiale della Regione Campania del 3 aprile 2007, periodico settimanale della Regione Campania, contiene, Leggi e Decreti.

INDICE DEL BURC

PARTE I

LEGGI E REGOLAMENTI

Legge Regionale n. 4 del 28 marzo 2007
“Norme in materia di gestione, trasformazione, riutilizzo dei rifiuti e bonifica dei siti inquinati”.

DECRETI DIRIGENZIALI

GABINETTO DEL PRESIDENTE
DECRETO DIRIGENZIALE N. 192 del 26 marzo 2007
Regolamento recante disposizioni per la concessione del patrocinio con concessione di contributo finanziario a manifestazioni di cui alla DGRC n. 727 del 28 febbraio 2003 - Determinazioni.

FORMAZIONE - O.R.M.E.L.
DECRETO DIRIGENZIALE N. 57 del 20 marzo 2007
Decreto Dirigenziale n. 161/2006 - Avviso Pubblico per la sperimentazione di Patti Formativi Locali - Rettifiche e proroga termini di presentazione.