<% 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 %> burc speciale marzo 2008

Bollettino Ufficiale della Regione Campania

Indice dei Burc anno 2006 | Indice dei Burc anno 2007 | Regione Campania |

Pagina visitata: <%=visita%> volte

Bollettino Ufficiale della Regione Campania
Numero Speciale del 19 marzo 2008

Deliberazione N. 1929 del 9 novembre 2007

PIC LEADER+. Presa d'atto dell'avvenuta approvazione delle modifiche al programma regionale da parte della Commissione Europea e adattamento del complemento di programma conformemente agli artt.15, paragrafo 6, e 34, paragrafo 3 Reg. (CE)1260/99. (Allegati). – Errata Corrige.

Documenti	tipo	MB
Copertina
Deliberazione N. 1929 del 9 novembre 2007
Allegato 2 - Complemento di Programmazione Leader+ adattato al PRL+		1.5
Documenti Correlati
Allegato 1 - Programma Regionale Leader+ Decisione C(2006)/5191 del 26/10/2006		2.0