Contatore grafico

Lo script genera un buon contatore di accessi grafico:

<% 
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 
%>
<img SRC="cifra1anim.gif" border="0"> 
<% case 2 %>
<img SRC="cifra2anim.gif" border="0"> 
<% case 3 %>
<img SRC="cifra3anim.gif" border="0"> 
<% case 4 %>
<img SRC="cifra4anim.gif" border="0"> 
<% case 5 %>
<img SRC="cifra5anim.gif" border="0"> 
<% case 6 %>
<img SRC="cifra6anim.gif" border="0"> 
<% case 7 %>
<img SRC="cifra7anim.gif" border="0"> 
<% case 8 %>
<img SRC="cifra8anim.gif" border="0"> 
<% case 9 %>
<img SRC="cifra9anim.gif" border="0"> 
<% case 0 %>
<img SRC="cifra0anim.gif" border="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 
%>