<% @language = "vbscript" %>
<% call chkLogon %>
<%
Response.ExpiresAbsolute=#May 31,2001 13:30:15#
%>
<% call CreateHeader(alarmRefresh) %>
<% call PageTitle("Alarms", "logo.gif") %>
<% call PageDefaultMenu() %>
<%
Sub StartTable()
myWrite ""
chkWrite "| State | ", stateColumn
chkWrite "Message | ", msgColumn
chkWrite "Type | ", typeColumn
chkWrite "Time | ", timeColumn
chkWrite "Tag | ", tagColumn
end sub
Sub EndTable()
myWrite "
"
end sub
Sub AddRow(state, time, tag, altype, msg)
myWrite ""
select case state
case 0 chkWrite "![]() | ", stateColumn
case 1 chkWrite "![]() | ", stateColumn
case 2 chkWrite "![]() | ", stateColumn
case else chkWrite "< img=""error.gif"" alt=""Error"" /> | ", stateColumn
end select
if mysession.IsValidLevel(ackLevel) and state <> 1 and allowAck then
dim ackInfo
ackInfo = "ack.asp?Tag=" & tag & "&Type="&altype
chkWrite "" & msg &" | ", msgColumn
else
chkWrite "" & msg & " | ", msgColumn
end if
chkWrite "" & altype &" | ", typeColumn
chkWrite "" & FormatDateTime(time, dateFormat) &" | ", timeColumn
chkWrite "" & tag &" | ", tagColumn
myWrite "
"
end Sub
dim alarmItem
dim numitems
numitems = alarms.NumItems
if numitems = 0 then
myWrite "There are no alarms to be listed"
else
StartTable
for i=0 to numitems-1
set alarmItem = alarms.item(i)
call AddRow(alarmItem.State, alarmItem.TimeStamp, alarmItem.Tag, alarmItem.Type, alarmItem.Message)
next
EndTable
end if
%>
<% CreateFooter() %>