<% @ ENABLESESSIONSTATE=False LANGUAGE=VBSCRIPT CODEPAGE=1252 %>
<% CONST L_LoginButton_Text = "Hasi saioa"
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 = "Bezeroa"
CONST L_ShowDetail_Text = "zer da hau?"
CONST L_HideDetail_Text = "ezkutatu azalpena"
CONST L_ShowSimpleUI_Text = "Oinarrizkoa"
CONST L_ShowComplexUI_Text = "Berezia"
CONST L_UIDescription_Text = "Bezero Bereziak Outlook Web Access-en eginbide guztiak eskaintzen ditu."
CONST L_UIBasicDescription_Text = "Oinarrizko bezeroak bezero Bereziak baino eginbide gutxiagoeskaintzen ditu, baina performantzia bizkorragoa. Erabili Oinarrizkobezeroa konexio motela baduzu."
CONST L_ShowTrustTitle_Text = "Segurtasuna"
CONST L_ShowPublicUI_Text = "Ordenagailu publikoa edo konpartitua"
CONST L_ShowTrustedUI_Text = "Ordenadore pribatua"
CONST L_PublicDescription_Text = "Hautatu aukera hau Outlook Web Access ordenagailu publiko batean erabiltzen baduzu."
CONST L_BasicTrustDescription_Text = "Hautatu aukera hau ordenagailua zuk bakarrik erabiltzen baduzu."
CONST L_PremiumTrustDescription_Text = "Hautatu aukera hau ordenagailua zuk bakarrik erabiltzen baduzu. Exchange zerbitzaria denbora gehiago egongo ahal izango da inaktibo saioa amaitu aurretik."
CONST L_TrustWarning_Text = "Abisua: Aukera hau hautatuz gero, ordenagailuak zure erakundearen segurtasun-gidalerroak betetzen dituela onartuko duzu."
CONST L_Password_Text = "Pasahitza:"
CONST L_UserName_Text = "Erabiltzaile-izena:"
CONST L_DialogRelogon_Text = "Saioa iraungi da. Itzuli Outlook Web Access-en saio-hasierako orrialdera, eta hasi berriro saioa."
CONST L_DialogCloseButton_Text = "Itxi leihoa"
CONST L_ExpireWarning_Text = "Zure kontuan inor sar ez dadin baimenik gabe, Outlook Web Access-ek itxi egiten du zure postontziarekiko konexioa, denbora batez inaktibo egoten zarenean. Saioa amaitzen bada, freskatu arakatzailea eta hasi berriz."
CONST L_401User_Text = "Ezin izan da saioa hasi Outlook Web Access-en. Ziurtatu erabiltzaile-izena eta pasahitza ondo daudela, eta saiatu berriro."
CONST L_LogoffUser_Text = "Outlook Web Access-en saioa amaitu da. Berriro hasteko, idatzi erabiltzaile-izena eta pasahitza, eta egin klik Hasi saioa botoian."
CONST L_RelogonUser_Text = "Sesioaren bukaera. Lanarekin jarraitzeko, sesioa berriro hasi. Erabiltzaile eta pasa-hitza idatzi eta ondoren klik egin Hasi saioa"
CONST L_ErrNoActiveScript1_Text = "Zure Web arakatzailea script-ak ez exekutatzeko konfiguratuta dago edo ez ditu web orrietako script-ak onartzen. Begiratu arakatzailearen ezarpenei, edo erabili script-ak exekutatzen dituen arakatzaile bat."
CONST L_ErrorClearCerts_Text = "Errore bat gertatu da lan-estazio honetatik ziurtagiriak kentzean."
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 %>
<% End If %>