Query prossima gara ciclistica..

[lucacasu]

Salve ragazzi, ho delle date di gare da disputarsi e voglio che mi venga visualizzata la prossima rispetto alla data odierna, e tutto funziona bene (sono in locale).. Ma se per testarlo provo a cambiare la data del sistema lui mi stampa il primo record..

vi posto il codice:

<%
g=day(now())
if g < 10 then g = "0" & g
m=month(now())
if m < 10 then m = "0" & m
a=year(now())

Data_ctrl=g & "/" & m & "/" & a
'response.write(Data_ctrl)

SQL="SELECT TOP 1 id, giorno, n, nmese, mese, anno, localita, societaorganizatrice, testo, nummese FROM calendario WHERE nmese>=#" & Data_ctrl & "#"
Set rs=Server.CreateObject("ADODB.Recordset")
' response.write(SQL)
' response.end
Set rs=Conn.Execute(SQL)

%>
<%
if rs.eof then
response.write "Nessuna gara in programma"
else
%>
<%
do until rs.eof
%>
<%=rs("giorno")%><%=rs("n")%><%=rs("mese")%><%=rs( "anno")%> si svolgerà a<%=rs("localita")%> la
<%=rs("testo")%>, organizza <%=rs("societaorganizatrice")%></font></font>
<%rs.movenext
loop
end if
%>

[lucacasu]

nessuno mi sa dare una mano?