<% theme = Request.Cookies("theme") IF theme = "" THEN theme="bg-theme1" END IF Dim cameraid, isNewRecord cameraid = Request.QueryString("id") If cameraid = "" Or cameraid = "0" Then isNewRecord = True cameraid = 0 Else isNewRecord = False End If ' If editing, fetch existing data Dim rs, cameraname, modelid, idfid, serialnumber, macaddress, ipaddress, description, maptop, mapleft, isactive Dim vendorname, modelnumber, idfname If Not isNewRecord Then Dim strSQL strSQL = "SELECT c.*, m.modelnumber, v.vendor, i.idfname " & _ "FROM cameras c " & _ "LEFT JOIN models m ON c.modelid = m.modelnumberid " & _ "LEFT JOIN vendors v ON m.vendorid = v.vendorid " & _ "LEFT JOIN idfs i ON c.idfid = i.idfid " & _ "WHERE c.cameraid = " & cameraid Set rs = objConn.Execute(strSQL) If rs.EOF Then Response.Write("Camera not found") Response.End End If cameraname = rs("cameraname") modelid = rs("modelid") idfid = rs("idfid") serialnumber = rs("serialnumber") macaddress = rs("macaddress") ipaddress = rs("ipaddress") description = rs("description") maptop = rs("maptop") mapleft = rs("mapleft") isactive = rs("isactive") vendorname = rs("vendor") modelnumber = rs("modelnumber") idfname = rs("idfname") rs.Close Set rs = Nothing Else ' New record defaults cameraname = "" modelid = "" idfid = "" serialnumber = "" macaddress = "" ipaddress = "" description = "" maptop = "" mapleft = "" isactive = 1 ' Active by default for new records vendorname = "" modelnumber = "" idfname = "" End If %>
Network Devices
Cameras
<%If isNewRecord Then Response.Write("Add Camera") Else Response.Write("Edit Camera")%>
<%If isNewRecord Then Response.Write("Add Camera") Else Response.Write("Edit Camera: " & Server.HTMLEncode(cameraname))%>
Camera Name
*
Short name to identify this camera
IDF Location
*
-- Select IDF --
<% Dim strSQL2, rsIDFs strSQL2 = "SELECT idfid, idfname FROM idfs WHERE isactive = 1 ORDER BY idfname" Set rsIDFs = objConn.Execute(strSQL2) If rsIDFs.EOF Then Response.Write("
No IDFs available - add one first
") Else Do While Not rsIDFs.EOF Dim selectedIDF selectedIDF = "" If Not IsNull(idfid) And idfid <> "" Then If CStr(rsIDFs("idfid")) = CStr(idfid) Then selectedIDF = "selected" End If End If %>
" <%=selectedIDF%>> <%=Server.HTMLEncode(rsIDFs("idfname"))%>
<% rsIDFs.MoveNext Loop End If rsIDFs.Close Set rsIDFs = Nothing %>
+ Add New IDF
New
Select the IDF where this camera is located
New IDF
IDF Name
*
Description
Cancel
Model
-- Select Model --
<% Dim strSQL3, rsModels strSQL3 = "SELECT m.modelnumberid, m.modelnumber, v.vendor " & _ "FROM models m " & _ "INNER JOIN vendors v ON m.vendorid = v.vendorid " & _ "WHERE m.isactive = 1 " & _ "ORDER BY v.vendor, m.modelnumber" Set rsModels = objConn.Execute(strSQL3) Do While Not rsModels.EOF Dim selected selected = "" If Not IsNull(modelid) And modelid <> "" Then If CStr(rsModels("modelnumberid")) = CStr(modelid) Then selected = "selected" End If End If %>
" <%=selected%>> <%=Server.HTMLEncode(rsModels("vendor") & " - " & rsModels("modelnumber"))%>
<% rsModels.MoveNext Loop rsModels.Close Set rsModels = Nothing %>
+ Add New Model
New
Select a model or click "New" to add one
New Model
Model Number
*
Vendor
*
-- Select Vendor --
<% Dim rsVendors strSQL3 = "SELECT vendorid, vendor FROM vendors WHERE isactive = 1 ORDER BY vendor ASC" Set rsVendors = objConn.Execute(strSQL3) 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
*
Cancel
Model Notes
Documentation Path
Cancel
MAC Address
Hardware MAC address (format: XX:XX:XX:XX:XX:XX or XX-XX-XX-XX-XX-XX)
Serial Number
IP Address
IPv4 or IPv6 address
Description
<%=Server.HTMLEncode(description)%>
Optional: Location, viewing angle, or other notes
>
Active
Inactive devices are hidden from most lists and the network map
Map Position (Optional)
Select Location on Map
<%If maptop <> "" And mapleft <> "" Then Response.Write("Current position: X=" & mapleft & ", Y=" & maptop) Else Response.Write("No position set - click button to select") End If%>
Click to select this camera's position on the network map
<%If isNewRecord Then Response.Write("Add Camera") Else Response.Write("Save Changes")%>
Cancel
<%If Not isNewRecord Then%>
Delete
<%End If%>