<% theme = Request.Cookies("theme") IF theme = "" THEN theme="bg-theme1" END IF Dim serverid, isNewRecord serverid = Request.QueryString("id") If serverid = "" Or serverid = "0" Then isNewRecord = True serverid = 0 Else isNewRecord = False End If ' If editing, fetch existing data Dim rs, servername, modelid, serialnumber, ipaddress, description, maptop, mapleft, isactive Dim vendorname, modelnumber If Not isNewRecord Then Dim strSQL strSQL = "SELECT s.*, m.modelnumber, v.vendor " & _ "FROM servers s " & _ "LEFT JOIN models m ON s.modelid = m.modelnumberid " & _ "LEFT JOIN vendors v ON m.vendorid = v.vendorid " & _ "WHERE s.serverid = " & serverid Set rs = objConn.Execute(strSQL) If rs.EOF Then Response.Write("Server not found") Response.End End If servername = rs("servername") modelid = rs("modelid") serialnumber = rs("serialnumber") ipaddress = rs("ipaddress") description = rs("description") maptop = rs("maptop") mapleft = rs("mapleft") isactive = rs("isactive") vendorname = rs("vendor") modelnumber = rs("modelnumber") rs.Close Set rs = Nothing Else ' New record defaults servername = "" modelid = "" serialnumber = "" ipaddress = "" description = "" maptop = "" mapleft = "" isactive = 1 ' Active by default for new records vendorname = "" modelnumber = "" End If %>
Network Devices
Servers
<%If isNewRecord Then Response.Write("Add Server") Else Response.Write("Edit Server")%>
<%If isNewRecord Then Response.Write("Add Server") Else Response.Write("Edit Server: " & Server.HTMLEncode(servername))%>
Server Name
*
Short name to identify this server
Model
-- Select Model --
<% Dim strSQL2, rsModels strSQL2 = "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(strSQL2) 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 strSQL2 = "SELECT vendorid, vendor FROM vendors WHERE isactive = 1 ORDER BY vendor ASC" Set rsVendors = objConn.Execute(strSQL2) 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
Serial Number
IP Address
IPv4 or IPv6 address
Description
<%=Server.HTMLEncode(description)%>
Optional: Purpose, rack location, 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 server's position on the network map
<%If isNewRecord Then Response.Write("Add Server") Else Response.Write("Save Changes")%>
Cancel
<%If Not isNewRecord Then%>
Delete
<%End If%>