<% Option Explicit %>
<%
'
' $Id: users.asp,v 1.1.1.1 2003/03/09 22:45:57 peter Exp $
'
' Shows a list of all active chat users in the current users room. The
' current user will be bolded in the list in order to separate him from
' other users and all other users will have a link for opening their
' profile, e.g. if you want to send a private mssage to him/her.
'
' @author Peter Theill peter@theill.com
'
Response.Buffer = True
If (NOT loggedOn()) Then
Response.Write(getLoggedOutScript())
Response.End
End If
Dim user
Set user = getLoggedOnUser()
%>
<%= APPLICATION_NAME %> - Users