| |
| |
Visitatori
2004
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Path = server.mappath("contatore\counter.txt")
Set a = fs.OpenTextFile(path)
conta = a.ReadLine
conta=conta+1
set a=nothing
'----------------------------visualizzazione cifre-------------------------
NumCifre=len(conta)
%>
<%
for Cont=1 to NumCifre
Cifra=mid(conta,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
'-------------------------------------------------------------------------
Set a = fs.CreateTextFile(path, True)
a.writeLine(conta)
a.Close
Set a=Nothing
Set fs=Nothing
'response.write conta
%>
|
|
|
