<% '==================================================
' Microsoft Server Appliance
'
' Status tab page
'
' Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved.
'==================================================%>
<%
On Error Resume Next
Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
strSourceName = "sakitmsg.dll"
if Err.number <> 0 then
Response.Write "Error in localizing the web content "
Response.End
end if
'-----------------------------------------------------
'START of localization content
Dim L_PAGETITLE_TEXT
Dim L_STATUSLBL_TEXT
Dim L_NOSTATUS_MESSAGE
Dim L_ALERTLBL_TEXT
Dim L_NOALERTS_MESSAGE
Dim L_ALERTDETAILS_MESSAGE
L_PAGETITLE_TEXT = objLocMgr.GetString(strSourceName, "&H4001000C",varReplacementStrings)
L_STATUSLBL_TEXT = objLocMgr.GetString(strSourceName, "&H4001000D",varReplacementStrings)
L_NOSTATUS_MESSAGE = objLocMgr.GetString(strSourceName, "&H4001000E",varReplacementStrings)
L_ALERTLBL_TEXT = objLocMgr.GetString(strSourceName, "&H4001000F",varReplacementStrings)
L_NOALERTS_MESSAGE = objLocMgr.GetString(strSourceName, "&H40010010",varReplacementStrings)
L_ALERTDETAILS_MESSAGE = objLocMgr.GetString(strSourceName, "&H40010011",varReplacementStrings)
'End of localization content
'-----------------------------------------------------
%>
<%=L_PAGETITLE_TEXT%>
<%
ServePageWaterMarkNavIE
ServeTabBar
ServeResources
ServeAlerts
call ServePageWaterMarkEndNavIE( m_VirtualRoot & "images/status_water.gif", m_VirtualRoot & "images/oem_logo.gif", false)
%>
<%
'----------------------------------------------------------------------------
'
' Function : ServeResources
'
' Synopsis : Serves the resources
'
' Arguments: None
'
' Returns : None
'
'----------------------------------------------------------------------------
Function ServeResources
on Error resume next
ServeStandardLabelBar(L_STATUSLBL_TEXT)
ServeElementBlock "RESOURCE", L_NOSTATUS_MESSAGE, True, False, False
End Function
'----------------------------------------------------------------------------
'
' Function : ServeAlerts
'
' Synopsis : Serves the messages
'
' Arguments: None
'
' Returns : None
'
'----------------------------------------------------------------------------
Function ServeAlerts
on Error resume next
ServeStandardLabelBar(L_ALERTLBL_TEXT)
call ServeAlertHTML()
End Function
'----------------------------------------------------------------------------
'
' Function : ServeAlertHTML
'
' Synopsis : Generate HTML for the messages
'
' Arguments: None
'
' Returns : None
'
'----------------------------------------------------------------------------
Sub ServeAlertHTML()
Dim objElement
Dim objElementCol
Dim objAlertElementCol
Dim objAlertElement
Dim objLocMgr
Dim strElementID
Dim strMsg
Dim strAlertURL
Dim strAlertSrc
Dim intCaptionID
Dim arrAlerts()
Dim strViewer
Dim strDefaultViewer
Dim strReturnURL
Dim varReplacementStrings
Dim i, j
Dim blnSameType
On Error Resume Next
%>
<% Err.Clear
Set objElementCol = GetElements("SA_Alerts")
If objElementCol.Count=0 or Err.Number <> 0 Then
Err.Clear %>
<%=L_NOALERTS_MESSAGE%>
<% Else
Set objAlertElementCol = GetElements("AlertDefinitions")
Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
i = 0
blnSameType = True
ReDim arrAlerts(objElementCol.Count, 3)
For Each objElement in objElementCol
strAlertSrc = objElement.GetProperty("AlertLog")
strElementID = strAlertSrc & Hex(objElement.GetProperty("AlertID"))
intCaptionID = 0
strMsg = ""
Err.Clear
Set objAlertElement = objAlertElementCol.Item(strElementID)
If Err <> 0 Then
Set objAlertElement = Nothing
Else
intCaptionID = "&H" & objAlertElement.GetProperty("CaptionRID")
varReplacementStrings = objElement.GetProperty("ReplacementStrings")
strMsg = objLocMgr.GetString(strAlertSrc, intCaptionID, varReplacementStrings)
End If
arrAlerts(i, 0) = strMsg
arrAlerts(i, 1) = objElement.GetProperty("Cookie")
arrAlerts(i, 2) = objElement.GetProperty("AlertType")
arrAlerts(i, 3) = Trim(objAlertElement.GetProperty("URL"))
' adjust alert types for the current display sort order
Select Case arrAlerts(i, 2)
Case 0
arrAlerts(i, 2) = 2
Case 1
arrAlerts(i, 2) = 1
Case 2
arrAlerts(i, 2) = 3
End Select
If i > 0 Then
If arrAlerts(i, 2) <> arrAlerts(i-1, 2) Then
blnSameType = False
End If
End If
i = i + 1
Next
' sort by Type if needed
If Not blnSameType Then
QuickSort arrAlerts, LBound(arrAlerts,1), UBound(arrAlerts,1)-1, 2
End If
strDefaultViewer = m_VirtualRoot & "util/alert_view.asp"
strReturnURL = "/" & GetScriptPath()
For i = 0 To UBound(arrAlerts,1)
strMsg = arrAlerts(i, 0)
If strMsg <> "" Then
If arrAlerts(i, 3) <> "" Then
strViewer = arrAlerts(i, 3)
Else
strViewer = strDefaultViewer
End If
strAlertURL = strViewer & "?Cookie=" & arrAlerts(i, 1) & "&R=" & Rnd & "&ReturnURL=" & strReturnURL
%>
"
Set objLocMgr = Nothing
Set objElement = Nothing
Set objElementCol = Nothing
Set objAlertElement = Nothing
Set objAlertElementCol = Nothing
End Sub
%>