<%
On Error Resume Next
FileLocation = Server.MapPath("counter.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set TextFile = fs.OpenTextFile(FileLocation)
TotalHits = Clng(TextFile.ReadLine)
if Session("TotalHits") = "" then
Session("TotalHits") = TotalHits
TotalHits = TotalHits + 1
TextFile.close
Set TextFile = fs.CreateTextFile(FileLocation, True)
TextFile.WriteLine(TotalHits)
end if
TextFile.Close
%>
Chippower