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

 Bollettino Ufficiale della Regione Campania


Pagina visitata: <%=visita%> volte

Bollettino Ufficiale della Regione Campania
Numero Speciale del 30 gennaio 2007

Copertina

In questo numero

Il B.U.R.C. (Bollettino Ufficiale della Regione Campania) Speciale del 30 gennaio 2007, contiene le sole Delibere n. 1040/06 e 1042/06.

PARTE I

ATTI DELLA REGIONE
Deliberazione n. 1040 del 1 agosto 2006
Adempimenti connessi alla DGR 824 del 23 giugno 2006.Approvazione dei Piani di Lavoro per la redazione e valutazione dei Programmi Comunitari a valere sul ciclo di programmazione 2007- 2013.
Deliberazione n. 1042 del 1 agosto 2006
Adozione del Documento Strategico Regionale per la politica di coesione 2007/2013