Seguramente lo tienes dentro de un Loop cierto, bueno pues dentro del loop puedes llamar a una función que te devuelva un color determinado dependiendo si es positivo o no, el argumento que le pasas:
<%
Function DevuelveColor(mi_numero)
If mi_numero < 0 Then
DevuelveColor = "red"
Else
DevuelveColor = "white"
End If
End Function
While not rs.EOF Then
mi_color = DevuelveColor(rs("campo_numerico"))
%>
.
.
.
<tr
bgcolor=<%=mi_color%>>
.
.
.
<%
rs.MoveNext
Wend
%>
Salu2,
P.D. Bienvenida a bordo!
