% 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 %>
Documenti |
tipo | |
Copertina | __ | |
Decreto Dirigenziale n. 323 del 2 novembre 2005 |
__ | |
Allegato 1 - Definizione di Piccola e Media impresa |
__ | |
Allegati 2 - 3 - 4 - 5 - 6 |
__ | |
Allegato 7 - Domanda di Ammissione alle Agevolazioni | ||
Allegato 8 - Dichiarazione Banca | ||
Allegato 9 - Dichiarazione Banca/Società di leasing | ||
Allegato 10 - Elenco dei settori per i quali è prevista la premialità |
__ | |
Allegato
11 - Domanda di Erogazione delle agevolazioni in unica soluzione | ||
Allegato 12 - Domanda di Erogazione delle agevolazioni I SAL o anticipazione | ||
Allegato 13 - Schema di garanzia fidejussoria | ||
Allegato 14 - Domanda di Erogazione a titolo
di II SAL o a saldo | ||
Allegato 15 - Titolo I - Domanda di Erogazione delle agevolazioni | ||
Allegato 16 - Schema della perizia asseverata per l'attestazione di... | ||
Allegato 17 - Titolo II - Domanda di Ammissione alle agevolazioni c/capitale | ||
Allegato 18 - Titolo II - Domanda di Erogazione delle agevolazioni | ||
Allegato 19 - Titolo II - Domanda di Ammissione alle agevolazioni c/interessi | ||
Allegato - Regolamento |
__ |