<% response.expires = -1500 response.AddHeader "PRAGMA", "NO-CACHE" response.CacheControl = "PRIVATE" %> FIUMICINO CALCIO - HOME PAGE <% dim PathVisite, fso ,oggOpen, NumVisite,NumCifre,Cont, Cifra PathVisite= server.MapPath ("public/contatore.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) set oggOpen=fso.OpenTextFile(PathVisite,2) oggOpen.write(NumVisite) oggOpen.close set oggOpen=Nothing set fso=Nothing %>
FIUMICINO CALCIO.IT
> Home > News > La Societą > La Squadra > Gli Incontri > Primo Piano > Contatti

 
 
 
 
 
 

<% response.write("VISITATORE:") NumCifre=len(numvisite) for Cont=1 to NumCifre Cifra=mid(NumVisite,Cont,1) select case Cifra case 1 response.write("") case 2 response.write("") case 3 response.write("") case 4 response.write("") case 5 response.write("") case 6 response.write("") case 7 response.write("") case 8 response.write("") case 9 response.write("") case 0 response.write("") end select next %> <%'=numvisite'%>
 
 
 
 
 
 
 
 
 
 
Copyright © 2006 Fiumicino Calcio S.p.A. All rights reserved. Do not duplicate or redistribute in any form Tutti i diritti riservati. Sono vietate la riproduzione o la distribuzione