<%myfile=server.mappath("./counter2.txt") Set fs=CreateObject("Scripting.FileSystemObject") Set a=fs.OpenTextFile(myfile) visita=CInt(a.ReadLine) if Len(Session("visita"))=0 then Session("visita")=visita visita=visita+1 a.close Set a=fs.CreateTextFile(myfile, True) a.WriteLine(visita) end if a.Close %> lavori pubblici
testina.jpg (13998 byte)

Primo piano

Tematiche
Info & Servizio


 

 
   
Benvenuto nel sito internet del Settore Opere Pubbliche

Data ultimo aggiornamento 20 Dicembre, 2002