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 February 15, 2000 9:40 AM
Previous session logged in at: <%= session("LastVisitorTime")%>.

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