Type mysmatch nella data.

[laugher]

In questo ciclo mi dice "type mismatch", ma non riesco a capire. Nelle istruzioni dice che il formato è questo:

DateDiff("d",fromDate,toDate)

do while not rs.eof

dim data
data=date()
'88
Dim Date1, DifferenzaData
Date1=rs.fields("data")
DifferenzaData=DateDiff("d", Date1, data)


response.write(data)
response.write(Date1)
response.write(DateDiff)

rs.movenext

Loop

Che sto sbagliando?