<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Expires = 0%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>Main Page</title>
<%
Dim objElement
Dim objElementCol
Dim objAlertElementCol
Dim objAlertElement
Dim objResourceElementCol
Dim objResourceElement
Dim objLocMgr
Dim strElementID
Dim strText
Dim strAlertLog
Dim varReplacementStrings
Dim objRetriever
Dim objSaHelper
Dim strCurrentIp
Dim strHostName
Dim strCaptions
Dim strDescriptions
Dim strLongDescriptions
Dim intCaptionID
Dim intDescriptionID
Dim intLongDescriptionID
Dim intResourceWidth
Dim strSourceDll
On Error Resume Next
'Reset tasks page settings
Session("Task_CurrentPage") = ""
Session("Task_CurrentTask") = ""
Session("Task_FocusItem") = ""
'Get the hostname and ip address
Set objSaHelper = Server.CreateObject("ServerAppliance.SAHelper")
If Err.Number <> 0 Then
strCurrentIp = "UNKNOWN"
strHostName = "UNKNOWN"
Else
strCurrentIp = objSaHelper.IpAddress
If Err.Number <> 0 Then
strCurrentIp = "UNKNOWN"
End If
strHostName = objSaHelper.HostName
If Err.Number <> 0 Then
strHostName = "UNKNOWN"
End If
End If
Set objSaHelper = Nothing
Err.Clear
'Create elementmgr and get current alerts
Set objRetriever = Server.CreateObject("Elementmgr.ElementRetriever")
If Err.Number = 0 Then
Set objResourceElementCol = objRetriever.GetElements(1, "LOCAL_UI_RESOURCE")
intResourceWidth = 0
If Err.Number = 0 Then
intResourceWidth = objResourceElementCol.Count * 16
End If
Set objElementCol = objRetriever.GetElements(1, "SA_Alerts")
If objElementCol.Count=0 or Err.Number <> 0 Then
Err.Clear
strCaptions = ""
strDescriptions = ""
strLongDescriptions = ""
Else
'get alert definitions
Set objAlertElementCol = objRetriever.GetElements(1,"LocalUIAlertDefinitions")
'create localization manager to get alert strings
Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager")
If (Err.Number <> 0) Then
Err.Clear
strCaptions = ""
strDescriptions = ""
strLongDescriptions = ""
Else
For Each objElement in objElementCol
strAlertLog = objElement.GetProperty("AlertLog")
strElementID = "LocalUIAlertDefinitions" & strAlertLog & Hex(objElement.GetProperty("AlertID"))
strText = ""
Err.Clear
Set objAlertElement = objAlertElementCol.Item(strElementID)
If Err <> 0 Then
Set objAlertElement = Nothing
Else
strSourceDll = objAlertElement.GetProperty("Source")
intCaptionID = "&H" & objAlertElement.GetProperty("CaptionRID")
intDescriptionID = "&H" & objAlertElement.GetProperty("DescriptionRID")
intLongDescriptionID = "&H" & objAlertElement.GetProperty("LongDetailRID")
varReplacementStrings = objElement.GetProperty("ReplacementStrings")
strText = ""
strText = objLocMgr.GetString(strSourceDll, intCaptionID, varReplacementStrings)
If strText<> "" Then
strCaptions = strCaptions & "<option>" & strText
strText = ""
strText = objLocMgr.GetString(strSourceDll, intDescriptionID, varReplacementStrings)
strDescriptions = strDescriptions & "<option>" & strText
strText = ""
strText = objLocMgr.GetString(strSourceDll, intLongDescriptionID, varReplacementStrings)
strLongDescriptions = strLongDescriptions & "<option>" & strText
End If
End If
Next
End If
End If
End If
Set objLocMgr = Nothing
Set objElement = Nothing
Set objElementCol = Nothing
Set objAlertElement = Nothing
Set objAlertElementCol = Nothing
%>
<SCRIPT LANGUAGE="VBScript">
<!--
Option Explicit
public iCurrentPage
public iPageCount
public iFocus
public iTimeOut
Sub window_onload
Dim objKeypad
Dim iAlertCount
Set objKeypad = CreateObject("Ldm.SAKeypadController")
objKeypad.Setkey 0,9,TRUE
objKeypad.Setkey 1,9,FALSE
objKeypad.Setkey 2,37,FALSE
objKeypad.Setkey 3,39,FALSE
objKeypad.Setkey 4,0,FALSE
objKeypad.Setkey 5,13,FALSE
set objKeypad = Nothing
iAlertCount = alerts.length
If PageCount.value <> "" Then
iPageCount = CInt(PageCount.value)
Else
iPageCount = 0
End If
If FocusItem.value <> "" Then
iFocus = CInt(FocusItem.value)
Else
iFocus = 0
End If
If CurrentPage.value <> "" Then
iCurrentPage = CInt(CurrentPage.value)
Else
iCurrentPage = 0
End If
If iAlertCount > 0 Then
'check if all of the alerts fit one page
If iAlertCount = 1 Then
iPageCount = 1
alert1.innertext = alerts.options(0).text
alert1.hRef = "localui_alertview.asp?Description="+longdescriptions.options(0).text
If descriptions.options(0).text <> "" Then
desc1.style.display = ""
desc1.innertext = descriptions.options(0).text
End If
End If
If iAlertCount = 2 Then
If descriptions.options(0).text = "" or descriptions.options(1).text = "" Then
iPageCount = 1
alert1.innertext = alerts.options(0).text
alert1.hRef = "localui_alertview.asp?Description="+longdescriptions.options(0).text
If descriptions.options(0).text <> "" Then
desc1.innertext = descriptions.options(0).text
alert3.innertext = alerts.options(1).text
alert3.hRef = "localui_alertview.asp?Description="+longdescriptions.options(1).text
Else
alert2.innertext = alerts.options(1).text
alert2.hRef = "localui_alertview.asp?Description="+longdescriptions.options(1).text
desc2.innertext = descriptions.options(1).text
End If
End If
End If
If iAlertCount = 3 Then
If descriptions.options(0).text = "" and descriptions.options(1).text = "" and descriptions.options(2).text = "" Then
iPageCount = 1
alert1.innertext = alerts.options(0).text
alert1.hRef = "localui_alertview.asp?Description="+longdescriptions.options(0).text
alert2.innertext = alerts.options(1).text
alert2.hRef = "localui_alertview.asp?Description="+longdescriptions.options(1).text
alert3.innertext = alerts.options(2).text
alert3.hRef = "localui_alertview.asp?Description="+longdescriptions.options(2).text
End If
End If
If iPageCount <> 1 or iAlertCount > 3 Then
iPageCount = iAlertCount
alert1.innertext = alerts.options(iCurrentPage).text
alert1.hRef = "localui_alertview.asp?Description="+longdescriptions.options(iCurrentPage).text
If descriptions.options(iCurrentPage).text <> "" Then
desc1.innertext = descriptions.options(iCurrentPage).text
End If
page.style.display = ""
page.innertext = (iCurrentPage+1)&" of "&(iPageCount)
End If
If iFocus = 0 Then
alert1.focus
End If
If iFocus = 1 Then
alert2.focus
End If
If iFocus = 2 Then
alert3.focus
End If
If iFocus = -1 Then
taskslink.focus
End If
PageCount.value = iPageCount
End If
If iAlertCount = 0 Then
logo.style.display = ""
taskslink.focus
End If
iTimeOut = window.SetTimeOut("TimerSub(1)",5000)
End Sub
Sub TimerSub(iIndex)
if iIndex = 1 then
IpInfo.innertext = "<%=strCurrentIp%>"
iTimeOut = window.SetTimeOut("TimerSub(0)",5000)
else
iTimeOut = window.SetTimeOut("TimerSub(1)",5000)
IpInfo.innertext = "<%=strHostName%>"
end if
End Sub
Sub keydown()
If iPageCount > 1 Then
'right arrow
If window.event.keycode = 39 Then
iCurrentPage = iCurrentPage + 1
if iCurrentPage = iPageCount then
iCurrentPage = 0
End If
desc1.style.display = "none"
alert1.style.display = ""
alert1.innertext = alerts.options(iCurrentPage).text
alert1.hRef = "localui_alertview.asp?Description="+longdescriptions.options(iCurrentPage).text
If descriptions.options(iCurrentPage).text <> "" Then
desc1.style.display = ""
desc1.innertext = descriptions.options(iCurrentPage).text
End If
page.innertext = (iCurrentPage+1)&" of "&(iPageCount)
PageCount.value = iPageCount
CurrentPage.value = iCurrentPage
End If
'left arrow
If window.event.keycode = 37 Then
iCurrentPage = iCurrentPage - 1
if iCurrentPage = -1 then
iCurrentPage = iPageCount-1
End If
desc1.style.display = "none"
alert1.style.display = ""
alert1.innertext = alerts.options(iCurrentPage).text
alert1.hRef = "localui_alertview.asp?Description="+longdescriptions.options(iCurrentPage).text
If descriptions.options(iCurrentPage).text <> "" Then
desc1.style.display = ""
desc1.innertext = descriptions.options(iCurrentPage).text
End If
page.innertext = (iCurrentPage+1)&" of "&(iPageCount)
PageCount.value = iPageCount
CurrentPage.value = iCurrentPage
End If
end if
end sub
Sub ArrowVisible(intIndex)
FocusItem.value = intIndex
If intIndex <> -1 Then
indicator.style.top = intIndex * 12 + 1
indicator.style.display = ""
Else
indicator.style.display = "none"
End If
End Sub
Sub GotoTasksPage()
window.event.returnValue = false
window.navigate "localui_tasks.asp?PageCount="+PageCount.value+"&"+"CurrentPage="+CurrentPage.value+"&"+"FocusItem="+FocusItem.value
End Sub
Sub AlertNotifier_AlertStatusChanged()
window.navigate "localui_main.asp"
End Sub
-->
</SCRIPT>
</head>
<body RIGHTMARGIN=0 LEFTMARGIN=0>
<select id="alerts" STYLE="display:none;">
<%=strCaptions%>
</select>
<select id="descriptions" STYLE="display:none;">
<%=strDescriptions%>
</select>
<select id="longdescriptions" STYLE="display:none;">
<%=strLongDescriptions%>
</select>
<IMG id="logo" STYLE="position:absolute; top:0; left=0; display:none"
SRC="localui_salogo.bmp" BORDER=0>
<IMG id="indicator" STYLE="position:absolute; top:0; left=0; display:none"
SRC="localui_indicator.bmp" BORDER=0>
<A STYLE="position:absolute; top:0; left:10; font-size:10; font-family=arial;"
id="alert1" OnFocus="ArrowVisible(0)" HIDEFOCUS=true onkeydown="keydown">
</A>
<A STYLE="position:absolute; top:12; left:10; font-size:10; font-family=arial;"
id="alert2" OnFocus="ArrowVisible(1)" HIDEFOCUS=true onkeydown="keydown">
</A>
<A STYLE="position:absolute; top:24; left:10; font-size:10; font-family=arial;"
id="alert3" OnFocus="ArrowVisible(2)" HIDEFOCUS=true onkeydown="keydown">
</A>
<A STYLE="position:absolute; top:12; left:10; font-size:10; font-family=arial;"
id="desc1" onkeydown="keydown">
</A>
<A STYLE="position:absolute; top:24; left:10; font-size:10; font-family=arial;"
id="desc2" onkeydown="keydown">
</A>
<A id="IpInfo" STYLE="position:absolute; top:36; left:0; font-size:11; font-family=arial;">
<%=strHostName%>
</A>
<A id="page" STYLE="position:absolute; top:36; right:0; font-size:11; font-family=arial; display:none;">
page info
</A>
<A id="taskslink" href="localui_tasks.asp" onkeydown="keydown" OnFocus="ArrowVisible(-1)" OnClick="GotoTasksPage()">
<IMG STYLE="position:absolute; top:48; right=0;" SRC="localui_satask.bmp" BORDER=0>
</A>
<INPUT TYPE=HIDDEN Name="PageCount" value="<%=Session("Main_PageCount")%>">
<INPUT TYPE=HIDDEN Name="CurrentPage" value="<%=Session("Main_CurrentPage")%>">
<INPUT TYPE=HIDDEN Name="FocusItem" value="<%=Session("Main_FocusItem")%>">
<OBJECT TABINDEX=-1 STYLE="display=none;"
ID="AlertNotifier" CLASSID="CLSID:F9EBACD8-FE51-4dda-9742-E4D666B76C72">
</OBJECT>
<%
If intResourceWidth <> 0 Then
Response.Write "<OBJECT TABINDEX=-1 STYLE=""position:absolute; top:48; left=0;WIDTH=" & intResourceWidth & "; HEIGHT=16;"" "
Response.Write "ID=""ResCtrl"" CLASSID=""CLSID:2FE9659A-53CB-4B06-9416-0276113F3106""></OBJECT>"
End If
%>
</body>
</html>