Questa volta le date sono impazzite: '#33/01/2005#'

[orcim]

Ragazzi sono allibito e non so che cosa pensare... VVoVe:

da sempre uno script per la registrazione tramite form ad una newsletter ha fatto puntualmente il suo dovere.

Da qualche ora lo script risponde con:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in date in query expression '#33/01/2005#'.

questa è la query:

strsql = "INSERT INTO tbl_login (data_ricevuto, data_verifica)" 
strsql = strsql & " Values(#" 
strsql = strsql & data_ricevuto & "#,#"
strsql = strsql & data_verifica & "#)
objconn.execute(strsql)

e così recupero le date:

Data_ricevuto = Mid(DataOggi,7,2) & "/" & Mid(DataOggi,5,2) & "/" & Left(DataOggi,4)
Data_verifica = (Mid(DataOggi,7,2) + 7 & "/" & Mid(DataOggi,5,2) & "/" & Left(DataOggi,4))

perchè non funziona più?

[Roby_72]

Verifica cosa contenga "DataOggi" e cosa ottieni con la Mid().

Roby

[orcim]

Ciao Roby, la funzione dataoggi è questa:

AnnoOggi = Year(Date)
' se il mese della data è minore di 10 gli metto davanti uno 0
if Month(Date) < 10 then
	MeseOggi = "0" & Month(Date)
else
	MeseOggi = Month(Date)
end if
' se il giorno della data è minore di 10 gli metto davanti uno 0
if Day(Date) < 10 then
	GiornoOggi = "0" & Day(Date)
else
	GiornoOggi = Day(Date)
end if
' trasformo quindi la data di oggi nel formato AAAAMMGG
DataOggi = AnnoOggi&MeseOggi&GiornoOggi

questo è invece la verifica delle due date:

response.write Data_ricevuto &"
"
26/01/2005
response.write Data_verifica
33/01/2005

[Roby_72]

Mid(DataOggi,7,2) + 7

26 + 7 = 33!

E' giusto... Cosa ne sa lui che a 31 deve passare a febbraio? Non stai mica sommando giorni ad una data!

Roby

[orcim]

scusa Roby non ti seguo...

[Roby_72]

Figurati io...

Qui hai scritto:

Data_verifica = (Mid(DataOggi,7,2) + 7 & "/" & Mid(DataOggi,5,2) & "/" & Left(DataOggi,4))

Ti rendi conto che fai semplicemente la somma tra due numeri? Cosa pretendi che scriva?


Roby

[orcim]

si quel +7 dovrebbe fissare una data di scadenza rispetto alla data di registrazione... cioè data reg.+7=data scadenza...
cosa mi consigli?

[Roby_72]

Di ragionare. La risposta già te l'ho data.
Usa DateAdd()

Roby

[orcim]

Data_ricevuto = Mid(DataOggi,7,2) & "/" & Mid(DataOggi,5,2) & "/" & Left(DataOggi,4)
Data_verifica = DATEADD("d",7,data_ricevuto)

Grazie!