bgcolor i tabel

Jeg har en kode der ser således ud( den skal farve bgcolor i tabel efter om der er noget i DB\'en eller ej), som har to store fejl. For det første virker den ikke hvis der ikke er noget i DB\'en og for det andet farver den kun det første felt den kommer til hvor der er en information i DB\'en. Hvis altså at jeg reservere 10-15 og 15-19, så er det kun 10-15 der bliver markeret med den rigtige farve.

<% SQL3 = \"SELECT Tid1, Tid2, Tid3 FROM Kalend Where Dag =\'\"& man &\"\'\"
set kala = conn.execute(SQL3) %>
<td height=\"44\" align=\"center\" width=\"50\"
<% If kala(\"Tid1\") = \"10-15\" Then
Response.Write \"bgcolor=#FF0033\"
Else Response.Write \"bgcolor=#339900\"
end if%> ><font color=\"#FFFFFF\">10-15</font></td>
<td height=\"44\" align=\"center\" width=\"50\"
<% If kala(\"Tid2\") = \"15-19\" Then
Response.Write \"bgcolor=#FF0033\"
Else Response.Write \"bgcolor=#339900\"
end if%> ><font color=\"#FFFFFF\">15-19</font></td>
<td height=\"44\" align=\"center\" width=\"50\"
<% If kala(\"Tid3\") = \"19-24\" Then
Response.Write \"bgcolor=#FF0033\"
Else Response.Write \"bgcolor=#339900\"
end if
%> ><font color=\"#FFFFFF\">19-24</font></td>