<% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %>
<!-- #include file='constant.inc' -->
<!-- #include file='lib/session.inc'-->
<% SendHeader 0, 1 %>
<%
'Microsoft Chat Web Admin
'Logon.asp
'Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.
urlNewWindow = Request.QueryString("newwindow")
If isMSIE Then
iDotWidth = 230
Else
iDotWidth = 225
End If
Function isSupportedBrowser()
' What browser requested this page?
szClient = GetUserAgent()
' Are we using Microsoft Internet Explorer?
nPos = Instr(szClient, "MSIE")
' Strip everything left of the major version #
if (nPos <> 0) then
' MSIE Agents are of the form "Mozilla/#.# (compatable; MSIE x.#; Platform)"
szVersion = Right(szClient, len(szClient) - nPos - len("MSIE"))
else
' NS Nav Agents are of the form "Mozilla/x.# (Platform; I; Processor)"
szVersion = Right(szClient, len(szClient) - len("Mozilla/"))
end if
' Strip everything right of the major version #
nPos = Instr(szVersion, ".")
szVersion = Left(szVersion, nPos - 1)
' If your browser is version 3.x or higher, your supported
if IsNumeric(szVersion) then
if CInt(szVersion) >= 3 then
isSupportedBrowser = true
else
isSupportedBrowser = false
End If
Else
isSupportedBrowser = false
End If
End Function
%>
<HTML>
<HEAD>
<TITLE>Microsoft Chat Web Admin - Logon</TITLE>
<SCRIPT Language="JavaScript">
<!--
var L_SessionTimedOut_Message = "Your session has timed out. If you wish to continue, you will need to log back on.";
<% If urlNewWindow="1" Then %>
alert(L_SessionTimedOut_Message);
<% End If %>
function openNewWindow(fileName,windowName,theWidth,theHeight) {
window.open(fileName,windowName,"toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=1,width="+theWidth+",height="+theHeight)
}
//-->
</SCRIPT>
</HEAD>
<BODY bgcolor=ffffff text=000000 link=000000 vlink=000000>
<% If isSupportedBrowser() Then %>
<form name="logonForm" action="LogonFrm.asp" method="GET">
<input type="hidden" name="newsession" value="true">
<% If urlNewWindow<>"" Then %>
<input type="hidden" name="isnewwindow" value="1">
<% Else %>
<input type="hidden" name="isnewwindow" value="0">
<% End If %>
<table cellpadding=0 cellspacing=0 border=0 width=100% >
<tr>
<td><a href="http://www.microsoft.com/exchange"><img src="chatlogo.gif" width=575 height=74 alt="Microsoft Exchange Chat Service" border=0></a></td>
</tr>
<tr>
<td><font size=4>Web Access Administration<br></font></td>
</tr>
</table>
<br>
<br>
<table cellpadding=0 cellspacing=0 border=0 width=100% >
<tr valign=top>
<td width=2%> </td>
<td width=52%>
<font size=2 color=black>
Version 5.5 <br>
The Chat Web Administrator is a Microsoft®
Exchange Active Server application that allows you to manage channels (rooms),
chat users, and chat server messages from any Web browser.
For more information about Microsoft Exchange Chat Service,
<a href="JavaScript:openNewWindow('<%=bstrVirtRoot%>/help/chatover.htm','inlineHelpWindow',600,500)">click here.</a>
<br><br>
</font>
<br>
<table width=100%>
<tr valign=top>
<td align=center valign=middle>
<a href="http://www.microsoft.com/ie"><img border=0 src="ieget.gif" width=88 height=31 ALT="Microsoft Internet Explorer"></a>
</td>
<td align=center valign=middle>
<a href="http://backoffice.microsoft.com/"><img border=0 src="msbo_iis.gif" width=100 height=31 ALT="Powered by Microsoft products"></a>
</td>
</tr>
</table>
</td>
<td align=center valign=middle>
<INPUT TYPE=submit VALUE="Log On">
</td>
</tr>
</table>
<% Else %>
<table width=100%>
<tr>
<td>
<font size=2>
We're sorry. Microsoft Exchange Chat Service - Web Access Administration
requires a web browser that supports frames and JavaScript, such as Microsoft
Internet Explorer 3.0 or Netscape Navigator 3.0.Click
<a href="http://www.microsoft.com/ie/download">here</a> to download the latest version of
<a href="http://www.microsoft.com/ie"><b>Internet Explorer</b></a> for free at
<a href="http://www.microsoft.com/ie/download"><b>http://www.microsoft.com/ie/download</b></a>.
</font>
</td>
<td width=2%></td>
</tr>
</table>
<% End If %>
</body>
</html>
