% 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 %>
Decreto Dirigenziale n. 238 del 16 giugno 2006
Programma
operativo Regionale 2000/2006. Misura 1.12 azione a) e c) incentivazione
al risparmio energetico, alla produzione di energia da fonti rinnovabili
ed alla cogenerazione distribuita. Interventi monosettoriali ed in ambito
di progetti integrati. Emanazione bando (con allegati)
SVILUPPO ATTIVITÀ SETTORE PRIMARIO
Decreto Dirigenziale n. 349 del 13 giugno 2006
Procedure
esecutive della DGR n. 283 del 4 marzo 2006 - Disposizioni applicative per
l'attuazione degli interventi a favore dell'impiego di fonti energetiche
rinnovabili e del risparmio energetico in agricoltura.