diff --git a/addmachine.asp b/addmachine.asp index 4dfbb4b..17d361f 100644 --- a/addmachine.asp +++ b/addmachine.asp @@ -167,20 +167,13 @@ <% - Dim rsMachineTypes, lastCat - strSQL3 = "SELECT machinetypeid, machinetype, category FROM machinetypes WHERE isactive = 1 ORDER BY category, machinetype ASC" + Dim rsMachineTypes + strSQL3 = "SELECT machinetypeid, machinetype FROM machinetypes WHERE isactive = 1 ORDER BY machinetype ASC" Set rsMachineTypes = objConn.Execute(strSQL3) - lastCat = "" While Not rsMachineTypes.EOF - If rsMachineTypes("category") <> lastCat Then - If lastCat <> "" Then Response.Write("") - Response.Write("") - lastCat = rsMachineTypes("category") - End If Response.Write("") rsMachineTypes.MoveNext Wend - If lastCat <> "" Then Response.Write("") rsMachineTypes.Close Set rsMachineTypes = Nothing %> @@ -275,13 +268,6 @@ -
- - -
diff --git a/devicecamera.asp b/devicecamera.asp index c4b2d0c..75332a8 100644 --- a/devicecamera.asp +++ b/devicecamera.asp @@ -331,20 +331,13 @@ -
- - -
diff --git a/devicefirewall.asp b/devicefirewall.asp index 6503816..f8acae8 100644 --- a/devicefirewall.asp +++ b/devicefirewall.asp @@ -237,20 +237,12 @@ <% Dim rsMachineTypes - strSQL2 = "SELECT machinetypeid, machinetype, category FROM machinetypes WHERE isactive = 1 ORDER BY category, machinetype ASC" + strSQL2 = "SELECT machinetypeid, machinetype FROM machinetypes WHERE isactive = 1 ORDER BY machinetype ASC" Set rsMachineTypes = objConn.Execute(strSQL2) - Dim lastCat - lastCat = "" While Not rsMachineTypes.EOF - If rsMachineTypes("category") <> lastCat Then - If lastCat <> "" Then Response.Write("") - Response.Write("") - lastCat = rsMachineTypes("category") - End If Response.Write("") rsMachineTypes.MoveNext Wend - If lastCat <> "" Then Response.Write("") rsMachineTypes.Close Set rsMachineTypes = Nothing %> @@ -274,14 +266,6 @@ maxlength="50" placeholder="e.g., Firewall, Router, UPS"> -
- - -
- diff --git a/deviceserver.asp b/deviceserver.asp index 614d620..57e8e8b 100644 --- a/deviceserver.asp +++ b/deviceserver.asp @@ -237,20 +237,13 @@ -
- - -
diff --git a/deviceswitch.asp b/deviceswitch.asp index 506d9bf..e0634b3 100644 --- a/deviceswitch.asp +++ b/deviceswitch.asp @@ -237,20 +237,12 @@ <% Dim rsMachineTypes - strSQL2 = "SELECT machinetypeid, machinetype, category FROM machinetypes WHERE isactive = 1 ORDER BY category, machinetype ASC" + strSQL2 = "SELECT machinetypeid, machinetype FROM machinetypes WHERE isactive = 1 ORDER BY machinetype ASC" Set rsMachineTypes = objConn.Execute(strSQL2) - Dim lastCat - lastCat = "" While Not rsMachineTypes.EOF - If rsMachineTypes("category") <> lastCat Then - If lastCat <> "" Then Response.Write("") - Response.Write("") - lastCat = rsMachineTypes("category") - End If Response.Write("") rsMachineTypes.MoveNext Wend - If lastCat <> "" Then Response.Write("") rsMachineTypes.Close Set rsMachineTypes = Nothing %> @@ -274,14 +266,6 @@ maxlength="50" placeholder="e.g., Firewall, Router, UPS"> -
- - -
- diff --git a/savenetworkdevice.asp b/savenetworkdevice.asp index cfcbfba..1740900 100644 --- a/savenetworkdevice.asp +++ b/savenetworkdevice.asp @@ -199,9 +199,8 @@ If modelid = "new" Then ' Handle new machine type creation (nested) If newmodelmachinetypeid = "new" Then - Dim newmachinetypename, newmachinetypecategory + Dim newmachinetypename newmachinetypename = Trim(Request.Form("newmachinetypename")) - newmachinetypecategory = Trim(Request.Form("newmachinetypecategory")) If newmachinetypename = "" Then objConn.Close @@ -209,19 +208,14 @@ If modelid = "new" Then Response.End End If - If newmachinetypecategory = "" Then - newmachinetypecategory = "Equipment" - End If - ' Insert new machine type using parameterized query Dim sqlNewMT, cmdNewMT - sqlNewMT = "INSERT INTO machinetypes (machinetype, category, isactive) VALUES (?, ?, 1)" + sqlNewMT = "INSERT INTO machinetypes (machinetype, isactive) VALUES (?, 1)" Set cmdNewMT = Server.CreateObject("ADODB.Command") cmdNewMT.ActiveConnection = objConn cmdNewMT.CommandText = sqlNewMT cmdNewMT.CommandType = 1 cmdNewMT.Parameters.Append cmdNewMT.CreateParameter("@machinetype", 200, 1, 50, newmachinetypename) - cmdNewMT.Parameters.Append cmdNewMT.CreateParameter("@category", 200, 1, 50, newmachinetypecategory) On Error Resume Next cmdNewMT.Execute