<% theme = Request.Cookies("theme") IF theme = "" THEN theme="bg-theme1" END IF %>
Add Machine
Back
Machine Number
*
Unique identifier for this machine
Model
*
-- Select Model --
<% Dim strSQL, rsModels strSQL = "SELECT models.*, vendors.vendor FROM models " &_ "INNER JOIN vendors ON models.vendorid = vendors.vendorid " &_ "WHERE vendors.ismachine = 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 Model
Model Number
*
Vendor
*
-- Select Vendor --
<% Dim rsVendors strSQL = "SELECT * FROM vendors WHERE ismachine = 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
*
Image Filename (Optional)
Filename of image in images/machines/
Function/Type
*
-- Select Function --
<% Dim rsTypes strSQL = "SELECT * FROM machinetypes WHERE isactive = 1 ORDER BY machinetype ASC" Set rsTypes = objconn.Execute(strSQL) While Not rsTypes.EOF Response.Write("
" & Server.HTMLEncode(rsTypes("machinetype")) & "
") rsTypes.MoveNext Wend rsTypes.Close Set rsTypes = Nothing %>
+ Add New Machine Type
New
What this machine does (e.g., CNC, Mill, Lathe)
New Machine Type
Machine Type Name
*
Description (Optional)
Functional Account
*
-- Select Functional Account --
<% Dim rsFuncAccts strSQL = "SELECT * FROM functionalaccounts WHERE isactive = 1 ORDER BY functionalaccount ASC" Set rsFuncAccts = objconn.Execute(strSQL) While Not rsFuncAccts.EOF Response.Write("
" & Server.HTMLEncode(rsFuncAccts("functionalaccount")) & "
") rsFuncAccts.MoveNext Wend rsFuncAccts.Close Set rsFuncAccts = Nothing %>
+ Add New Functional Account
New
For billing purposes
New Functional Account
Functional Account Name
*
Business Unit
*
-- Select BU --
<% Dim rsBU strSQL = "SELECT * FROM businessunits WHERE isactive = 1 ORDER BY businessunit ASC" Set rsBU = objconn.Execute(strSQL) While Not rsBU.EOF Response.Write("
" & Server.HTMLEncode(rsBU("businessunit")) & "
") rsBU.MoveNext Wend rsBU.Close Set rsBU = Nothing %>
+ Add New Business Unit
New
New Business Unit
Business Unit Name
*
Alias (Optional)
Notes (Optional)
Scan PC Serial Number (Optional)
Scan the PC serial number to auto-select from dropdown below
Associated PC (Optional)
-- Select PC --
<% Dim rsPCs strSQL = "SELECT pcid, hostname, serialnumber FROM pc WHERE isactive = 1 AND (machinenumber IS NULL OR machinenumber = '') ORDER BY hostname ASC" Set rsPCs = objconn.Execute(strSQL) While Not rsPCs.EOF Dim pcDisplay pcDisplay = "" If NOT IsNull(rsPCs("hostname")) AND rsPCs("hostname") <> "" Then pcDisplay = rsPCs("hostname") If NOT IsNull(rsPCs("serialnumber")) AND rsPCs("serialnumber") <> "" Then pcDisplay = pcDisplay & " (" & rsPCs("serialnumber") & ")" End If ElseIf NOT IsNull(rsPCs("serialnumber")) AND rsPCs("serialnumber") <> "" Then pcDisplay = rsPCs("serialnumber") Else pcDisplay = "PC ID: " & rsPCs("pcid") End If Response.Write("
" & Server.HTMLEncode(pcDisplay) & "
") rsPCs.MoveNext Wend rsPCs.Close Set rsPCs = Nothing %>
Or manually select a PC to link to this machine
Location (Optional)
Map X:
Map Y:
Select Location on Map
Add Machine
Cancel
Select Machine Location
×
Click on the map to select a location
Cancel
Confirm Location