<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
HitsFile = Server.MapPath("http://www.angelfire.com/nj/PhuhQ/")&"\hits.txt"
Set InStream = FileObject.OpenTextFile(HitsFile, 1,false)
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
Set OutStream = FileObject.CreateTextFile(HitsFile, True)
OutStream.WriteLine(NewHits)
%>
<%=NewHits%>
