Louisiana Nature...

	xxxxxxxxxxxx
	xxxxxxxxxxx
	xxx description xxx
	xxx description xxxx

 

Images made with Olympus D600L and re-sized , full size files available on request.

Return to Photography Page

Return to Carl's HomePage

<% whichname="\NaturePageCount.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 Saturday, June 12, 1999.
� 1999 Carl McNair.