如何让这段代码一行显示多条新闻

Question

如何让这段代码一行显示多条新闻，新闻的大类是用ID表示的，要在哪里修改呢？ASP菜鸟期待高手的解答！显示的地址是这个

<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="222" height="26" align="left" valign="middle"><img src="image/jt3.jpg" width="11" height="11" />
<ul id="Artlist10num">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 10 ID,Title,Content,DateAndTime,Hits from "&tbname&"_Article where yn = 0 order by DateAndTime desc,Hits desc,ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
NoI=0
do while not (rs1.eof or err)
NoI=NoI+1
%>
<li style="background:url(<%=SitePath%>images/num/<%=NoI%>.gif) 2px 4px no-repeat;"><a href="<%=SitePath%><%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" title="<%=rs1("Title")%>"><%=rs1("Title")%></a></li>
<%
rs1.movenext
loop
else
Response.Write("没有")
end if
rs1.close
set rs1=nothing
%>
</ul> </td>
</tr>

</table>