Images made with Olympus D600L and re-sized , full size files available on request.
Return to Photography Page
Return to Carl's HomePage
<%
whichname="\SpiderPageCount.txt"
whichdir=Server.Mappath ("\kb5wmy\")
whichFN=whichdir & whichname
forreading=1
Dim PageCount
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(whichFN, forreading, True)
thisline=thisfile.readline
strCnt = thisline
PageCount = (Cdbl(strCnt) + 1)
Response.Write ""
Response.Write ("You are Visitor number ")
Response.Write PageCount
Response.Write ""
thisfile.Close
set thisfile=nothing
Set WriteStream = fs.CreateTextFile(whichFN, True)
WriteStream.WriteLine PageCount
WriteStream.Close
set fs=nothing
%>
This page was last updated on Monday, November 15th, 1999.
� 1999 Carl McNair.
