<html>
<head>
<style TYPE="text/css">
a:hover { color:#3030c0; }
</style>
<link HREF="PCHealth.css" REL="STYLESHEET" TYPE="text/css">
</head>
<body bgcolor="#eee5e0" text="black" link="black" vlink="black" alink="gray">
<basefont face="Verdana" size="2">
<P>
<span class="Description">You may check the status of the following incidents.</span>
<br>
<br>
<b><font size="4">Check Status</P></font></B>
<ul>
<script language=VBScript>
Dim sHTML, VendorID, ProductID
Dim x
'set x = Window.External.Channels
set x = CreateObject("SAF.SAFReg.1")
Stop
x.MoveFirst
do while not x.EOF
On Error Resume Next
Err.Number = 0
VendorID = x.VendorID
ProductID = x.ProductID
'set y = Window.External.CreateObject_Channel(VendorID, ProductID)
set xAPI = CreateObject("SAF.SAFAPI")
set y = xAPI.GetChannel(VendorID, ProductID)
set z = y.Incidents(2)
If Err.Number Then
MsgBox "Init failed: " & Err.Description
End If
if Err.Number = 0 Then
set z = y.Incidents(2)
if z Then
if z.Count Then
' sort
Dim i
Dim oTemp
Redim oTemp(z.Count)
i = 0
For Each oItem in z
set oTemp(i) = oItem
i = i+1
Next
' sort here
For i=0 to z.Count-2
For j=i+1 to z.Count-1
if oTemp(i).CreationTime < oTemp(j).CreationTime Then
Dim ooT
set ooT = oTemp(i)
set oTemp(i) = oTemp(j)
set oTemp(j) = ooT
End If
Next
Next
' output
For i=0 to z.Count-1
sHTML = "<li>" & oTemp(i).CreationTime & " <b><A href=""" _
& oTemp(i).URL & """>" & oTemp(i).DisplayString & "</a></b><br>"
document.write sHTML
set oTemp(i) = Nothing
Next
End If
end if
set z = Nothing
else
MsgBox Err.Description
End if
set y = Nothing
x.MoveNext
loop
set x = Nothing
</script>
</ul>
View information concerning <A href="status_h.htm"><b>resolved incidents</b></a>.
</body>