|
<%
'on error resume next
'err = 0
dim objFS, fleHits 'optionally we could create the initial file by hand
Set objFS = CreateObject("Scripting.FileSystemObject")
Set fleHits = objFS.OpenTextFile(server.MapPath("sachal.txt"),1)
if isObject(fleHits) then
currentHits = fleHits.ReadLine
if isNumeric(currentHits) then
currentHits = clng(currentHits)
else
currentHits = 0
end if
else
currentHits = 0
end if
fleHits.Close
'now we have the current hits
currentHits = cstr(currentHits + 1)
'save the new hit to file
Set fleHits = objFS.CreateTextFile(server.MapPath("sachal.txt"),True)
fleHits.writeLine cstr(currentHits)
fleHits.close
set objFs=nothing
response.write currentHits
%>
|
