Machine type color codes:
<%
' Get machine types with colors for legend
Dim rsLegend, strLegendSQL
strLegendSQL = "SELECT machinetypeid, machinetype FROM machinetypes WHERE machinetypeid < 16 AND isactive = 1 ORDER BY machinetype"
Set rsLegend = objConn.Execute(strLegendSQL)
Do While Not rsLegend.EOF
Dim legendColor
Select Case rsLegend("machinetypeid")
Case 1: legendColor = "#4CAF50" ' CNC
Case 2: legendColor = "#2196F3" ' Grinder
Case 3: legendColor = "#FF9800" ' Lathe
Case 4: legendColor = "#F44336" ' Mill
Case 5: legendColor = "#9C27B0" ' CMM
Case 6: legendColor = "#00BCD4" ' EDM
Case 7: legendColor = "#E91E63" ' Press
Case 8: legendColor = "#607D8B" ' Saw
Case 9: legendColor = "#795548" ' Welder
Case 10: legendColor = "#FF5722" ' Drill
Case 11: legendColor = "#3F51B5" ' Robot
Case 12: legendColor = "#8BC34A" ' Inspection
Case 13: legendColor = "#CDDC39" ' Assembly
Case 14: legendColor = "#FFC107" ' Other
Case 15: legendColor = "#009688" ' Wash
Case Else: legendColor = "#FFC107"
End Select
Response.Write("
")
Response.Write("")
Response.Write("" & Server.HTMLEncode(rsLegend("machinetype")) & "")
Response.Write("
")
rsLegend.MoveNext
Loop
rsLegend.Close
Set rsLegend = Nothing
%>
Tips:
- Hover over markers for details
- Use search to find specific machines
- Filter by BU, type, or status
- Click "View Details" for full information