andler (strFileID) If iTrays >= 0 then bPaperSize = not (rgTrays(SNMP_INTRAY_MEDIA, 0) = "" or rgTrays(SNMP_INTRAY_MEDIA, 0) = " " ) bPaperMedia = (getMedia (rgTrays(SNMP_INTRAY_MEDIA, 0)) <> "") End if 'Get alerts rgAlerts = rgSNMPGetAlerts(objSNMP, objHelper, iDevice, iAlerts) End If %> > <%=Write(L_PageTitle_Text) %> <%=Write(DEF_BASEFONT_TAG)%> <% If Not bRefresh Then Response.Flush bRet = rgSNMPConsole(objSNMP, iDevice, iRow, iColumn, rgConsole, strLang) If Not bRet Then ErrorHandler2 (strFileID) End If Const L_FrontPanelColon_Text = "Front Panel:" Const L_DeviceStatus_Text = "Device Status:" Const L_FrontPanel_Text = "FrontPanel" Const L_RealTimeTitle_Text = "Real time display of the printer front panel" %> <% If IsArray (rgConsole) Then Response.Write(Write("") ) End If %> <% If IsArray (rgConsole) Then strHTML = "" Response.Write( Write(strHTML) ) End If %>
<%=Write(DEF_FONT_TAG & L_DeviceStatus_Text & END_FONT)%> " & DEF_FONT_TAG & L_FrontPanelColon_Text & END_FONT & "
<% =Write(strSnmpStatus(rgState)) %> " &_ "" &_ "
" &_ GenConsoleTable(iRow, iColumn, rgConsole, strLang) &_ "

<% Const L_PaperTrays_Text = "Paper Trays:" %> <%=Write(DEF_FONT_TAG & L_PaperTrays_Text & END_FONT)%>
<% If Not bRefresh Then Response.Flush rgTrays = rgSNMPGetInputTrays(objSNMP, iDevice, iTrays) If Err.Number <> 0 Then ErrorHandler2 (strFileID) If iTrays >= 0 Then bPaperSize = not (rgTrays(SNMP_INTRAY_MEDIA, 0) = "" or rgTrays(SNMP_INTRAY_MEDIA, 0) = " " ) bPaperMedia = (getMedia (rgTrays(SNMP_INTRAY_MEDIA, 0)) <> "") End If End If %> <%=Write(GenTrayTable (bPaperSize, bPaperMedia, iTrays, rgTrays))%>
<% If Not bRefresh Then Response.Flush rgLights = rgSNMPLights(objSNMP, iDevice, iLights) If Err.Number <> 0 Then ErrorHandler2 (strFileID) End If %> <%If iLights >= 0 Then %>
<% const L_ConsoleLights_Text = "Console Lights:" %> <%=Write(DEF_FONT_TAG & L_ConsoleLights_Text & END_FONT)%>
<%=Write(GenLightTable (iLights, rgLights, strId))%>
<% End If%>
<% Const L_DetailedErr_Text = "Detailed Errors and Warnings:" %> <%=Write(DEF_FONT_TAG & L_DetailedErr_Text & END_FONT)%>
<% If Not bRefresh Then Response.Flush 'Get alerts rgAlerts = rgSNMPGetAlerts(objSNMP, objHelper, iDevice, iAlerts) 'If Err.Number <> 0 Then Exit Function End If %> <%=Write(GenAlertTable (iAlerts, rgAlerts, rgTrays))%>
<% objHelper.close %> <% Response.End %>