Gracias
Orharo por tu comentario, pero ya probe de esa forma y no aparece la fecha, ni en negro, estoy probando de otra forma y tambien me da el mismo error (no muestra nada en el área a mostrar el dato)
Muestro el codigo, espero me puedan ayudar.
<%
Dim Fecha, Diff
Fecha = rs.fields("Fecha_Entrega")
Diff = Date
If (Diff=Fecha or Diff<Fecha) Then
Response.Write "<font color='black' size='1' face='Verdana'"&Fecha&"</font>"
Else
Response.Write "<font color='red' size='1' face='Verdana'"&Fecha&"</font>"
End If
%>
El objetivo de este codigo es para mostrar las fechas vecidas en rojo y las que estan con tolerancia en negro, gracias.