Carl's Experimental Page.

Curly Carls Clock  (requires IE4 or higher)	A table goes here.	A table goes here.
A table goes here.	A table goes here.	A table goes here.

<% whichname="\ExperimentalPageCount.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 %>

---

 

Comments? 

Return to Carl's HomePage

This page was last updated on Saturday, June 12, 1999.
© 1999 Carl McNair.