|
|
||||||
|
|
|
|
|
|
|
 |
|
GELTECNICA -
Macchine e impianti per gelato - Via
Molinello, 32 - 16035 Rapallo (GE) Italy
Contatore visite:
<%
'Contatore visite
If session("iCounter") = "" Then
Const ForReading = 1
Const ForWriting = 2
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objReadFile = objFso.OpenTextFile(Server.MapPath("contatore/contatore.txt"), ForReading, True)
iCounter = objReadFile.ReadLine
objReadFile.Close
Set objReadFile = Nothing
Session("iCounter") = iCounter
iCounter = Cint(iCounter) + 1
Set objWrite = objFso.OpenTextFile(Server.MapPath("contatore/contatore.txt"), ForWriting, True)
objWrite.writeLine iCounter
objWrite.Close
Set objWrite = Nothing
Set objFso = Nothing
End If
sCounter = cstr(session("iCounter"))
dim aImg(10)
for iFor1=0 to 9
aImg(iFor1) = iFor1
next
for iFor2=1 to len(sCounter)
iStr = cint(mid(sCounter, iFor2, 1))
Response.Write(" |
||||||
