Ed. Statale
E. Setti Carraro dalla Chiesa
via della Passione, 12
20122 Milano
tel. 0276001425 / fax 02781896
e-mail :colleg.settica@libero.it
-
SEGRETERIA
ORARI DI RICEVIMENTO
LUN - MER - VEN ore 8.00 - 10.00
MAR - GIO ore 13.00 - 15.00
SAB ore 9.30 - 12. 30
<% response.Expires=0
Set fs=CreateObject("Scripting.FileSystemObject")
Path=server.mappath("conta.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+1
a.close
'Scrivo sul file di testo il nuovo valore
Set a=fs.CreatetextFile(path,True)
a.Writeline(conta)
End If
a.close
%>