Fix network device description/machinenotes display and edit

- Fix ADO cursor issue where reading rs("description") twice caused
  empty values (IsNull check consumed the field value)
- Change all device pages to read description field once using
  `description = rs("description") & ""` pattern
- Add deviceDescription variable in displaydevice.asp
- Fix machinetypeid mapping: IDF=17, Camera=18 (was swapped)
- Add model dropdown fix to include currently assigned model
- Add server application tracking feature
- Various other improvements and fixes

Files affected:
- displaydevice.asp, displaylocationdevice.asp
- deviceaccesspoint.asp, deviceserver.asp, deviceswitch.asp
- devicecamera.asp, deviceidf.asp
- savenetworkdevice.asp, networkdevices.asp

🤖 Generated with [Claude Code](https://claude.com/claude-code)

Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>

devicecamera.asp

@@ -63,8 +63,8 @@
 		Else
 			ipaddress = ""
 		End If
-		If Not IsNull(rs("fqdn")) Then fqdn = rs("fqdn") Else fqdn = ""
-		If Not IsNull(rs("description")) Then description = rs("description") Else description = ""
+		If Not IsNull(rs("fqdn")) Then fqdn = rs("fqdn") & "" Else fqdn = ""
+		description = rs("description") & ""
 		If Not IsNull(rs("maptop")) Then maptop = rs("maptop") Else maptop = ""
 		If Not IsNull(rs("mapleft")) Then mapleft = rs("mapleft") Else mapleft = ""
 		If Not IsNull(rs("isactive")) Then isactive = rs("isactive") Else isactive = 1
@@ -231,12 +231,13 @@
                       <select name="modelid" id="modelid" class="form-control">
                         <option value="">-- Select Model --</option>
                         <%
-                        Dim strSQL3, rsModels
-                        ' Filter models to only show Camera models (machinetypeid = 18)
+                        Dim strSQL3, rsModels, currentModelId
+                        ' Show Camera models (machinetypeid = 18) plus currently assigned model
+                        If IsNumeric(modelid) Then currentModelId = CLng(modelid) Else currentModelId = 0
                         strSQL3 = "SELECT m.modelnumberid, m.modelnumber, v.vendor " & _
                                   "FROM models m " & _
                                   "INNER JOIN vendors v ON m.vendorid = v.vendorid " & _
-                                  "WHERE m.isactive = 1 AND m.machinetypeid = 18 " & _
+                                  "WHERE m.isactive = 1 AND (m.machinetypeid = 18 OR m.modelnumberid = " & currentModelId & ") " & _
                                   "ORDER BY v.vendor, m.modelnumber"
                         Set rsModels = objConn.Execute(strSQL3)
                         Do While Not rsModels.EOF