Problema con query, non mi estrae i prossimi 5 record, ma solo quello relativo al prossimo appuntamento.
Cosa sbaglio?
codice:
	<%	
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	Visa = "SELECT Top 5 * FROM News WHERE News_Data >= date() AND News_Tipo ='iniziative' or News_Tipo='iniziative2' ORDER BY News_Data ASC"
	RecSet.Open Visa, objConn, adOpenDynamic, adLockOptimistic 
%>
<% if RecSet.EOF Then%>
<h4 class="titolo2">Iniziative</h4>


Non sono segnalate nuove iniziative per i prossimi giorni</p><% else %>
		
<h4 class="titolo2">Iniziative</h4>
<ul class="lista" id="articoli">
<%	do Until RecSet.EOF %>
<% 	if DateDiff("d",Date,RecSet("News_Data")) >-1 then %>

	<% data = RecSet("News_Data")
	giorno = Day(data)
	data1 = Month(data)
	mese = MonthName(data1,false)
	anno = Year(data)%>
[*]<a title="<% =RecSet("News_Titolo") %>" href="news/dettagli.asp?ID=<% =RecSet("ID") %>"><% Response.Write(giorno)%><% Response.Write(mese)%>
<% if RecSet("News_Descrizione")<> "" Then %> <%=RecSet("News_Descrizione")%><% End if %>

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