<%@ Language=VBScript %> <%Option Explicit%> <%Response.Expires=0 Response.Buffer = True Dim sError,iError,iUid,i,aRooms,iCount,aIds,aRoom If len(Request("userName"))>0 Then If UserLogin(Request("userName"),Request("password"),Request("roomid"),sError,iError,iUid) Then Response.Redirect "chat.asp" Response.End End If ElseIf len(Request("logoff"))>0 Then call LogOffUser(ChatSessionUidGet(),true) End If%> <%=APPLICATION_NAME%>
<%If Len(sError) > 0 Then Response.Write "" End If iCount=RoomsArrayGet(aRooms,aIds) if iCount>0 Then For i=0 to iCount-1 aRoom=aRooms(i) Response.Write "" Next Response.Write "" End If %>
 Login to <%=APPLICATION_NAME%>
<%if iError=5 Then %> <% Else %> <% If USE_AUTHENTICATION>0 Then %> <% End If %> <% End if %>
You are already logged in.
go back to chat.
?logoff=1">logoff
Type in Any User Name To Enter
" tabindex=1>
Password
" & sError & " 
  " & aRoom(plm_COL_ROOM_NAME) & " (" & aRoom(plm_COL_ROOM_COUNT) & ")
 
<%Dim aUsers,iRoomId,rowIdx,sRoomName iCount=UsersArrayGet(aUsers,aIds) If iCount>0 Then For i=0 to iCount-1 iRoomId=aUsers(i)(plm_COL_USER_ROOM) if RoomGet(iRoomId,aRoom) Then sRoomName=aRoom(plm_COL_ROOM_NAME) Else sRoomName="Unavailable" End If If (rowIdx MOD 2) Then Response.Write "" Else Response.Write "" End If %> <% Response.Write " " Response.Write "" rowIdx = rowIdx + 1 Next Else End If%>
" & aUsers(i)(plm_COL_USER_NAME) & "" Response.Write " - " & sRoomName & " 

We are still working on the logging in process. If you find you get kicked out instantly, please....

  • Click Back to the login page
  • Wait until your login name clears (or choose another)
  • Then click login again.

If this does not work, your computer may not allow cookies. You will need to change your settings within your browser at your own risk.