Query che non va +

[Gio&Ste]

	<%	
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	Visa = "SELECT * FROM News WHERE (News_Data >= Date() or Fine_evento >=Date()) AND (News_Tipo ='iniziative' or News_Tipo='idrusa') ORDER BY News_Data ASC"
	RecSet.Open Visa, objConn, adOpenDynamic, adLockOptimistic 
	%>
<% if RecSet.EOF Then%>
<h2>Iniziative</h2>


Non sono segnalate nuove iniziative per i prossimi giorni</p>
<% else %>
<h2>Iniziative</h2>
<ul class="lista" id="iniziative">
<%	do until RecSet.EOF %>
<% 	if DateDiff("d",Date(),RecSet("Fine_evento")) >-1 then %>
	<% data = RecSet("News_Data")
	giorno = Day(data)
	data1 = Month(data)
	mese = MonthName(data1,false)
	anno = Year(data)
	dataf = RecSet("Fine_evento")
	giornof = Day (dataf)
	dataf2 = Month(dataf)
	mesef = MonthName(dataf2,false)
	anno = Year(dataf)
	%>
	[*]<a title="<% =RecSet("News_Titolo") %>" href="iniziative.asp?ID=<% =RecSet("ID") %>"><% Response.Write(giorno)%><% Response.Write(mese)%><% if RecSet("Fine_evento") <> "" Then%> - <% Response.Write(giornof)%><% Response.Write(mesef)%><% End if %>
<% if RecSet("News_Descrizione")<> "" Then %> <%=RecSet("News_Descrizione")%><% End if %>

		<% =RecSet("News_Titolo") %></a>
<% End if %>
<%	RecSet.MoveNext
	Loop
	RecSet.Close
	set RecSet=Nothing
%><% End if %>[/list]

Fino a qualche ora fa funzionava correttamente questa query. Improvvisamente non va più? I dati ci sono, ho già verificato ed anceh perchè il risultato che ottengo è:

<h2>Iniziative</h2>
<ul class="lista" id="iniziative">
[/list]

[Roby_72]

E' evidente che il risultato della query è vuoto (EOF).
Stampa la query a video e provala direttamente sul db.

Roby