improvviso errore su data

[optime]

Originariamente inviato da Prof_Mauri
Forse però non occorre intevenire sul db; se non ho capito male a dire di Optime e di Roby basterebbe impostare il modo per come si interroga il campo data che nel mio caso si chiama "Scadenza". Vediamo se ci vengono in aiuto

ma se hai capito il problema e come sistemarlo, perché continui a frignare?

[Prof_Mauri]

No, forse hai frainteso, penso sia risolvibile modificando il modo per come si interroga il campo data, ma non ho detto di saperlo fare, anzi, è proprio il contrario!
chiaramente ci ho provato ma non ci sono riuscito...

[Roby_72]

In italiano devi invertire il mese con il giorno... in vbscript come hai provato a farlo?

Roby

[Prof_Mauri]

Pensavo :

 
dim dtmDate
dtmDate = (Now)
(Now) = (dd/mm/yyyy)
if ("Scadenza") >= dtmDate then
...........

Ma chiaramente non funziona!

[optime]

<%

dim dtmDate
dtmDate = (Now)
engDate = Month(dtmDate) & "/" & Day(dtmDate) & "/" & Year(dtmDate)

%>

adesso con engdate facci quello che ti pare

[Prof_Mauri]

Incredibile, non ci crederete ma improvvisamente lo script di prima funziona di nuovo correttamente!!!
Comunque, io a scanzo di equivoci lo cambio e lo farei nel modo seguente :

dim dtmDate
dtmDate =(Now)
engDate = Month(dtmDate) & "/" & Day(dtmDate) & "/" & Year(dtmDate)
("Scadenza") >= dtmDate then
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\......promozioni.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * from Promozioni WHERE Scadenza>=#"&engDate&"# ORDER BY Data DESC")
precedente=""
if objRs.EOF then

L'ho provato e sembra funzionare, ma scusate se chiedo conferma, è che a questo punto non so più che pensare, magari oggi funziona e domani no.

[optime]

e certo che oggi funziona! sia che mando 10/13 che 13/10 la bestia capisce che è ottobre, visto che non esiste un mese 13! il problema viene fuori quando hai un giorno <=12.

funzia? birretta!