<%
MyServer=Request.ServerVariables("SERVER_NAME")
MyPath=Request.ServerVariables("SCRIPT_NAME")
MySelf="HTTP://"&MyServer&MyPath
%>
Koga ima?
<%
Application.Lock
Set TempStats=Application("Stats")
Application.Unlock
%>
Total Users: <%=TempStats.Count %>
| User ID | Current Page |
|---|
<%
TempItems=TempStats.Items
TempKeys=TempStats.Keys
For i=0 to UBOUND(TempKeys)
%>
| <%=TempItems(i)%> |
<%
Next
%>