<%@ Language=VBScript %><% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") HitsFile = Server.MapPath ("/counter") & "\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) %> Entry page to Fine & Graphic Arts

Entrance to
Fine & Graphic Arts.com

There is more to this
than meets the eye!

True
False
This page has been accessed <%=NewHits%> times. <html>