Home - The .WAV Collection - The Links Page - About Me

Sign Guest Book - View Guest Book - My Software - What's New

Search this Site

Page last updated on November 1, 1998 9:15 PM
Previous session logged in at: <%= session("LastVisitorTime")%>.

<% session("SndlinksFlag")= session("SndlinksFlag") + 1 If session("SndlinksFlag") = 1 Then Rem Get the current number of hits for this page Set FileObject = Server.CreateObject("Scripting.FileSystemObject") OtherCounterFile = Server.MapPath ("/guest") & "\Sndlinks.txt" Set InStream= FileObject.OpenTextFile (OtherCounterFile, 1, False, False) Number = Instream.Readline Instream.close application.lock application("SndlinksCount") = Number Set OutStream= FileObject.CreateTextFile (OtherCounterFile, True, False) application("SndlinksCount") = application("SndlinksCount") + 1 OutStream.WriteLine application("SndlinksCount") OutStream.close application.unlock End If %>