Your Network Address is <%Response.Write(Request.ServerVariables("remote_addr"))%>

<% Dim fsoObject Dim tsObject Dim filObject Dim lngVisitorNumber Dim intWriteDigitLoopCount Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("counter/views.txt")) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = CLng(tsObject.ReadAll) lngVisitorNumber = lngVisitorNumber + 1 Set tsObject = fsoObject.CreateTextFile(Server.MapPath("counter/views.txt")) 'Write the new visitor number to the text file tsObject.Write CStr(lngVisitorNumber) 'Reset server objects Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing 'HTML output to display the visitor number Response.Write("view counter
") 'Response.Write(lngVisitorNumber) For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber) 'Display the graphical hit count Response.Write("") Next %>