variabile data in sql

[kafkahc]

Ciao a tutti,
non riesco a fare funzionare un due variabili data all'interno di una stringa sql

Dim giornomin, giornomax
giornomin=#01/11/2005#
giornomax=#01/12/2005#

Dim entromese
Dim entromese_numRows

Set entromese = Server.CreateObject("ADODB.Recordset")
entromese.ActiveConnection = stringa_connessione
entromese.Source = "SELECT [Demographic table].PT_ID, [Demographic table].RandoCod, Visit_table.DaVisit, Visit_table.Visitno FROM [Demographic table] INNER JOIN Visit_table ON [Demographic table].PT_ID = Visit_table.PT_ID WHERE ((([Demographic table].RandoCod) Is Not Null) AND ((Visit_table.DaVisit)>=#"& giornomin &"# And (Visit_table.DaVisit)<#"& giornomax &"#) AND ((Visit_table.Visitno)=0)) ORDER BY Visit_table.DaVisit;"

So che le date sono semrpe un pò problematiche, ma qualcuno mi saprebbe indicare coem uscire da questo empasse?

grazie

[optime]

prova in questo formato

#MM/GG/AAAA#

[kafkahc]

ciao optime,
ti giuro che ho postato su html.it pensando... "vediamo se optime riesce a darmi una mano"... :-)

Purtroppo ho già provato anche MM/GG/AAAA e, preso dalla disperazione AAAA/MM/GG... ma sempre uguale... non ho nessuna differenza.

La cosa assurda é che prende il valore un pò a caso, infatti gli itnervalli non hanno tanto senso (invertendo mese e giorni)...

non saprei come aggirare il problema...
é tutto il giorno che mi ci scontro...

[optime]

il campo Visit_table.DaVisit è in formato ... ? il db è ...... ?

[kafkahc]

db access
formato data in cifre (gg/mm/aaaa)

[kafkahc]

alla fine, anche se probabilmente mi richiede più risorse mi sono arrangiato così...

Dim entromese
Dim entromese_numRows

Set entromese = Server.CreateObject("ADODB.Recordset")
entromese.ActiveConnection = stringa_connessione
entromese.Source = "SELECT [Demographic table].PT_ID, [Demographic table].RandoCod, Visit_table.DaVisit, Visit_table.Visitno FROM [Demographic table] INNER JOIN Visit_table ON [Demographic table].PT_ID = Visit_table.PT_ID WHERE ((([Demographic table].RandoCod) Is Not Null) AND ((Visit_table.Visitno)=0)) ORDER BY Visit_table.DaVisit;"
entromese.Open()



While Not entromese.Eof

if datepart("YYYY", giornomin)<datepart("YYYY", entromese.Fields.Item("DaVisit").Value) then
contamin=1
end if
if datepart("YYYY", giornomin)=datepart("YYYY", entromese.Fields.Item("DaVisit").Value) AND datepart("m", giornomin)<=datepart("m", entromese.Fields.Item("DaVisit").Value) then
contamin=1
end if
if datepart("YYYY", giornomax)>datepart("YYYY", entromese.Fields.Item("DaVisit").Value) then
contamax=1
end if
if datepart("YYYY", giornomax)=datepart("YYYY", entromese.Fields.Item("DaVisit").Value) AND datepart("m", giornomax)>=datepart("m", entromese.Fields.Item("DaVisit").Value) then
contamax=1
end if

if contamax+contamin=2 then
ContaRando=ContaRando+1
end if

funziona...