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?

[optime]

probabilmente la data che stai usando (Date1, quella che leggi dal db) non è corretta. fattela stampare a video e controllala (metti le response.write prima della datediff). eventualmente usa IsDate() per validarla.

p.s. la terza response.write è sbagliata, occhio

[laugher]

probabilmente la data che stai usando (Date1, quella che leggi dal db) non è corretta. fattela stampare a video e controllala (metti le response.write prima della datediff). eventualmente usa IsDate() per validarla.

p.s. la terza response.write è sbagliata, occhio

Le date sono stampate in modo corretto. Se tolgo la differenza della data il programma gira. Come se fosse sbagliata la "d".

p.s.: response corretta.

[optime]

le date sono in formato data o sono delle stringhe?

1. vedi cosa ti dice IsDate()
2. prova con
Date1=CDate(rs.fields("data"))