Loop kun en gang !!

Jeg har lavet en tingest her som henter et billed i en database efter dato.

Hvordan får jeg den til kun at loop en gang altså sådan der kun kommer et billed.

Sikket bare en tanketorsk .. som lige kan se.

<%
date1 = date +1
date2 = date -1
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open = \"\"& conn2 &\"\"

strQuery = \"SELECT * FROM Nyhed order by dato2\"
Set RS = Conn.Execute(strQuery)
Do While Not RS.EOF
  If DateDiff(\"d\", date1, RS(\"dato1\")) < 0 And DateDiff(\"d\", date2, RS(\"dato2\")) > 0 Then
%>
<a href=\"user/vis_nyhed.asp\"><img src=\'user/<%=rs(\"billedeurl\")%>\' border=\'1\' width=\"165\" height=\"233\"></a>
<%
End If
RS.MoveNext
Loop

conn.close
set conn = nothing
Set rs = Nothing
%>