<%
Set oFs = CreateObject("Scripting.FileSystemObject")
'in case first visit and file doesn't exist
on error resume next
Set oFile= oFs.OpenTextFile(Server.MapPath("folder\HitCount.txt"),1)
'No more errors should occur
on error goto 0
if isObject(oFile) then
lHitCount = oFile.ReadLine
if isNumeric(lHitCount) then
lHitCount = clng(lHitCount)
else
lHitCount = 0
end if
oFile.Close
else
lHitCount = 0
end if
lHitCount = cstr(lHitCount + 1)
Set oFile= oFs.CreateTextFile(server.mappath("folder\HitCount.txt"),True)
oFile.writeLine cstr(lHitCount)
oFile.close
set oFs=nothing
%>