% @ 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, 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 %>
|
||
|
Indiana Farmers Mutual
Insurance Group |
|
|
<%=bstrFace%>We're sorry. Microsoft (R) Outlook (TM) Web Access requires a web browser that supports frames and JavaScript, such as Microsoft Internet Explorer 5.0 or later versions. Click here to download the latest version of Internet Explorer for free at http://www.microsoft.com/windows/ie/default.asp. |
<% End If %>
|
|
|