query in base a data odierna su db access

[maux]

ciao a tutti mi succede che in locale le cose mi funzionano sul server di aruba no!!!!!


mi spiego ho due tabelle 1 corsi generale ed un altra corsi calendario.

ora in base al click di 3 modalità posso vedere:

1) i corsi al completo
2) i corsi di oggi
3) i corsi ancora attivi.

mando la parte di codice relativa notare inversione di giorno e mese che se messi nell'ordine normale gg/mm/aa non mi fanno funzionare la cosa nemmeni locale.

g=day(now())
m=month(now())
a=year(now())
Data_ctrl=m & "/" & g & "/" & a

mode=request("mode")

if mode=1 then
sSQL="SELECT CORSI.ID_CORSO, CORSI.TITOLO, CORSI.DESCRIZIONE, CORSI.SEDE, CORSI.DATA_INIZIO, CORSI.DATA_FINE FROM CORSI"
end if

if mode=2 then
sSQL="SELECT CORSI.ID_CORSO, CORSI.TITOLO, CORSI.DESCRIZIONE, CORSI.SEDE, CORSI.DATA_INIZIO, CORSI.DATA_FINE FROM CORSI"
sSQL = sSQL & " INNER JOIN CORSI_CALENDARIO ON CORSI.ID_CORSO = CORSI_CALENDARIO.RIF_CORSO)"
sSQL = sSQL & " INNER JOIN PARTNERS ON CORSI.RIF_ORGANIZZATORE = PARTNERS.ID_PARTNER"
sSQL = sSQL & " WHERE (((CORSI_CALENDARIO.Data)=#" & Data_ctrl & "#))"
end if

if mode=3 then
sSQL="SELECT CORSI.ID_CORSO, CORSI.TITOLO, CORSI.DESCRIZIONE, CORSI.SEDE, CORSI.DATA_INIZIO, CORSI.DATA_FINE FROM CORSI"
sSQL= sSQL & " WHERE ( (Corsi.Data_FINE)>=#" & Data_ctrl & "#)"
end if



spero mi che la spiegazione sia chiara, quello che a me non è chiaro è come venirne a capo di sta situazione.

Grazie in anticipo.

[maux]

accidenti ho copiato male, rimando il codice con le istruzioni in oggetto:

g=day(now())
m=month(now())
a=year(now())
Data_ctrl=m & "/" & g & "/" & a

mode=request("mode")

if mode=1 then
sSQL="SELECT CORSI.ID_CORSO, CORSI.TITOLO, CORSI.DESCRIZIONE, CORSI.SEDE, CORSI.DATA_INIZIO, CORSI.DATA_FINE FROM CORSI"
end if

if mode=2 then
sSQL="SELECT CORSI.ID_CORSO, CORSI.TITOLO, CORSI.DESCRIZIONE, CORSI.SEDE, CORSI.DATA_INIZIO, CORSI.DATA_FINE"
sSQL = sSQL & " FROM (CORSI INNER JOIN CORSI_CALENDARIO ON CORSI.ID_CORSO = CORSI_CALENDARIO.RIF_CORSO)
sSQL = sSQL & " WHERE (CORSI_CALENDARIO.Data=#" & Data_ctrl & "#)"
end if

if mode=3 then
sSQL="SELECT CORSI.ID_CORSO, CORSI.TITOLO, CORSI.DESCRIZIONE, CORSI.SEDE, CORSI.DATA_INIZIO, CORSI.DATA_FINE FROM CORSI"
sSQL= sSQL & " WHERE (Corsi.Data_FINE>=#" & Data_ctrl & "#)"
end if