<% 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 %> decdir 198/05

 Bollettino Ufficiale della Regione Campania

Pagina visitata: <%=visita%> volte

Bollettino Ufficiale della Regione Campania
Numero Speciale del 1 agosto 2005

Decreto del Presidente della Giunta Regionale della Campania
numero 299 del 30 giugno 2005

Protezione Civile - Il Sistema di Allertamento Regionale per il rischio idrogeologico e idraulico ai fini di protezione civile.
Ruoli e compiti delle strutture regionali di protezione civile nell’ambito
delle procedure di previsione e prevenzione del rischio idrogeologico
per il territorio regionale.

Documenti
tipo
Decreto del Presidente della Giunta Regionale della Campania n. 299 del 30/06/2005
Allegato Sub A - Il Sistema di Allertamento Regionale per il rischio idrogeologico e idraulico ai fini di protezione civile
- Allegati da A1 a A12
- Tavole da 1 a 7
Allegato Sub B - Ruoli e compiti delle strutture regionali di protezione civile nell’ambito delle procedure di previsione e prevenzione del rischio idrogeologico per il territorio regionale.