<% ' ' Builds view to be shown as "list of available users" ' Function getUsersUI(userId) ' we need to show all users available in this room Dim thisUser Set thisUser = getUser(userId) If (IsNull(thisUser)) Then Exit Function End If getUsersUI = "" Dim userId_ For Each userId_ In conquerChatUsers Set user = getUser(userId_) If (user.roomId = thisUser.roomId) Then getUsersUI = getUsersUI & "" getUsersUI = getUsersUI & " " If (user.id = thisUser.id) Then ' print users own name in bold getUsersUI = getUsersUI & " " Else ' users are able to send private messages to all other users ' but themselves getUsersUI = getUsersUI & " " End If getUsersUI = getUsersUI & "" End If Next ' // > For Each userId_ In conquerChatUsers getUsersUI = getUsersUI & "

" & user.name & "

" & user.name & " (chat)

" End Function ' // > Function getUsersUI(...) ' ' Builds view of available roomsfor user ' Function getRoomsUI(userId) Dim user Set user = getUser(userId) getRoomsUI = "" Dim rooms, room, i rooms = conquerChatRooms.Keys If (IsArray(rooms)) Then For i = 0 To UBound(rooms) Set room = getRoom(rooms(i)) getRoomsUI = getRoomsUI & "" Dim cssClass If (room.id = user.roomId) Then ' this room is where the user is located so apply different style cssClass = "rc" Else cssClass = "r" End If If (room.createdBy <> user.id) Then getRoomsUI = getRoomsUI & " " Else getRoomsUI = getRoomsUI & " " End If getRoomsUI = getRoomsUI & " " getRoomsUI = getRoomsUI & "" getRoomsUI = getRoomsUI & "" Next Else getRoomsUI = getRoomsUI & "" End If getRoomsUI = getRoomsUI & "

		" & Server.HTMLEncode(room.name) & "	" & countUsersInRoom(room.id) & "
No rooms available

" End Function Function getLoggedOutScript() getLoggedOutScript = "" End Function %>