<% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %>
<%
'== Comments by: Dave Leary/Russell and Herder/Jan 2001
'== This page is a mixture of code from the RH Generated Web Site
'== and the RCC Outlook Webmail Page. Comments will be made
'== throughout for easier troubleshooting and maintenance
'== The following portion of code, up the the html tag, is from Webmail:
%>
<%
'== The vImagesRoot controls the source location of all graphics:
vImagesRoot="Images"
%>
<% 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
%>
Microsoft Outlook Web Access - LogonUntitled Document
