asp代码的一个do。。。wile循环代码

do while (not rs.eof and i<listperpage)
    if rs("newsid")=9173 then
    %>
    <a href="news_view.asp?id=<%=rs("newsid")%>">&#8226; <%=cutstr(rs("title"),50,0)%><br />&nbsp;&nbsp;——北汽集团创新方法（TRIZ理论）推广培训工作会议顺利召开</a>   <span class="dianji">(点击率：<%=rs("clicked")%>) </span><br />
    <%
    else
%>        
          <a href="news_view.asp?id=<%=rs("newsid")%>">&#8226; <%=cutstr(rs("title"),50,0)%></a>   <span class="dianji">(点击率：<%=rs("clicked")%>) </span><br />
<%
        end if
        rs.movenext
        i = i + 1
    loop
    rs.close
    
%>          

do while (not rs.eof and i<listperpage)
 if rs("newsid")=9173 then
 %>
 <a href="news_view.asp?id=<%=rs("newsid")%>">&#8226; <%=cutstr(rs("title"),50,0)%><br />&nbsp;&nbsp;——北汽集团创新方法（TRIZ理论）推广培训工作会议顺利召开</a>   <span class="dianji">(点击率：<%=rs("clicked")%>) </span><br />
    <%
 else
%>  
          <a href="news_view.asp?id=<%=rs("newsid")%>">&#8226; <%=cutstr(rs("title"),50,0)%></a>   <span class="dianji">(点击率：<%=rs("clicked")%>) </span><br />
<%
        end if
  rs.movenext
  i = i + 1
 loop
 rs.close
 
%>