% 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 %>
Pagina visitata: <%=visita%> volte
Il B.U.R.C. (Bollettino Ufficiale della Regione Campania) del 30 gennaio 2006, contiene Delibere e Decreti della Giunta Regionale
ATTI DELLA REGIONE
Deliberazione della Giunta Regionale della
Campania
Deliberazione N. 1746 del 6 dicembre 2005
Area
Generale di coordinamento N. 19 - Piano Sanitario regionale e rapporti con le
UU.SS.LL. - Atto Aziendale ASL CE 1. Approvazione.
DECRETI DIRIGENZIALI
SETTORE TERZIARIO
DECRETO DIRIGENZIALE N. 23 del 17 gennaio 2006
AREA
GENERALE DI COORDINAMENTO SVILUPPO ATTIVITÀ SETTORE TERZIARIO SETTORE SVILUPPO
E
PROMOZIONE DELLE ATTIVITÀ COMMERCIALI- L.R. 1/2000 - Capo III. Commercio
su Aree Pubbliche - Pubblicazione dei posteggi disponibili nei mercati periodici
e stagionali dei comuni della regione Campania ed approvazione del modello di
Bando comunale per il rilascio delle autorizzazioni di tipologia A). - (Con Allegati).