怎么达到第8条记录的时候退出循环

如何达到第8条记录的时候退出循环？
<%  
set   rs=server.CreateObject( "adodb.recordset ")
    rs.open   "select   top   8   *   from   Dv_Topic   order   by   hits   desc ",conn,1,1
%>

<%if   rs.eof   and   rs.bof   then
    response.write   "&nbsp;&nbsp;&nbsp;&nbsp;目前还没有新闻！ "
    else
    do   while   not   rs.eof
    %>

<%=rs( "topicid ")%>

  <%
    rs.movenext
    loop
    end   if
    rs.close
    set   rs=nothing  
   
    %>
以上代码用了   top   8   条件，   但是   当hits   有重复的时候   显示出来的就不止8条记录了。
好像应该用   i=i+1     当i> =8   的时候就退出循环。
请问以上的代码该怎么改呢？谢谢！

[解决办法]
top 8 肯定只取八条.hits重复也只取八条.不需要你改.