<%
dim PathVisite, fso ,oggOpen, NumVisite,NumCifre,Cont, Cifra
'fase di lettura dati dal file visite.txt
PathVisite= server.MapPath ("visite.txt")
set fso=server.CreateObject("scripting.filesystemobject")
set oggOpen =fso.OpenTextFile(PathVisite,1)
NumVisite = oggOpen.readline
NumVisite=NumVisite+1
set oggOpen=Nothing
'visualizzazione cifre
NumCifre=len(NumVisite)
for Cont=1 to NumCifre
Cifra=mid(NumVisite,Cont,1)
select case Cifra
case 1
%>
<% case 2 %>
<% case 3 %>
<% case 4 %>
<% case 5 %>
<% case 6 %>
<% case 7 %>
<% case 8 %>
<% case 9 %>
<% case 0 %>
<% end select
next
'aggiornamento mediante salvataggio nel file
set oggOpen=fso.OpenTextFile(PathVisite,2)
oggOpen.write(NumVisite)
oggOpen.close
set oggOpen=Nothing
set fso=Nothing
%>
<% case 2 %>
<% case 3 %>
<% case 4 %>
<% case 5 %>
<% case 6 %>
<% case 7 %>
<% case 8 %>
<% case 9 %>
<% case 0 %>
<% end select
next
'aggiornamento mediante salvataggio nel file
set oggOpen=fso.OpenTextFile(PathVisite,2)
oggOpen.write(NumVisite)
oggOpen.close
set oggOpen=Nothing
set fso=Nothing
%>
VastaworkS