<% ' Build WHERE clause with optional BU filter ' NOTE: Exclude LocationOnly (1), network devices (16-20, 46), and PC types (33) 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 " &_ "models.machinetypeid NOT IN (1, 16, 17, 18, 19, 20, 33, 46)" ' 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)) %>	<%=Server.HTMLEncode(rs("machinetype") & "")%>	<%=Server.HTMLEncode(rs("vendor") & "")%>	<%=Server.HTMLEncode(rs("modelnumber") & "")%>	<%=Server.HTMLEncode(rs("businessunit") & "")%>