<% Option Explicit %>
<%
'
' $Id: sourcecontrol_addroom.asp,v 1.1.1.1 2003/03/09 22:45:59 peter Exp $
'
'
'
' @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()
Dim roomName, needToRefreshRooms, noMoreRoomsAllowed
roomName = Request("ediRoomName")
needToRefreshRooms = False
noMoreRoomsAllowed = False
If ((Request("action") = "addRoom") AND (Len(roomName) > 0)) Then
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, user.id)
needToRefreshRooms = True
Else
noMoreRoomsAllowed = True
End If
End If
%>
<%= APPLICATION_NAME %>
<% If (needToRefreshRooms) Then %>
<% End If %>
<% If (noMoreRoomsAllowed) Then %>
<% End If %>