<% 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 %> burcspeciale 22/12/2006

 Bollettino Ufficiale della Regione Campania

Pagina visitata: <%=visita%> volte

Bollettino Ufficiale della Regione Campania
Numero Speciale del 22 dicembre 2006

In questo numero

Il B.U.R.C. (Bollettino Ufficiale della Regione Campania) speciale del 22 dicembre 2006, contiene:

INDICE DEL BURC

PARTE I

Decreti Dirigenziali
Assistenza Sanitaria
Decreto Dirigenziale n. 239 del 6 dicembre 2006
Graduatorie regionali definitive anni 2002-2003-2004-2005 redatte ai sensi art. 2 D.P.R. 270/2000
Decreto Dirigenziale n. 240 del 6 dicembre 2006
Graduatoria regionale provvisoria anno 2006 di Medici aspiranti ad incarichi di Medicina Generale redatta ai sensi art. 16 dell’A.C.N. vigente del 23/03/05