<% @ LANGUAGE=VBSCRIPT CODEPAGE = 1252 %>
<%
CONST L_WindowTitle_Text = "Microsoft Outlook Web Access"
CONST L_ImgAlt_Text = "Microsoft Office Outlook Web Access provided by Microsoft Exchange Server 2003"
CONST sGuid = "{b0f84fec-95ad-4f3e-8fc0-6bc1bbadbf0d}"
g_CurrentLocale = 0
g_sAlign = "LTR"
isMac = True
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 ""
%>
