<%@LANGUAGE="VBSCRIPT"%> KB5WMY Tips and Tricks

Tips and Tricks


Tips Icon

       







Comments?      

<% whichname="\TipsPageCount.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 %>
[ E-mail: [email protected] ] ©1999 James-Randall.Com | Voice: 903-832-7633 | Texarkana, TX.
All Rights Reserved. All other trademarks are property of respective owners. Reproduction without permission prohibited.