<% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %>
<!-- #include file='constant.inc' -->
<!-- #include file='lib/session.inc'-->
<% SendHeader 0, 1 %>
<%
'Microsoft Outlook Web Access
'Logon.asp
'Copyright (c) Microsoft Corporation 1993-1997. All rights reserved.
urlNewWindow = Request.QueryString("newwindow")
set objRenderApp = Application( bstrRenderApp )
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 Outlook Web Access - Logon</TITLE>
<SCRIPT Language="JavaScript">
<!--
var L_strMailboxPlease_Message = "Please type in your Mailbox Name.";
var L_strValidMailbox_Message = "Mailbox name contains invalid characters.";
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 sendForm(bAnon) {
if (!bAnon)
{
if (document.logonForm.mailbox.value=="")
{
alert(L_strMailboxPlease_Message )
}
else if (((document.logonForm.mailbox.value.indexOf("\\") != -1) ||
(document.logonForm.mailbox.value.indexOf("/") != -1)) ||
(document.logonForm.mailbox.value.indexOf(";") != -1))
{
alert(L_strValidMailbox_Message)
}
else
{
document.logonForm.submit();
}
}
else
{
document.logonForm.mailbox.value="";
document.logonForm.submit();
}
}
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 background="back.jpg" bgcolor="#ffff99" text="#000000" link="#000000" vlink="#000000">
<TABLE CELLSPACING="0" CELLPADDING="0" BORDER="0">
<TR><TD VALIGN=TOP ROWSPAN="2">
<A HREF="http://www.microsoft.com/outlook" ALT="Microsoft Outlook">
<IMG SRC="part1.gif" ALIGN=LEFT HSPACE=0 VSPACE=0 BORDER=0 WIDTH=273 HEIGHT=188 ALT="Microsoft Outlook">
</A>
</TD><TD VALIGN=TOP>
<A HREF="http://www.microsoft.com/outlook" ALT="Microsoft Outlook">
<IMG SRC="part2.gif" ALIGN=LEFT HSPACE=0 VSPACE=0 BORDER=0 WIDTH=296 HEIGHT=169 ALT="Microsoft Outlook">
</A>
</TD></TR>
<TR><TD>for Microsoft (R) Exchange Server</TD></TR>
</TABLE>
<% if isSupportedBrowser() then %>
<form name="logonForm" action="LogonFrm.asp" method="GET" onSubmit="sendForm(false);return(false);">
<% 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 valign=top>
<td width=2% rowspan=2> </td>
<td width=52% colspan=2 rowspan=2>
<font <%=bstrFace%> size=2 color=black>
Version 5.5 SP1<br>
<!-- 2232.5 -->
Microsoft (R) Outlook (TM) Web Access is
a Microsoft Exchange Active Server Application
that gives you private access to your Microsoft Outlook or Microsoft Exchange personal e-mail
account so that you can view your Inbox from any Web Browser. It also allows you to view
Exchange server public folders and the Address Book from the World Wide Web.
Anyone can post messages anonymously to public folders or search for users in the
Address Book. For more information about this Outlook product, <a href="JavaScript:openNewWindow('<%=bstrVirtRoot%>/help/welcome.htm','inlineHelpWindow',600,500)">click here.</a>
</font>
<br>
<table width=100%>
<tr valign=top>
<td align=center valign=middle>
<a href="http://www.microsoft.com/ie"><img border=0 src="msie.gif" width=88 height=31 ALT="Microsoft Internet Explorer"></a>
</td>
<td align=center valign=middle>
<a href="http://www.microsoft.com/products"><img border=0 src="msprod.gif" width=88 height=31 ALT="Powered by Microsoft products"></a>
</td>
</tr>
<br>
</table>
</td>
<td width=2% rowspan=2> </td>
<td align=right width=24%>
<font <%=bstrFace%> size=4><b>Log On </b></font>
</td><td align=left width=24%>
<INPUT TYPE=text NAME=mailbox VALUE="" MAXLENGTH=60 SIZE=20>
<br><font <%=bstrFace%> size=2>
Exchange Users Only:<br> Type your alias and then <a href="JavaScript:sendForm(false)">
click here</a> to connect to your personal e-mail account.<br> <br>
</font>
</td>
<td width=2% rowspan=2> </td>
</tr>
<tr valign=top>
<td align=right width=24%>
<font <%=bstrFace%> size=4><b>Public Access </b></font>
</td><td align=left width=24%>
<font size=2><a href="JavaScript:sendForm(true)">Click here</a> to:<br>
browse Public Folders,
find names in the Address Book,
and post messages anonymously. </font>
</td>
</tr>
<tr>
<td width=2%></td>
</tr>
</table>
<script language="JavaScript">
document.logonForm.mailbox.focus()
</script>
</form>
<table width=100%>
<tr>
<% Else %>
<td>
<font <%=bstrFace%> size=2>We're sorry. Microsoft (R) Outlook (TM) Web Access 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>.
</td>
<% End If %>
<td rowspan=2 width=2%></td>
</tr>
</table>
<%Set objRenderApp = Nothing%>
</body>
</html>
