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>

editlink.asp

@@ -96,19 +96,23 @@
                 </div>
 
                 <div class="form-group">
-                  <label for="appid">Topic <span class="text-danger">*</span></label>
+                  <label for="appid">Topic</label>
                   <div class="input-group">
-                    <select class="form-control" id="appid" name="appid" required>
-                      <option value='<%=rs("appid")%>'><%=Server.HTMLEncode(rs("appname"))%></option>
+                    <select class="form-control" id="appid" name="appid">
+                      <option value="">-- Select Topic (Optional) --</option>
 <%
-	' Get all support teams for dropdown
-	Dim rsApps, sqlApps
+	' Get all applications for dropdown
+	Dim rsApps, sqlApps, currentAppId
+	currentAppId = rs("appid") & ""
 	sqlApps = "SELECT appid, appname FROM applications WHERE isactive = 1 ORDER BY appname ASC"
 	Set rsApps = objconn.Execute(sqlApps)
 	While Not rsApps.EOF
-		If CLng(rsApps("appid")) <> CLng(rs("appid")) Then
-			Response.Write("<option value='" & rsApps("appid") & "'>" & Server.HTMLEncode(rsApps("appname")) & "</option>")
+		Dim selectedAttr
+		selectedAttr = ""
+		If currentAppId <> "" And CStr(rsApps("appid")) = currentAppId Then
+			selectedAttr = " selected"
 		End If
+		Response.Write("<option value='" & rsApps("appid") & "'" & selectedAttr & ">" & Server.HTMLEncode(rsApps("appname")) & "</option>")
 		rsApps.MoveNext
 	Wend
 	rsApps.Close