Just For Fun! (1)

This page is dedicated to having FUN!

Jump to next FUN Page!

Return to Carl's HomePage

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