<% 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 %> del 203/05

 Bollettino Ufficiale della Regione Campania


Bollettino Ufficiale della Regione Campania
Numero 21 del 18 aprile 2005

Deliberazione N. 203 del 16 febbraio 2005

Promozione del Servizio Civile in Campania. Programmazione di spesa per lo svolgimento delle attività di formazione e dinformazione dell'anno 2004 sui fondi 2002-2003 e 2004.

Documenti
tipo
Deliberazione N. 203 del 16 febbraio 2005
__
Allegato A
__
Allegato B
__
Modulo 1
Modulo 2

[ torna all'indice del BURC ]