se le categorie sono solo 3 fai così:

<%
While NOT rsAmici.EOF
if rsAmici.Fields("CatName") = "cat.1" then
colore = "#099878"
else if rsAmici.Fields("CatName") = "cat.2" then
colore = "343536"
else
colore= "111111"
end if
end if
%>
<tr bgcolor="<%=colore%>">
<td><%=(rsAmici.Fields.Item("CatName").Value)%></td>
<td><%=(rsAmici.Fields.Item("FriendName").Value)%> </td>
</tr>
<%
rsAmici.MoveNext()
Wend
%>