<% ' Build WHERE clause with optional BU filter Dim whereClause whereClause = "machines.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" ' 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"><%Response.Write(rs("machinenumber"))%>	<%Response.Write(rs("machinetype"))%>	<%Response.Write(rs("vendor"))%>	<%Response.Write(rs("modelnumber"))%>	<%Response.Write(rs("businessunit"))%>