<% Option Explicit %> <% ' ' :@rooms.asp ' ' ' ' @author Peter Theill peter@theill.com ' Response.Buffer = True Dim userId userId = CStr(Request("chatId")) If (NOT isLoggedIn(userId)) Then Response.Write("Please Wait ...") Response.End End If If ((Request("action") = "remove") AND (Request("roomId") <> "")) Then ' administrator of this room want to have it removed removeRoom(Request("roomId")) End If %> <% Dim i, roomName, roomId, room_, user If (roomId = "") Then roomId = "0" End If Set user = getUser(userId) Dim rooms rooms = conquerChatRooms.Keys If (IsArray(rooms)) Then For i = 0 To UBound(rooms) Set room_ = getRoom(rooms(i)) If (i MOD 2) Then Response.Write("") Else Response.Write("") End If If (room_.createdBy <> userId) Then Response.Write(" ") Else Response.Write(" ") End If If (room_.id = user.roomId) Then ' this room is where the user is located so we make it bold Response.Write(" ") Else Response.Write(" ") End If Response.Write("") Next Else Response.Write("") End If %>

Rooms
		" & Server.HTMLEncode(room_.name) & "	" & Server.HTMLEncode(room_.name) & "
No rooms available