<% 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 %> indice burc 31/03/2005

Bollettino Ufficiale della Regione Campania

Indice dei BURC anno 2004| Indice dei Burc anno 2005 | Regione Campania |

Pagina visitata: <%=visita%> volte

Bollettino Ufficiale della Regione Campania
Numero Speciale del 31 marzo 2005

Decreto Dirigenziale n. 230 del 10 febbraio 2005

Legge Regionale 31.10.1978 n. 51
Presa d'atto aggiornamento Albo Regionale Collaudatori - Anno 2004.

I Tomo - Elenco Generale
Decreto n. 230 del 10 febbraio 2005	__
Ingegneri
Ingegneri Collaudatori Statici
Architetti
Architetti Collaudatori Statici
Agronomi
Geologi
Geometri
Periti Industriali, Periti Agrari, Periti Nautici, Agrotecnici
II Tomo - Elenchi pervenuti, relativi ad incarichi professionali di progettazione direzione, Ingegnere Capo e collaudo lavori conferiti dagli Enti e dalla stessa Regione durante l'anno 2003 - NON DISPONIBILE IN RETE