Page last updated on February 15, 2000 9:45 AM
Previous session logged in at: <%= session("LastVisitorTime")%>.
<%
session("VendorsFlag")= session("VendorsFlag") + 1
If session("VendorsFlag") = 1 Then
Rem Get the current number of hits for this page
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
OtherCounterFile = Server.MapPath ("/guest") & "\Vendors.txt"
Set InStream= FileObject.OpenTextFile (OtherCounterFile, 1, False, False)
Number = Instream.Readline
Instream.close
application.lock
application("VendorsCount") = Number
Set OutStream= FileObject.CreateTextFile (OtherCounterFile, True, False)
application("VendorsCount") = application("VendorsCount") + 1
OutStream.WriteLine application("VendorsCount")
OutStream.close
application.unlock
End If
%>
