Mostrar fechas con diferente color

[Boxmaster]

Saludos

Estoy realizando un trabajo que permite ver cuando una fecha esta vencida o si hay dias de tolerancia. El problema es cuando quiero mostrar las fechas desde una base de datos y al realizar la comparacion con DateDiff no puedo conseguir que las fechas vencidas cambien a un color en rojo, y cuando estan en tolerancia que permanezcan al color que tenian anteriormente.

Les muestro parte del codigo, espero que alguien me pueda ayudar, y de antemano les agradezco a todos los de este foro por sus comentarios.

<% Dim Fecha
Fecha = rs.fields("Fecha_Entrega")
'Response.Write Fecha
Diferencia=DateDiff("d", Date, Fecha)
'Response.Write Diferencia
If Diferencia - Fecha Then
Response.Write "<font color=""Red"" size=""1"" face=""Verdana"""
Response.Write Diferencia"</font>"
End If
Else
If Diferencia > Fecha Then
Response.Write "<font color=""Black"" size=""1"" face=""Verdana"""
Response.Write Diferencia"</font>"
End If
%>

Gracias

[orharo2003]

If Diferencia < Fecha Then

[Boxmaster]

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.

[Myakire]

Prueba esto:
<%
FechaEnt = rs.fields("Fecha_Entrega")
Diferencia=DateDiff("d", Date, FechaEnt)
response.write "Hay " & Diferencia & " dias entre " & Date & " y " & FechaEnt
if Diferencia > 0 Then
Response.Write "<br><font color='black' size='1' face='Verdana'>"&FechaEnt&"</font>"
Else
Response.Write "<br><font color='red' size='1' face='Verdana'>"&FechaEnt&"</font>"
End If
%>

Saludos

[Myakire]

PD.
En tu código, no te presenta nada por que te falta cerrar la etiqueta FONT:

Response.Write "<font color='black' size='1' face='Verdana'"&Fecha&"</font>"

[Boxmaster]

Saludos Myakyre

La respuesta que me diste estuvo perfecta, ya la aplique a mi consulta asp y esta funcionando perfectamente, de antemano muchas gracias, me sacaste de un apuro.
Y espero poder colaborar con los compañeros de este foro que tengan dudas.

"Sin el esfuezo conjunto de los(as) compañeros(as) de este foro, todas las dudas no encontrarian respuesta inmediata, gracias a aquellos que participan y colaboran enviado respuestas acertadas."

Boxmaster (Ciudad de Puebla de los Angeles, México)