% 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 | |
Bando di gara per lavori di Sistemazione idraulico forestale del bacino idrografico ricadente sul torrente Caudino e sistemazione dellarea in frana a monte del centro abitato del comune di S. Martino Valle Caudina - Importo complessivo dellappalto (compresi: oneri per la sicurezza e oneri per le attività espropriative): euro 3.466.746,90. | |
Bando di gara per lavori di Sistemazione idraulico forestale del bacino idrografico del torrente Castello nel comune di Cervinara - Importo complessivo dellappalto (compresi: oneri per la sicurezza e oneri per le attività espropriative): euro 4.036.463,62 . | |
Bando di gara per Interventi di mitigazione
del rischio idraulico nei comuni di Tramonti e Maiori - Torrente Reghinna Major - Importo complessivo dellappalto (compresi oneri per la sicurezza) euro 2.139.208,35. | |
Bando di gara per lavori di Sistemazione
idraulica dei fiumi Sarno e Solofrana - lotto 1 - opere di laminazione delle piene in località Pandola del comune di Mercato San Severino - Importo complessivo dellappalto (compresi: oneri per la sicurezza e oneri per le attività espropriative) euro 5.902.299,80. |