Condition

I am trying to get a balance that is negative to appear red.
Sergey helped me before but version 3.2 appears to do some things differently and copying and pasting the previous solution causes an error. Based on previous solution I think the code that needs to be modified is the following:
<%

if IsBinaryField(rs.Fields("Balance")) or Format("Balance")=FORMAT_DATABASE_FILE then

Response.Write CreateImageControl(rs, "Balance", "")

else

strData = GetData(rs.Fields("Balance"), "Number")
Response.Write ProcessLargeText(strData)
end if

%>
Can anyone help with the correct code to get Balance to appear red when negative?
Thanks