<%
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
%>