|
<%
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(server.mappath("counter.inc"), True)
objFile.WriteLine(chr(60) & "%")
objFile.WriteLine("dim counter, ipaddress")
if ipaddress <> Request.ServerVariables("REMOTE_ADDR") then
objFile.WriteLine("counter = " & counter + 1)
else
objFile.WriteLine("counter = " & counter)
end if
objFile.WriteLine("ipaddress = """ & Request.ServerVariables("REMOTE_ADDR") & """")
objFile.WriteLine("%" & chr(62))
objFile.Close
%>
<%= counter %>
Unique visits
since May, 2002
Website Designed,
hosted & maintained by CM
Weston
Bangor, ME USA Copyright 2002 Kennebec River Outfitters
|