[Old Pedant]

Well, it *SHOULD* work if all your values in that column match what you showed in that screen shot.

Example code:

<%
Response.Write CDATE("2012-05-30") & "<hr/>"
Response.Write CDATE("2011-02-10") & "<hr/>"
Response.Write CDATE("2009-09-10") & "<hr/>"
%>

But if any of your values there are not legal dates in the form YYYY-MM-DD then of course you could get that error.

So maybe do this:

<%
On Error Resume Next
    cncrtDate = objRS4("Cncrt_Dateseq")
    dt = DATEVALUE( CDATE( cncrtDate ) )
    If Err.Number > 0 Then 
        Response.Write "INVALID DATE:"
        dt = DATE()
    End If
On Error GoTo 0
If  dt = DATE() Then
    Response.Write "<h1>" & cncrtDate & "</h1>"
Else
    Response.Write "<h3>" & cncrtDate & "</h3>"
End If
%>

Now you will get the INVALID DATE message and it will show you which of the values from your DB has got a problem.