<% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %>
<% CONST L_Warning_Text = "Saioa amaitzeko eta beste erabiltzaileei zure postontzia irekitzea eragozteko, itxi arakatzailearen leiho guztiak eta irten arakatzailearen aplikaziotik."
CONST L_WarningIE6sp1_Text = "Saioa amaitu duzu."
CONST L_CloseButton_Text = "Itxi"
CONST L_WindowTitle_Text = "Microsoft Outlook Web Access - Saio-amaiera"
CONST L_CloseButtonHelp_Text = "Egin klik hemen leihoa ixteko"
CONST L_ErrorClearCerts_Text = "Errore bat gertatu da lan-estazio honetatik ziurtagiriak kentzean."
CONST L_ImgAlt_Text = "Microsoft Office Outlook Web Access provided by Microsoft Exchange Server 2003"
CONST sGuid = "{b0f84fec-95ad-4f3e-8fc0-6bc1bbadbf0d}"
Dim g_UserAgentText
Dim g_fIsMSIE5Rich
Dim g_sAlign
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
g_UserAgentText = Request.ServerVariables("HTTP_USER_AGENT")
g_fIsMSIE5Rich = isMSIE5Rich
If isRTL Then
g_sAlign = "RTL"
Else
g_sAlign = "LTR"
End If
Public Function isMac
dim br
br = g_UserAgentText
If (InStr(br, "Mac") = 0) Then
isMac = True
Else
isMac = False
End If
End Function
Public Function isMSIE5Rich
On Error Resume Next
dim iMSIE, szVer, rgszVer, dblVer
isMSIE5Rich = False
SetLocale("en-us")
iMSIE = InStr(1, g_UserAgentText, "MSIE")
If iMSIE <> 0 Then
szVer = Mid(g_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, g_UserAgentText, "Windows CE") = 0 And _
(InStr(1, g_UserAgentText, "OMAXML") <> 0 Or _
(InStr(1, g_UserAgentText, "Win") <> 0 And ( _
InStr(1, g_UserAgentText, "NT") <> 0 Or _
InStr(1, g_UserAgentText, "2000") <> 0 Or _
InStr(1, g_UserAgentText, "98") <> 0 Or _
InStr(1, g_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 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 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(g_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 GetMimeAttribs
GetMimeAttribs = ""
If (isSMimeCapable = True) Then
GetMimeAttribs = "xmlns:MSIE xmlns:MIME"
End If
End Function
%>
<%
Response.Write ""
%>
<%=L_WindowTitle_Text %>
<% If isSMimeCapable Then %>
<% End If ' end isSMimeCapable %>
<% If g_fIsMSIE5Rich Then %>
<% Else %>
<% End If %>