新闻滚动条怎么做？

这几条新闻都是从数据库中读出来的，我想让这些新闻滚动起来，我不知道怎么做？

<div id="part_2">
<div id="left">
<div id="small_part_1">
<div class="title"></div>
<div class="more">


<% Call ConnOpen()
Set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from WF_Tj where Topic_type='tebie'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>

<span> <a>·</a><a href="#">[特别关注]还没有相应信息</a></span>
<%
else
do while not rs.eof 
%> 
<span><a>·</a><a href="<%=rs("Url")%>">[特别关注]<%=left(rs("Topic"),15)%></a></span>
<%
  rs.MoveNext
  loop
  end if
  rs.close
  set rs=Nothing
  Call ConnClose()
%>
<li style="text-align:right;"><a href=" ">更多...</a></li>


</div>
</div>