בלעעעעע
<% 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 %>
<% 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 %>