Hjælp til en lille funktion

Funktionen skal gøre følgende:

Jeg henter noget fra en DB.

Hvis feltet resultat er større end feltet resDem så skal tekst være grøn, hvis omvendt skal tekst være rød. Og hvis de er lige store så skal tekstfarven være grå.

Her er min kode:
Og det er så det felt med resultat og resDem hvor tekstfarven skal være afhængig af de forskellige størrelser.

Kan i evt. rette i koden? ;-)
___________________________________________

  <%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/fb.mdb")

SQLstmt = "SELECT * FROM kampe ORDER BY id desc"
'
'response.write SQLstmt

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %>



<table width="500" border="0" cellspacing="2" cellpadding="2">
  <tr valign="middle">
    <td height="7" width="70"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Dato</font></b></td>
    <td height="7" width="94"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Modstander</font></b></td>
    <td height="7" width="44"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Type</font></b></td>
    <td height="7" width="56"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Resultat</font></b></td>
    <td height="7" width="108"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Maps</font></b></td>
    <td height="7" width="90"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Bedste
      M8</font></b></td>
  </tr>
  <%
  DO WHILE NOT rs.EOF
    kamp = rs("kamp")
    resultat = rs("resultat")
    resDem = rs("resDem")
    dato = rs("dato")
    typekamp = rs("typekamp")
    mom = rs("mom")
    maps = rs("maps")
   
    %>
  <tr valign="middle">
    <td height="7" width="70"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%=dato%></font></td>
    <td height="7" width="94"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%=kamp%></font></td>
    <td height="7" width="44"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%=typekamp%></font></td>
    <td height="7" width="56"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%=resultat%>-<%=resDem%></font></td>
    <td height="7" width="108"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%=maps%></font></td>
    <td height="7" width="90"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><%=mom%></font></td>
  </tr>
  <%
    rs.MoveNext
  LOOP
  RS.Close
  Response.Write "</TABLE>"

conn.Close
Set conn = nothing
Set SQLstmt = nothing
    %>
</table>
_________________________________________

Håber i kan hjælpe ;)