<%
foundUser=False
Application.Lock
localStats=Application("Stats")
For k=0 To Ubound(localStats,2)
If localStats(0,k)=Session.SessionID Then
localStats(1,k)=Request.ServerVariables("SCRIPT_NAME")
foundUser=True
Exit For
End If
Next
If foundUser=False Then
For k=0 To Ubound(localStats,2)
If localStats(0,k)="" Then
localStats(0,k)=Session.SessionID
localStats(1,k)=Request.ServerVariables("SCRIPT_NAME")
localStats(2,k)=Request.ServerVariables("REMOTE_ADDR")
localStats(3,k)=Now()
Exit For
End If
Next
End If
Application("Stats")=localStats
Application.UnLock
%>
