<% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %>
<!--#include file="../constant.inc"-->
<!--#include file="../lib/session.inc"-->
<% SendHeader 1, 1 %>
<!--#include file="../lib/pageutil.inc"-->
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2//EN">
<%
'<!-- Microsoft Chat Web Access-->
'<!-- Magchan.asp : Display and manage users -->
'<!-- Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.-->
On Error Resume Next
urlString = Request.QueryString()
if urlString <> "" then urlString="?"+urlString
CheckSession bstrVirtRoot + "/root.asp" + urlString, "parent"
Set objChatConfiguration = Session(bstrChatConfig)
Set objChatBans = objChatConfiguration.ChatBans
Set Session(bstrChatBans) = objChatBans
InitPage
urlPage = Request.QueryString("page")
If urlPage = "" Then
urlPage = "1"
End If
iPage = Cint(urlPage)
Session(CURRENT_BANS_PAGE) = iPage
iBanCount = Session(CURRENT_BANS_COUNT)
iStartBan = iPage * iRowsPerPage - iRowsPerPage + 1
iEndBan = iPage * iRowsPerPage
If iEndBan > iBanCount Then
iEndBan = iBanCount
End If
If isMSIE Then
bstrAlign = "middle"
Else
bstrAlign = ""
End If
L_PropColWidth_Number = 40
%>
<HTML>
<HEAD>
<STYLE TYPE="text/css">
<!--
A:link { color: black}
A:visited { color: black}
A:active { color: black}
-->
</STYLE>
</HEAD>
<BODY BGCOLOR=ffffff LINK=000000 VLINK=000000 ALINK=000000 TEXT=000000>
<table border=0 cellpadding=0 cellspacing=0 width=100%>
<tr BGCOLOR=c0c0c0>
<td width=1%>
<img src="<%=bstrVirtRoot%>/images/dot_clr.gif">
</td>
<td width=<%=L_PropColWidth_Number%>% >
<font size=2><b>Name (Mask) of Ban</b></font>
</td>
<td>
<font size=2><b>Reason for Ban</b></font>
</td>
</tr>
<%
For iCounter = iStartBan to iEndBan
Set objBan = objChatBans.Item(iCounter)
%>
<tr>
<td colspan=2>
<img src="<%=bstrVirtRoot%>/images/ban16.gif" width=16 height=16 align=<%=bstrAlign%>>
<a href="Javascript:parent.composeWindow(<%=COMPOSE_BAN%>, <%=iCounter%>)">
<font size=2><%=objBan.Mask%></font>
</td>
<td>
<font size=2><%=objBan.Reason%></font>
</td>
</tr>
<%
Next
%>
</table>
</BODY>
</HTML>
