Skriv tal med rødt!

Jeg har følgende:

Response.Write("Planlagt: ")
sqldml = "SELECT username FROM medlem WHERE id = " & intId & " "
set rsdml = Conn.Execute(sqldml)

if rsdml.eof then
response.write("0 ")
else
sqldml33 = "SELECT Planlagt FROM medlem WHERE id = " & intId & ""
set rsdml33 = Conn.Execute(sqldml33)   
response.write rsdml33("Planlagt")
Response.write"<br>"
end if

Response.Write("Kørt indtil nu:&nbsp;")
sqldml = "SELECT * FROM KmData WHERE Træningsform = 'MTB' AND id = " & intId & " "
set rsdml = Conn.Execute(sqldml)

if rsdml.eof then
response.write("0 ")
else
sqldml33 = "SELECT sum(KM) as Summen FROM KmData WHERE Træningsform = 'MTB' AND id = " & intId & " "
set rsdml33 = Conn.Execute(sqldml33)   
response.write rsdml33("Summen")
end if

Jeg ville gerne have det sådan at vis "Summen" er mindre end "Planlagt" så skal talet skrives med rødt!!
Hvordan gør jeg det nemmest?

Fomse:-)