codice:
DataOdierna = FormatDateTime(Date)     ' Nel formato "09/09/2005"
DataEvento  = Rec("DataEvento") ' Presa dal DB

IF (DateValue(DataOdierna) > DateValue(DataEvento)) THEN
    Response.Write "DataOdierna > DataEvento"
END IF