do while loop 为什么只循环了一次

<%
set left_news=server.createobject("adodb.recordset")
exec="select top 5 * from [news] where fl=1 order by data desc "
left_news.open exec,conn,1,1
if left_news.eof and left_news.bof then
response.Write(" 暂无新闻 !")
end if
do while not left_news.eof
dim left_url,left_color
if IsNull(left_news("url")) or trim(left_news("url")&"")="" then
left_url="/ShowNews/?"&left_news("id")&"-1.html"
else
left_url=""&left_news("url")&""
end if
%>

<%=glbj(left_news("title"),28)%>
<%=left_news("data")%>

<%=glbj(left_news("body"),160)%>


<%
left_news.movenext
loop
left_news.close
set left_news=nothing
%>
数据库能查询出来5条，为什么不循环5次？

数据库能查询出来5条
是否5条的fl参数都为1?

sum值溢出 integer最大为32767 改成 dim sum as long 可解决问题