AHHH!!! I *MISSED* this comment in one of your prior posts:
Quote:
|
It works with Cncrt_Date. It does not work with Cncrt_Dateseq.
|
That clearly indicates that one of the values in the CNCRT_DATESEQ indeed has a problem! If Access couldn't use that column, then neither could VBScript.
So just change to using that column in the IF test:
Code:
<%
If DATEVALUE( CDATE( objRS4("Cncrt_Date") ) ) = DATE() Then
Response.Write "<h1>" & objRS4("Cncrt_Date") & "</h1>"
Else
Response.Write "<h3>" & objRS4("Cncrt_Date") & "</h3>"
End If
%>