<% Option Explicit %>
<%
'
' :@addroom.asp
'
'
'
' @author Peter Theill peter@theill.com
'
Response.Buffer = True
Dim userId
userId = Request("chatId")
If (NOT isLoggedIn(userId)) Then
Response.Redirect "expired.asp"
Response.End
End If
Dim roomName, needToRefreshRooms, noMoreRoomsAllowed
roomName = Request("ediRoomName")
needToRefreshRooms = False
noMoreRoomsAllowed = False
If ((Request("action") = "addRoom") AND (Len(roomName) > 0)) Then
needToRefreshRooms = True
If (conquerChatRooms.Count < NUMBER_OF_ROOMS) Then
' a new room needs to be added the chat. We include id of the chat user
' creating this chat. This makes it possible for us to print his/hers
' name next to the name of the room
Call addRoom(roomName, userId)
Else
noMoreRoomsAllowed = True
End If
End If
%>
<%= APPLICATION_NAME %> - Add Room
<% If (needToRefreshRooms) Then %>
<% End If %>
<% If (noMoreRoomsAllowed) Then %>
<% End If %>