<% If zabbixConnected <> "1" Then ' Show error details If zabbixConnected = "" Then Response.Write("") Else Response.Write("") End If ElseIf suppliesJSON = "" Or IsNull(suppliesJSON) Then Response.Write("") Else ' Parse the JSON data for all supply items Dim itemStart, itemEnd, itemBlock, itemName, itemValue Dim namePos, nameStart, nameEnd, valuePos, valueStart, valueEnd Dim currentPos, hasData hasData = False ' Declare loop variables outside the loop to avoid "Name redefined" error Dim numericValue, progressClass, displayValue, isWaste ' Find all items with "Level" in the name (toner, ink, drums, maintenance kits, etc.) currentPos = 1 Do While currentPos > 0 itemStart = InStr(currentPos, suppliesJSON, "{""itemid""") If itemStart = 0 Then Exit Do itemEnd = InStr(itemStart + 1, suppliesJSON, "},") If itemEnd = 0 Then itemEnd = InStr(itemStart + 1, suppliesJSON, "}]") End If If itemEnd = 0 Then Exit Do itemBlock = Mid(suppliesJSON, itemStart, itemEnd - itemStart + 1) ' Extract name namePos = InStr(itemBlock, """name"":""") If namePos > 0 Then nameStart = namePos + 8 nameEnd = InStr(nameStart, itemBlock, """") itemName = Mid(itemBlock, nameStart, nameEnd - nameStart) Else itemName = "" End If ' Only process items with "Level" in the name If InStr(1, itemName, "Level", 1) > 0 Then ' Extract value (lastvalue) valuePos = InStr(itemBlock, """lastvalue"":""") If valuePos > 0 Then valueStart = valuePos + 13 valueEnd = InStr(valueStart, itemBlock, """") itemValue = Mid(itemBlock, valueStart, valueEnd - valueStart) ' Try to convert to numeric On Error Resume Next numericValue = CDbl(itemValue) If Err.Number = 0 Then ' Check if this is a waste cartridge (invert the logic) isWaste = (InStr(1, itemName, "Waste", 1) > 0) If isWaste Then ' For waste cartridges: 0 = OK (100% capacity), 1 = Replace (0% capacity) ' If binary (0 or 1), convert to percentage first If numericValue <= 1 Then ' Binary value: 0 or 1 displayValue = 100 - (numericValue * 100) Else ' Percentage value: invert it displayValue = 100 - numericValue End If ' Color logic for waste capacity If displayValue < 10 Then progressClass = "bg-danger" ' Red for critical (< 10% capacity remaining) ElseIf displayValue < 25 Then progressClass = "bg-warning" ' Yellow for low (< 25% capacity remaining) Else progressClass = "bg-success" ' Green for good (>= 25% capacity remaining) End If Else ' Normal supplies: show value as-is displayValue = numericValue ' Normal color logic If numericValue < 10 Then progressClass = "bg-danger" ' Red for critical (< 10%) ElseIf numericValue < 25 Then progressClass = "bg-warning" ' Yellow for low (< 25%) Else progressClass = "bg-success" ' Green for good (>= 25%) End If End If ' Display supply level with progress bar Response.Write("") hasData = True End If Err.Clear On Error Goto 0 End If End If currentPos = itemEnd + 1 Loop If Not hasData Then Response.Write("") End If End If %>