 |
   |
|
Comune di Cassano allo Jonio (CS) - Voti ai Verdi: 553 pari allo 6,26%
Pubblicato sul Quotidiano della Calabria "Cosenza e provincia" il 23 maggio 2009 |
Per
informazioni:
Tel. e Fax 0981/72197
E-mail: info@spedicati.it
Link: www.lamongolfieraeditrice.it
Contatore
visite
<%
dim PathVisite, fso ,oggOpen, NumVisite,NumCifre,Cont, Cifra
'fase di lettura dati dal file visite.txt
PathVisite= server.MapPath ("mdb-database/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 %>
1
<% case 2 %>
2
<% case 3 %>
3
<% case 4 %>
4
<% case 5 %>
5
<% case 6 %>
6
<% case 7 %>
7
<% case 8 %>
8
<% case 9 %>
9
<% case 0 %>
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
%>