AHHH!!! I *MISSED* this comment in one of your prior posts:
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:
If DATEVALUE( CDATE( objRS4("Cncrt_Date") ) ) = DATE() Then
Response.Write "<h1>" & objRS4("Cncrt_Date") & "</h1>"
Response.Write "<h3>" & objRS4("Cncrt_Date") & "</h3>"