<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
HitsFile = Server.MapPath(Dir & "counter/hits.txt")
'On Error Resume Next
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
InStream.Close
NewHits = OldHits + 1
Set OutStream= FileObject.CreateTextFile(HitsFile, True)
OutStream.WriteLine(CStr(NewHits))
OutStream.Close
%>
Oliver Hayden
Project management, strategic planning, technical writing, web development, web campaigns, grassroots campaigns.
Citizen, activist.
Resume
Contact
<%
L=Len(NewHits)
i = 1
For i = i to L
num = Mid(NewHits,i,1)
Display = Display & ""
Next
%>
