<% 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 11/2009

 Bollettino Ufficiale della Regione Campania


Pagina visitata: <%=visita%> volte

Bollettino Ufficiale della Regione Campania
Numero 11 Speciale del 20 febbraio 2009

In questo numero

Il Bollettino Ufficiale della Regione Campania del 20 febbraio 2009, periodico settimanale della Regione Campania, contiene il solo Decreto n. 347/2008

Copertina

PARTE I

ATTI DELLA REGIONE

DECRETI DIRIGENZIALI

Area Generale di Coordinamento Demanio e Patrimonio
Decreto Dirigenziale n. 347 del 17 luglio 2008
Approvazione Consistenza Patrimoniale 2007.