<% ' Build WHERE clause with optional BU filter ' NOTE: Filter on machines.machinetypeid to exclude PCs (33-43) and network devices (16-20) ' Equipment types are 1-15 Dim whereClause whereClause = "models.machinetypeid = machinetypes.machinetypeid AND " &_ "machines.modelnumberid = models.modelnumberid AND " &_ "models.vendorid = vendors.vendorid AND " &_ "machines.businessunitid = businessunits.businessunitID AND " &_ "machines.isactive = 1 AND islocationonly=0 AND machines.pctypeid IS NULL AND " &_ "models.machinetypeid NOT IN (1, 16, 17, 18, 19, 20, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43)" ' Add BU filter if specified If filterBU <> "" And IsNumeric(filterBU) Then whereClause = whereClause & " AND machines.businessunitid = " & CLng(filterBU) End If strSQL = "SELECT * FROM machines,machinetypes,models,vendors,businessunits WHERE " &_ whereClause & " ORDER BY machinenumber ASC" set rs = objconn.Execute(strSQL) while not rs.eof Response.write("") %> <% rs.movenext wend objConn.Close %>

	Machine	Function	Make	Model	BU
" style="cursor:pointer;">	" title="View Machine Details"><% Dim displayName displayName = rs("machinenumber") & "" If displayName = "" Then displayName = rs("hostname") & "" If displayName = "" Then displayName = "ID:" & rs("machineid") Response.Write(Server.HTMLEncode(displayName)) %>	<%Response.Write(rs("machinetype"))%>	<%Response.Write(rs("vendor"))%>	<%Response.Write(rs("modelnumber"))%>	<%Response.Write(rs("businessunit"))%>