% 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 %>
Il Bollettino Ufficiale della Regione Campania Numero Speciale del 29 aprile 2008, contiene 2 (due) Decreti Dirigenziali dell'Area Sviluppo Settore Primario.
ATTI DELLA REGIONE
Settore PrimarioDecreto Dirigenziale n. 68 del 18 aprile 2008
Attuazione
del PSR - Programma di Sviluppo Rurale Campania 2007- 2013 - Approvazione
delle Disposizioni generali e dei bandi di attuazione delle misure che prevedono
aiuti rapportati alla superficie aziendale e/o riferiti agli animali (211,
212, 214 - con esclusione delle azioni e2 - f2, 215, 225) - Apertura dei termini
di adesione.
Decreto Dirigenziale n. 108 del 15 aprile 2008
PSR 2007- 2013- Apertura
dei termini di presentazione delle domande di adesione ai Piani Regionali
di Lotta Fitopatologica Integrata (PRLFI) e di Consulenza alla Fertilizzazione
Aziendale (PRCFA).