菜鸟问题

<%
dim str
str="select id,title from Ad_content where lang=0 order by id desc"
set rst_news=server.CreateObject("adodb.recordset")
rst_news.open str,conn,1,1
if not rst_news.eof then
response.write "<table width='95%' border=0 align=center cellpadding=0 cellspacing=0>"
for n = 1 to 10
if rst_news.eof then exit for
titlestr=rst_news(1)
if len(rst_news(1))>10 then titlestr=left(titlestr,7)&"..."

response.write " <tr><td width=30 align=center vlaign=middle>"
response.write "<td height=20 valign=bottom><a href='#' onclick=MM_openBrWindow('news_detail.asp?id="&rst_news(0)&"','','scrollbars=yes,resizable=yes,width=500,height=400')>"&titlestr&"</a></td></tr>"
rst_news.movenext
next
response.Write("<tr><td></td><td align=right><a href=xinwenfabu.asp>...更多</a></td></tr></table>")
else
response.write "本栏目暂无内容"
end if

rst_news.close
set rst_news=nothing
%>




这个是我从原吗中复制出来的，我想让它里面的内容成为滚动字幕.不知道怎么样实现？请各位大哥指点一下.