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

 Bollettino Ufficiale della Regione Campania


Bollettino Ufficiale della Regione Campania
Numero 18 del 29 marzo 2005

Decreto Dirigenziale n. 7 del 2 marzo 2005

Bando per l'attuazione del regime di aiuto per la promozione dell'imprenditoria giovanile. Contributi all'autoimprenditorialità - art. 42 della L.R. 26 luglio 2002 n. 15 - Approvazione modulistica.

Documenti
tipo
Decreto Dirigenziale n. 7 del 2 marzo 2005
__
Allegato A - Domanda di ammmisssione alle agevolazioni
Allegato B - Dichiarazione di accettazione del contributo
Allegato C - Schema di fidejussione bancaria
Allegato D - Richiesta di erograzione prima quota
Allegato E - Richiesta contributo (S.A.L.)
Allegato F - Richiesta dichiarazione liberatoria
Documenti Correlati
Deliberazione n. 2500 del 30 dicembre 2004

[ torna all'indice del BURC ]