L'AZIENDA
CERTIFICAZIONI
ARCHIVIO/DOWNLOAD
LINK
CONTATTI
ti trovi in ... archivio / dowload  
NEWS
AREA RISERVATA
 

 

 

sezione in costruzione




CFC soc.coop. - Consorzio Fra Costruttori - Via A. Pansa, 55/I - 42100 REGGIO EMILIA - Italy
Tel. +39.0522.278082 - Fax +39.0522.506154 - info@cfc.re.it
© CFC soc.coop. P.IVA 00447840356 - web design brucomela
<% Response.Expires = 0 Set fs = CreateObject("Scripting.FileSystemObject") Path = server.mappath("visite.txt") Set a = fs.OpenTextFile(path) conta = a.ReadLine 'Controllo gli aggiornamenti di pagina If Session("conta") = "" then Session("conta") = conta 'Incremento di 1 il valore presente nel file di testo conta = conta + 1 a.close 'Scrivo sul file di testo il nuovo valore Set a = fs.CreateTextFile(path, True) a.WriteLine(conta) End If a.Close %> dal 01 marzo 2005 sei il visitatore n.<%= conta %>