Hent data fra database i forhold til dato

Hej...
Jeg  har lavet dette indtil videre, men det virker ikke helt efter hensigten...
Hvis der ikke er en post i kalenderen der passer til dagens dato, så skal den skrive: "Der er ingen kampe idag.".... Det gør den så også, men den loop'er det jo, og så kommer det til at stå lige så mange gange, som der er poster i kalender... Hvordan får jeg den til kun at skrive det 1 gang?....


Set Q_dato = Conn.Execute("SELECT * From kalender Order by dato ")


<%
Do until Q_dato.EOF

if Q_dato("dato") <= date then
response.write "" & Q_dato("tid") & "&nbsp;-&nbsp;" & Q_dato("klasse") & ":&nbsp;" & Q_dato("tekst") & "<br>"
else
response.write "Der er ingen kampe idag."
end if
%>
<%Q_dato.MoveNext
loop
%>