<% theme = Request.Cookies("theme") IF theme = "" THEN theme="bg-theme1" END IF %>
Add Printer
Back to Printers
Model
*
-- Select Printer Model --
<% Dim strSQL, rsModels strSQL = "SELECT models.*, vendors.vendor FROM models " &_ "INNER JOIN vendors ON models.vendorid = vendors.vendorid " &_ "WHERE vendors.isprinter = 1 AND models.isactive = 1 " &_ "ORDER BY vendors.vendor ASC, models.modelnumber ASC" Set rsModels = objconn.Execute(strSQL) While Not rsModels.EOF Response.Write("
" & Server.HTMLEncode(rsModels("vendor") & " - " & rsModels("modelnumber")) & "
") rsModels.MoveNext Wend rsModels.Close Set rsModels = Nothing %>
+ Add New Model
New
New Printer Model
Model Number
*
Vendor
*
-- Select Vendor --
<% Dim rsVendors strSQL = "SELECT vendorid, vendor FROM vendors WHERE isprinter = 1 AND isactive = 1 ORDER BY vendor ASC" Set rsVendors = objConn.Execute(strSQL) While Not rsVendors.EOF Response.Write("
" & Server.HTMLEncode(rsVendors("vendor")) & "
") rsVendors.MoveNext Wend rsVendors.Close Set rsVendors = Nothing %>
+ Add New Vendor
New
New Vendor
Vendor Name
*
Cancel
Model Notes
Documentation Path
Cancel
Serial Number
*
IP Address
*
Must be a valid IPv4 address
FQDN (Optional)
Windows Name
*
CSF Name (Optional)
PIN (Optional)
Printer PIN code (leading zeros are preserved)
Associated Machine
(Optional)
-- None --
<% Dim rsMachines, displayText ' Get all active machines strSQL = "SELECT machineid, machinenumber, alias FROM machines WHERE isactive = 1 ORDER BY COALESCE(alias, machinenumber) ASC" Set rsMachines = objconn.Execute(strSQL) While Not rsMachines.EOF displayText = "" ' Build display text: prefer alias, fallback to machinenumber If NOT IsNull(rsMachines("alias")) AND Trim(rsMachines("alias") & "") <> "" Then If NOT IsNull(rsMachines("machinenumber")) AND Trim(rsMachines("machinenumber") & "") <> "" Then displayText = Trim(rsMachines("machinenumber") & "") & " (" & Trim(rsMachines("alias") & "") & ")" Else displayText = Trim(rsMachines("alias") & "") End If ElseIf NOT IsNull(rsMachines("machinenumber")) AND Trim(rsMachines("machinenumber") & "") <> "" Then displayText = Trim(rsMachines("machinenumber") & "") End If ' Only output if we have display text If displayText <> "" Then Dim machineAlias, machineNum machineAlias = Trim(rsMachines("alias") & "") machineNum = Trim(rsMachines("machinenumber") & "") Response.Write("
" & Server.HTMLEncode(displayText) & "
") End If rsMachines.MoveNext Wend rsMachines.Close Set rsMachines = Nothing %>
Optional: Associate with a machine/location. Otherwise, use map coordinates below.
Map Location
Select Location on Map
Current position: X=50, Y=50 (default)
Specify the exact position of this printer on the shop floor map
Add Printer
Cancel
Select Printer Location
×
Click on the map to select a location
Cancel
Confirm Location