$query=$dbh->prepare("SELECT idBusiness,emaillist,private,name,title,description FROM Business ORDER BY metric");
$query->execute();
while (($id,$em,$private,$text,$title,$desc)=$query->fetchrow_array()) {
	$list_color=$em?'black':'slategray';
	($chk, $sub, $crm, $warmth)=$dbh->selectrow_array("SELECT Business_idBusiness, subscribe, CRMaccess, warmth FROM Business_has_Contact WHERE Business_idBusiness = $id AND Contact_idContact = $data{'contact'}");
	if ($chk) {
		$check=' checked';
		$dis='';
	} else {
		$check='';
		$dis=' disabled';
	}
	$warmth = 0 unless $warmth;
	$crmr_chk = $crmw_chk = '';
	$crmr_chk = ' checked' if $crm;
	$crmw_chk = ' checked' if $crm eq 'W';
	$subscribe=$sub?' checked':'';
	$text="<i>$text</i> <span class=\"privatelist\">[private]</span>" if $private;
	print "<tr>\n<td><input type=\"checkbox\" name=\"bus_$id\" onChange=\"subscribe(this,$id);\"$check>\n";
	print "<input type=\"checkbox\" name=\"sub_$id\"$subscribe$dis></td>\n";
	print "<td title=\"$title\" style=\"color:$list_color\">$text</td>\n";
	print "<td style=\"text-align:center\"><input type=\"checkbox\" name=\"crmr_$id\" onClick=\"crmAccess(this, $id);\"$crmr_chk>\n";
	print "<input type=\"checkbox\" name=\"crmw_$id\" onClick=\"crmAccess(this, $id);\"$crmw_chk></td>\n";
	print "<td><img src=\"/images/site/warmth$warmth.png\" style=\"width:28px\"> </td>\n" if $chk;
	print "</tr>";
}