<% theme = Request.Cookies("theme") IF theme = "" THEN theme="bg-theme1" END IF Dim serverid serverid = Request.Querystring("id") If Not IsNumeric(serverid) Then Response.Redirect("network_devices.asp?filter=Server") Response.End End If 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 = " & CLng(serverid) set rs = objconn.Execute(strSQL) If rs.EOF Then Response.Write("Server not found") objConn.Close Response.End End If %>
Server
Server
<%Response.Write(Server.HTMLEncode(rs("servername")))%>

<% If Not IsNull(rs("vendor")) And Not IsNull(rs("modelnumber")) Then Response.Write(Server.HTMLEncode(rs("vendor") & " " & rs("modelnumber"))) Else Response.Write("Server") End If %>

Configuration

Name:

Vendor:

Model:

Serial:

IP Address:

Description:

Location:

Status:

<%Response.Write(Server.HTMLEncode(rs("servername")))%>

<% If Not IsNull(rs("vendor")) And rs("vendor") <> "" Then Response.Write(Server.HTMLEncode(rs("vendor"))) Else Response.Write("Not specified") End If %>

<% If Not IsNull(rs("modelnumber")) And rs("modelnumber") <> "" Then Response.Write(Server.HTMLEncode(rs("modelnumber"))) Else Response.Write("Not specified") End If %>

<% If Not IsNull(rs("serialnumber")) And rs("serialnumber") <> "" Then Response.Write(Server.HTMLEncode(rs("serialnumber"))) Else Response.Write("Not specified") End If %>

<% If Not IsNull(rs("ipaddress")) And rs("ipaddress") <> "" Then Response.Write("" & Server.HTMLEncode(rs("ipaddress")) & "") Else Response.Write("Not specified") End If %>

<% If Not IsNull(rs("description")) And rs("description") <> "" Then Response.Write(Server.HTMLEncode(rs("description"))) Else Response.Write("No description") End If %>

<% If Not IsNull(rs("maptop")) And Not IsNull(rs("mapleft")) And rs("maptop") <> "" And rs("mapleft") <> "" Then %> View on Map <% Else Response.Write("No location set") End If %>

<% If rs("isactive") Then Response.Write("Active") Else Response.Write("Inactive") End If %>

" required maxlength="100" placeholder="e.g., DB-Server-01">
Select a model or click "New" to add one
" maxlength="100" placeholder="e.g., SN123456789">
" maxlength="45" pattern="^[0-9\.:]*$" placeholder="e.g., 192.168.1.100">
>
"> ">
<% If Not IsNull(rs("maptop")) And Not IsNull(rs("mapleft")) And rs("maptop") <> "" And rs("mapleft") <> "" Then Response.Write("Current position: X=" & rs("mapleft") & ", Y=" & rs("maptop")) Else Response.Write("No position set - click button to select") End If %>
Cancel
<% rs.Close Set rs = Nothing objConn.Close %>