<% @ ENABLESESSIONSTATE=False LANGUAGE=VBSCRIPT CODEPAGE=1252 %> <% CONST L_LoginButton_Text = "Log On" CONST L_WindowTitle_Text = "Microsoft Outlook Web Access" CONST L_ImgAlt_Text = "Microsoft Office Outlook Web Access provided by Microsoft Exchange Server 2003" CONST L_ShowUITitle_Text = "Client" CONST L_ShowDetail_Text = "what's this?" CONST L_HideDetail_Text = "hide explanation" CONST L_ShowSimpleUI_Text = "Basic" CONST L_ShowComplexUI_Text = "Premium" CONST L_UIDescription_Text = "The premium client provides all Outlook Web Access features." CONST L_UIBasicDescription_Text = "The basic client provides fewer features than the premium client but offers faster performance. Use the basic client if you're on a slow connection." CONST L_ShowTrustTitle_Text = "Security" CONST L_ShowPublicUI_Text = "Public or shared computer" CONST L_ShowTrustedUI_Text = "Private computer" CONST L_PublicDescription_Text = "Select this option if you use Outlook Web Access on a public computer." CONST L_BasicTrustDescription_Text = "Select this option if you are the only person who uses this computer." CONST L_PremiumTrustDescription_Text = "Select this option if you are the only person who uses this computer. Your Exchange server will allow a longer period of inactivity before logging you off." CONST L_TrustWarning_Text = "Warning: By selecting this option you acknowledge that the computer complies with your organization's security policy." CONST L_Password_Text = "Password:" CONST L_UserName_Text = "User name:" CONST L_DialogRelogon_Text = "Your session has expired. Return to the Outlook Web Access logon page, and then log on again." CONST L_DialogCloseButton_Text = "Close Window" CONST L_ExpireWarning_Text = "To protect your account from unauthorized access, Outlook Web Access automatically closes its connection to your mailbox after a period of inactivity. If your session ends, refresh your browser, and then log on again." CONST L_401User_Text = "You could not be logged on to Outlook Web Access. Make sure your user name and password are correct, and then try again." CONST L_LogoffUser_Text = "You have logged off from Outlook Web Access. To log on again, type your user name and password, and then click Log On." CONST L_RelogonUser_Text = "Your session has expired. To continue your work, please re-enter your alias or your e-mail address and password, and then click Log On." CONST L_ErrNoActiveScript1_Text = "Your Web browser is configured not to run script or doesn't support script in Web pages. Check your browser settings, or use a browser that can run script. " CONST L_ErrorClearCerts_Text = "There has been an error removing certificates from this workstation." CONST sGuid = "{57A118C6-2DA9-419d-BE9A-F92B0F9A418B}" CONST sCmpGuid = "{b0f84fec-95ad-4f3e-8fc0-6bc1bbadbf0d}" CONST Scheme_HTTPS = "https://" CONST Scheme_HTTP = "http://" Dim g_CurrentLocale ' Get the current locale of Server ' ' Note: Not all locales (ex FR, GER) use a period for decimal separator ' This causes vbscript errors converting strings to numeric values. ' So conversion from string to numeric should always use the en-us locale ' afterwards the locale is set back to the original value g_CurrentLocale = GetLocale ' default to current system setting on failure to return a valid locale id ' If (IsNull(g_CurrentLocale) Or (g_CurrentLocale = "")) Then g_CurrentLocale = 0 End If dim reasonCode, redirectPath,szSecure,szServer,szScheme reasonCode = Request.QueryString("reason") redirectPath = Request.QueryString("url") redirectPath = Server.HTMLEncode(redirectPath) If redirectPath = "" Then szSecure = Request.ServerVariables("SERVER_PORT_SECURE") szServer = Request.ServerVariables("SERVER_NAME") szScheme = Scheme_HTTPS If szSecure = "0" Then szScheme = Scheme_HTTP End If redirectPath = szScheme & szServer & "/exchange/" End If Dim UserText, UserAgentText, PathInfo UserAgentText = Request.ServerVariables("HTTP_USER_AGENT") PathInfo = Request.ServerVariables("QUERY_STRING") Select Case reasonCode Case "1" UserText = L_LogoffUser_Text Case "2" UserText = L_401User_Text Case "3" UserText = L_RelogonUser_Text Case Else End Select Response.CacheControl = "no-cache" Response.Expires = -1 Dim g_fIsSMimeCapable Dim g_fIsMSIE5Rich Dim g_fIsDialogRedirect Dim g_fTrust Dim g_sAlign Dim g_sOpenParen Dim g_sCloseParen g_fIsSMimeCapable = isSMimeCapable g_fIsMSIE5Rich = isMSIE5Rich g_fIsDialogRedirect = isDialogRedirect ' Variable to turn display of Security on and off ' g_fTrust = True if isRTL Then g_sAlign = "RTL" g_sOpenParen = "‏(" g_sCloseParen= "‏)" Else g_sAlign = "LTR" g_sOpenParen = "‎(" g_sCloseParen= "‎)" End If Public Function isMSIE5Rich On Error Resume Next dim iMSIE, szVer, rgszVer, dblVer isMSIE5Rich = False SetLocale("en-us") iMSIE = InStr(1, UserAgentText, "MSIE") If iMSIE <> 0 Then szVer = Mid(UserAgentText, iMSIE + 5, 5) rgszVer = Split(szVer, ";", 2) dblVer = 0.0 If IsNumeric(rgszVer(0)) Then dblVer = CDbl(rgszVer(0)) End If If dblVer > 5.0 And InStr(1, UserAgentText, "Windows CE") = 0 And _ (InStr(1, UserAgentText, "OMAXML") <> 0 Or _ (InStr(1, UserAgentText, "Win") <> 0 And ( _ InStr(1, UserAgentText, "NT") <> 0 Or _ InStr(1, UserAgentText, "2000") <> 0 Or _ InStr(1, UserAgentText, "98") <> 0 Or _ InStr(1, UserAgentText, "95") <> 0 ))) Then If Err.Number = 0 Then isMSIE5Rich = True End If End If End If SetLocale(g_CurrentLocale) If Err.Number <> 0 Then Err.Clear End If End Function Public Function isDialogRedirect If((InStr(1,LCase(PathInfo),"%3fcmd=dialog")<>0) _ Or (InStr(1,LCase(PathInfo),"%3fcmd=spellcheck")<>0) _ Or ((InStr(1,LCase(PathInfo),"%3fcmd=junkemailoptions")<>0) And g_fIsMSIE5Rich) _ Or (InStr(1,LCase(PathInfo),"%3fcmd=editrule")<>0)) Then isDialogRedirect = True Else isDialogRedirect = False End If End Function Public Function isSMimeCapable On Error Resume Next isSMimeCapable = false Dim re, matches SetLocale("en-us") Set re = new regexp 'Create the RegExp object re.Pattern = "MSIE \d+.\d+" Set matches = re.Execute(UserAgentText) If matches.Count <> 0 Then match = matches.Item(0) re.Pattern = "\d+.\d+" Set matches = re.Execute(match) If matches.Count <> 0 Then If IsNumeric(matches.Item(0)) Then Dim fCapable fCapable = (CDbl(matches.Item(0)) >= 6.0) If Err.Number = 0 Then isSMimeCapable = fCapable End If End If End If End If SetLocale(g_CurrentLocale) If Err.Number <> 0 Then Err.Clear End If End Function Public Function isRTL Dim strAcceptLang, arLanguages strAcceptLang = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") arLanguages = Split(strAcceptLang, ",", 1, 1) ' If array is empty - no accept language is specified If (UBound(arLanguages) = -1) Then isRTL = False Exit Function End If If (InStr(1, LCase(arLanguages(0)), "ar") = 1) Or _ (InStr(1, LCase(arLanguages(0)), "he") = 1) Then isRTL = True Else isRTL = False End If End Function Public Function GetMimeAttribs GetMimeAttribs = "" If g_fIsSMimeCapable Then GetMimeAttribs = "xmlns:MSIE xmlns:MIME" End If End Function Public Function GetDLGZIPVal On Error Resume Next GetDLGZIPVal = "0" SetLocale("en-us") If ( (InStr(UserAgentText, "MSIE") = 0) And InStr(UserAgentText, "Mozilla") ) Then 'its a Netscape-compatible browser If InStr(UserAgentText, "compatible;") = 0 Then 'its probably a Netscape browser dim intVersion If IsNumeric( Mid( UserAgentText, InStr( UserAgentText, "/" ) + 1, 1 ) ) Then intVersion = CInt(Mid(UserAgentText, InStr(UserAgentText, "/") + 1, 1)) If Err.Number = 0 Then If intVersion < 5 Then GetDLGZIPVal = "2" End If End If End If End If End If SetLocale(g_CurrentLocale) If Err.Number <> 0 Then Err.Clear End If End Function %> <% Response.Write "" %> <%=L_WindowTitle_Text %> <% If g_fIsDialogRedirect Then %> <% End If %> <% If (g_fIsMSIE5Rich And (g_fIsDialogRedirect = False)) Then %> <% End If ' check for (g_fIsMSIE5Rich And g_fIsDialogRedirect) ' If logoff and IE 6+ If ((1 = reasonCode) And g_fIsSMimeCapable) Then Response.Write "" & _ "" & _ "" & _ "" & _ "" End If %> <% If g_fIsDialogRedirect Then %>
 

<%=L_DialogRelogon_Text %>


 
<% Else %> <% If g_fIsMSIE5Rich Then %>
<% Else %> <% End If %>
     
 
<% If g_fIsMSIE5Rich Then Response.Write "" Else Response.Write "" End If %>
 
<% If isRTL Then %> <%=L_ImgAlt_Text %> <% Else %> <%=L_ImgAlt_Text %> <% End If %>
<% If isRTL Then %> <% If "" <> UserText Then %> <% End If %> <% Else %> <% If "" <> UserText Then %> <% End If %> <% End If %> " End If End If %>
 
 

<%=UserText %>

  
  
 

<%=UserText %>

 
  
  
<% If g_fIsMSIE5Rich Then If (isRTL = False) Then Response.Write "" Response.Write "" Else Response.Write "" End If End If If g_fTrust Then Response.Write "" Else Response.Write "" Response.Write "

       

 " Response.Write "" Response.Write "
" & L_ShowUITitle_Text & " " Response.Write "(" & L_ShowDetail_Text & "" Response.Write "" & L_HideDetail_Text & ")
" Response.Write "
 " & L_UIDescription_Text & "
" Response.Write "
 " & L_UIBasicDescription_Text & "
 " Response.Write "" Response.Write "
" & L_ShowTrustTitle_Text & " " If g_fIsMSIE5Rich Then Response.Write g_sOpenParen & "" & L_ShowDetail_Text & "" Response.Write "" & L_HideDetail_Text & "" & g_sCloseParen & "
" Response.Write "
 " & L_PublicDescription_Text & "
" Response.Write "" Response.Write "
 " & L_PremiumTrustDescription_Text & "
 " & L_TrustWarning_Text & "
" Response.Write "
 " & L_PublicDescription_Text & "
" Response.Write "" Response.Write "
 " & L_BasicTrustDescription_Text & "
 " & L_TrustWarning_Text & "
 

<%=L_ExpireWarning_Text %>
        <% If g_fIsMSIE5Rich Then Response.Write "" End If If ((1 = reasonCode) And g_fIsSMimeCapable) Then Response.Write "" End If %> <% End If %>