<% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %>
<% 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, you're supported
if IsNumeric(szVersion) then
if CInt(szVersion) >= 3 then
isSupportedBrowser = true
else
isSupportedBrowser = false
End If
Else
isSupportedBrowser = false
End If
End Function
%>
PUT YOUR TITLE HERE!!! Outlook Web Access - Logon
<% if isSupportedBrowser() then %>