No sé qué puede estar mal en este if, lo que hace es que si el mensaje tiene la misma fecha en la que estamos, que muestre en rojo:
-------
fecha=date()
if rs.Fields("modificacion")=fecha then
fechi="red"
else
fechi="blue"
end if
--------
Aclaración: siempre me aparece en azul
PD: lo muestro así:
Código:
<font color="""&fechi&""">"&rs.Fields("modificacion")&"</font>