<% 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 17/08/2007

 Bollettino Ufficiale della Regione Campania

Pagina visitata: <%=visita%> volte

Bollettino Ufficiale della Regione Campania
Numero Speciale del 17 agosto 2007

Decreto Dirigenziale n. 211 del 16 luglio 2007

Consistenza Patrimoniale 2006

Documenti
tipo
Copertina
Decreto Dirigenziale n. 211 del 16 luglio 2007
Relazione
Allegato A - Patrimonio Indisponibile
Allegato B - Patrimonio Disponibile
Allegato C - Fabbricati in comunione indivisi
Allegato D - Patrimonio in comunione indiviso ed inalienabile - Terreni
Allegato E - Beni mobili
Allegato F - Beni mobili Quintieri
Allegato G - Case cantoniere
Allegato H - Partecipazioni societarie
Allegato I - Canoni virtuali
Allegato L - Concessioni su immobili regionali
Allegato M - Pertinenze acquedottistiche
Allegato N - Beni trasferiti dalla Circumvesuviana