Oh Dear! Asleep at the keyboard again

. That's what happens when you blindly copy working code from section to another without reviewing the code. ARRGH!!!
I tried your code above and it throws this error, Microsoft VBScript runtime error '800a000d'
Type mismatch: 'CDATE'
/performdates.asp, line 43
Line 43 reads:
Code:
<% If DATEVALUE( CDATE( objRS4("Cncrt_Dateseq") ) ) = DATE() Then %>
Any ideas?