errore Microsoft VBScript runtime error '800a01a8'

[killerbomb]

il server ritorna questo errore:
Microsoft VBScript runtime error '800a01a8'
Object required: '19/11/2010'
/Page.asp, line 15

quando eseguo questo codice:

set objRs = objConn.Execute("SELECT * from tblNews" )
	set dataoggi = Date()
	
    Do while NOT objRs.EOF
        set datafile = cDate(ObjRs("DataInizio"))
        If cDate(dataoggi)>=datafile Then
         Response.Write("<h1 style=""border-color: #663333; color: #333333; border-bottom-style: dotted; font-size: 16px; font-weight: bold;"">" & objRs("Titolo") & "</h1>" )  
         Response.Write("<table><tr><td style="" width:40px;""> ")
         Response.Write("[img][/img] </td >")
         Response.Write(" <td style="" width:158px"">" & objRs("Descrizione") & "</td></tr>")
         Response.Write("<tr><td><a href""" & objRs("File") & """>Visualizza pdf</a></td></tr></table>")
	    End If                
       objRs.Movenext
	Loop
		objRs.Close
	Set objRs = Nothing
	objConn.Close
	Set objConn = Nothing

come si può risolvere?

[optime]

al posto di

set dataoggi = Date()

prova

dataoggi = Date()