UPS Status

<% Do While Not RS.EOF %> =dboldUPS Then Response.write("bgcolor=""#FFFF00"" ") ElseIf RS("battery_capacity") < 80 Then Response.write("bgcolor=""#FFFFC0"" ") End If %> > <% RS.Movenext Loop %>

UPS		Last DB write	Output		Battery		Input	Status
			Load	Status	Capacity	Run Time remaining	Status
<%=ups_long_name%>	<%=CStr(RS("ups_name"))%>	<% If CDbl(RS("ddif"))" & CStr(RS("ddate")) & "") Else Response.write("" & CStr(RS("ddate")) & "") End If %>	<%=RS("output_load")%>	><%=RS("output_status")%>	><%=RS("battery_capacity")%>	><%=RS("run_time_remaining")%>	<%=RS("battery_status")%>	<%=RS("status")%>

<% Set RS=nothing Set Cmd=nothing ' ' Traps ' Set Cmd = Server.CreateObject("ADODB.Command") Cmd.ActiveConnection = Connection SQLStmt = " select to_char(logdate,'MM/DD/YYYY HH24:MI:SS') ldate,ups_name,trap_status stat from phoffline.ups_traps " ' SQLStmt = SQLStmt & " where logdate between to_date( ? ,'MM/DD/YYYY HH24:MI:SS')-1 and to_date( ? ,'MM/DD/YYYY HH24:MI:SS') and trap_code not in (17,10,44,0) " SQLStmt = SQLStmt & " where logdate between to_date( ? ,'MM/DD/YYYY HH24:MI:SS')-1 and to_date( ? ,'MM/DD/YYYY HH24:MI:SS') and trap_code not in (0,10) " SQLStmt = SQLStmt & " order by logdate desc " ' response.write(SQLStmt) Cmd.CommandText = SQLStmt Cmd.CommandType = 1 for i=0 To 1 Set prm = cmd.CreateParameter("Input" & CStr(i),adBSTR,adParamInput,20,timedate) Cmd.Parameters.Append prm Set prm=nothing Next Set RS = Cmd.Execute() Do While Not RS.EOF ups=CStr(RS("ups_name")) ldate=CStr(RS("ldate")) trap_text = CStr(RS("stat")) %> <% ' Response.Write( ldate & " " & ups_long_name & "(" & ups & ") " & trap_text & "
") RS.Movenext Loop %>

Trap Date	UPS		Trap Text
<%=ldate%>	<%=ups_long_name%>	<%=ups%>	<%=trap_text%>

UPS Alarms (last 24 hours)