| HiLiteR 1.1 » "whoson.asp" | Report a Bug | Recommend a feature | Ask a question | Submit a site |
<html><title>Who is Online</title><body>
<p>
Who is Online
</p>
<%
on error resume next
response.write "<table cellpadding=""2"" cellspacing=""1"" border=""0"" width=""100%"">"
response.write "<tr><td></td><td><strong>Who</strong></td><td><strong>When</strong></td><td><strong>Where</strong></td></tr>"
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
response.write "<tr><td align=""right"">" & iUsrCount & ".</td><td> " & sUserName & "</td><td>" & sLastActionTime & "</td>"
response.write "<td>" & sLastPageViewed & "</td></tr>"
end if
next
response.write "</table>"
%>
<br><br>
</body></html>
Processing time: 0,64 seconds.
Visit 2eNetWorX for more OpenSource VB and ASP Projects.