<%
usesession = True
imgfolder = "images/"
useimage = False
FileExt = ".gif"
Set FSOCount = Server.CreateObject("Scripting.FileSystemObject")
Set filObject = FSOCount.GetFile("D:\Inetpub\webs\gioiedibettacom\public\count.txt")
Set tsObject = filObject.OpenAsTextStream
lngVisitorNumber = CLng(tsObject.ReadAll)
doincrementcount = True
if usesession = True then
if session("counted") <> "" then
doincrementcount = False
else
session("counted") = "Done"
end if
end if
if doincrementcount = True then
lngVisitorNumber = lngVisitorNumber + 1
Set tsObject = FSOCount.CreateTextFile("D:\Inetpub\webs\gioiedibettacom\public\count.txt")
tsObject.Write CStr(lngVisitorNumber)
end if
Set FSOCount = Nothing
Set tsObject = Nothing
Set filObject = Nothing
%>
Gioie_di_Betta
