<% 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 131/05

 Bollettino Ufficiale della Regione Campania


Bollettino Ufficiale della Regione Campania
Numero 20 del 11 aprile 2005

Decreto Dirigenziale n. 131 del 17 marzo 2005

L.R. 26/2002 - Avviso Pubblico approvato con delibera di G. R. n 408/2004 - Presa d'Atto e pubblicazione elenco generale istanze giudicate ammissibili e non ammissibili a contributo e graduatorie istanze ammissibili a contributo. Approvazione elenchi finali istanze ammesse a contributo.(Con allegati).

Documenti
tipo
Decreto Dirigenziale n. 131 del 17 marzo 2005
Decreto Dirigenziale n. 160 del 24 marzo 2005
All. A - Elenco generale istanze ammissibili e non ammissibili
All. B - Graduatoria istanze ammissibili - Programma Integrato
All. C - Graduatoria istanze ammissibili - Piano Colore
All. D - Graduatoria istanze ammissibili - Progetto Definitivo
All. E - Elenco istanze ammesse a contributo per il Programma Integrato
All. F - Elenco istanze ammesse a contributo per il Piano Colore
All. G - Elenco istanze ammesse a contributo per il Progetto Definitivo

[ torna all'indice del BURC ]