<% 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 %> bollettino 48bis/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 48bis del 1 dicembre 2008

Legge Regionale n. 13 del 13 ottobre 2008

Rettifica del testo della Legge Regionale n. 13 del 13 ottobre 2008 "Piano Territoriale Regionale" pubblicata sul Bollettino Ufficiale n. 45bis del 10 novembre 2008.

Tomo I	tipo	MB
Copertina
Legge Regionale n. 13 del 13 ottobre 2008
Allegati: Relazione - Documento di piano		3.33
Tomo II	tipo	MB
Copertina
Allegati: Linee Guide per il Paesaggio - Cartografia di Piano		6.36

Bollettino Ufficiale della Regione Campania