<% theme = Request.Cookies("theme") IF theme = "" THEN theme="bg-theme1" END IF %>
Add Model
Back
Model Number
*
Manufacturer
*
-- Select Manufacturer --
<% Dim strSQL, rsVendors strSQL = "SELECT * FROM vendors WHERE 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 Manufacturer
New
New Manufacturer
Manufacturer Name
This manufacturer makes:
Printers
PCs/Computers
Machines/Equipment
Cancel
This model is for:
Select at least one category
Printer
PC/Computer
Machine/Equipment/Network Device
Machine/Device Type
-- Select Type --
<% Dim rsMachineTypes, strMTSQL strMTSQL = "SELECT machinetypeid, machinetype, " & _ "CASE " & _ " WHEN machinetypeid BETWEEN 1 AND 15 OR machinetypeid BETWEEN 21 AND 25 OR machinetypeid = 45 OR machinetypeid = 47 THEN 'Equipment' " & _ " WHEN machinetypeid BETWEEN 16 AND 20 OR machinetypeid = 46 THEN 'Network' " & _ " ELSE 'Other' " & _ "END AS category " & _ "FROM machinetypes WHERE isactive = 1 AND machinetypeid NOT IN (1, 33, 44) ORDER BY category, machinetype ASC" Set rsMachineTypes = objconn.Execute(strMTSQL) Dim lastCategory lastCategory = "" While Not rsMachineTypes.EOF If rsMachineTypes("category") & "" <> lastCategory Then If lastCategory <> "" Then Response.Write("") Response.Write("
") lastCategory = rsMachineTypes("category") & "" End If Response.Write("
" & Server.HTMLEncode(rsMachineTypes("machinetype") & "") & "
") rsMachineTypes.MoveNext Wend If lastCategory <> "" Then Response.Write("
") rsMachineTypes.Close Set rsMachineTypes = Nothing %>
+ Add New Type
New
New Machine/Device Type
Type Name
Category
Equipment
Network Device
Cancel
Documentation URL (Optional)
Link to support docs, manual, or spec sheet
Notes (Optional)
Add Model
Cancel