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 26, 1999 4:05 PM
Previous session logged in at: <%= session("LastVisitorTime")%>.

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