PC-Machine Relationships

PCs with relationships to shop floor machines

Copy Table to Clipboard Copy as CSV Copy as JSON <% Dim strSQL, rs strSQL = "SELECT " & _ "pc.machineid AS pc_id, " & _ "pc.machinenumber AS hostname, " & _ "c.address AS ip, " & _ "eq.machineid AS machine_id, " & _ "eq.machinenumber AS machine_number, " & _ "v.vendor AS vendor, " & _ "m.modelnumber AS model " & _ "FROM machinerelationships mr " & _ "JOIN machines eq ON mr.machineid = eq.machineid " & _ "JOIN machines pc ON mr.related_machineid = pc.machineid " & _ "LEFT JOIN communications c ON pc.machineid = c.machineid AND c.isprimary = 1 AND c.comstypeid = 1 " & _ "LEFT JOIN models m ON eq.modelnumberid = m.modelnumberid " & _ "LEFT JOIN vendors v ON m.vendorid = v.vendorid " & _ "WHERE mr.isactive = 1 " & _ "AND pc.pctypeid IS NOT NULL " & _ "AND eq.machinenumber IS NOT NULL AND eq.machinenumber != '' " & _ "AND eq.machinenumber REGEXP '^[0-9]{4}$' " & _ "AND eq.machinenumber NOT IN ('0612', '0613', '0614', '0615') " & _ "AND (v.vendor IS NULL OR v.vendor != 'WJDT') " & _ "AND (m.modelnumber IS NULL OR m.modelnumber != 'TBD') " & _ "ORDER BY eq.machinenumber" Set rs = objConn.Execute(strSQL) Dim rowCount rowCount = 0 Do While Not rs.EOF rowCount = rowCount + 1 %> <% rs.MoveNext Loop rs.Close Set rs = Nothing %>

Machine #	Vendor	Model	PC Hostname	PC IP
<%= Server.HTMLEncode(rs("machine_number") & "") %>	<%= Server.HTMLEncode(rs("vendor") & "") %>	<%= Server.HTMLEncode(rs("model") & "") %>	<%= Server.HTMLEncode(rs("hostname") & "") %>	<%= Server.HTMLEncode(rs("ip") & "") %>

<%= rowCount %> records found