Udskrive alle indlæg fra én dag

Jeg vil gerne have udskrevet alle posterne i TEKST, hvis de er fra i dag!

Hvorfor udskrives den samme celle bare 4 gange (der er fire forskellige posts i min db!)

<%
    Sql = "SELECT TOP 100 * FROM quicks WHERE dag = '" & Day(Now) & "' AND maaned = '" & Month(Now) & "' AND aar = '" & Year(Now) & "'"
    Set rs = Conn.Execute(sql)
   
    strtekst = rs("tekst")
    strdag = rs("dag")
    strmaaned = rs("maaned")
    straar  = rs("aar")
   
    If rs.EOF Then
        Response.write "Ingen quick-nyheder i dag..."
    Else
    Do
    %>
    <%=strdag%>.<%=strmaaned%>.<%=straar%>&nbsp;:&nbsp;<%=strtekst%><br>
    <%
    rs.MoveNext
    Loop While Not rs.EOF
   
    End if
   
    rs.Close
    Set rs = Nothing
    %>


????????????????