Page last updated on August 15, 1998 6:30 PM
Previous session logged in at: <%= session("LastVisitorTime")%>.
<%
session("SoftwareFlag")= session("SoftwareFlag") + 1
If session("SoftwareFlag") = 1 Then
Rem Get the current number of hits for this page
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
OtherCounterFile = Server.MapPath ("/guest") & "\Software.txt"
Set InStream= FileObject.OpenTextFile (OtherCounterFile, 1, False, False)
Number = Instream.Readline
Instream.close
application.lock
application("SoftwareCount") = Number
Set OutStream= FileObject.CreateTextFile (OtherCounterFile, True, False)
application("SoftwareCount") = application("SoftwareCount") + 1
OutStream.WriteLine application("SoftwareCount")
OutStream.close
application.unlock
End If
%>
