代驾哪个平台好:怎么在这段代码中加上代码让字向上移动（marquee?)

<% dim rs49112,iee2
set rs49112=server.createobject("adodb.recordset")
rs49112.open "select top 8 * from [st_lianmeng] where yz=1 and tj='qtui' order by fbsj desc",conn,1,1
if rs49112.recordcount=0 then
response.write "暂无推荐商家"
else
Response.Write("<table width=100% border=0 cellspacing=0 cellpadding=0 align=center><tr>")
iee2=0
while not rs49112.eof
iee2=iee2+1
Response.Write "<td height='25'><a href=shetuan_info.asp?class1="&rs49112("class1")&" target=""_self""> <img border=""0"" src=""indeximg/to.gif""> <b>"&left(rs49112("biaoti"),12)&"</b></a></td>"
Response.Write "<tr><td height='25'> "&rs49112("dianhua")&"  ["&rs49112("name")&"]</td>"
Response.Write "<tr><td height='25'> <font color=red>"&left(rs49112("memo"),12)&"</font></td>"

if iee2=1 then
Response.Write("</tr><tr>")
iee2=0
end if
if rs49112.eof then
Response.Write("</tr>")
end if
rs49112.movenext
wend
Response.Write("</table>")
end if
rs49112.close
set rs49112=nothing
%>
有谁能够帮我，我再加分，要看其他文件，请您加QQ273758775