| |
|
Whos
Online |
When
|
<%
on error resume next
aSessions = dOnlineUsers.Keys
for iUser = 0 to dOnlineUsers.Count - 1
sKey = aSessions(iUser)
sUserInfo = dOnlineUsers.Item(sKey)
aUserInfo = split(sUserInfo, "<|>")
sUserName = aUserInfo(0)
sLastActionTime = aUserInfo(1)
sLastPageViewed = aUserInfo(2)
if sUserInfo <> "" then
iUsrCount = iUsrCount + 1
if Mid(susername,1,5)<>"Guest" then
%>
| <%=sUserName%> (View profile) |
<%=sLastActionTime%> |
<%
'response.write "" & sLastPageViewed & " | " %>
<%
end if
end if
next
%>
|
|