有何不可吉他谱教学:谁能帮我让这些文字向上滚动

<% dim rs4911,iee
set rs4911=server.createobject("adodb.recordset")
rs4911.open "select top 4 * from [shangjia] where yz=1 and tj='stui' order by fbsj desc",conn,1,1
if rs4911.recordcount=0 then
response.write "暂无推荐商家"
else
Response.Write("<table width=100% border=0 cellspacing=0 cellpadding=0 align=center><tr>")
iee=0
while not rs4911.eof
iee=iee+1
Response.Write "<td height='18'> <img border=""0"" src=""indeximg/to.gif""> <a href=shanginfo.asp?class1="&rs4911("class1")&"&class2="&rs4911("class2")&"&fox=2 target=""_self""><b>"&left(rs4911("biaoti"),16)&"</b></a></td>"
Response.Write "<tr><td height='18'> 电话："&rs4911("dianhua")&" 联系人：["&rs4911("name")&"]</td>"
Response.Write "<tr><td height='18'> 经营：<font color=red>"&left(rs4911("memo"),16)&"</font></td>"
if iee=1 then
Response.Write("</tr><tr>")
iee=0
end if
if rs4911.eof then
Response.Write("</tr>")
end if
rs4911.movenext
wend
Response.Write("</table>")
end if
rs4911.close
set rs4911=nothing
%>

有调用

怎么让response.write里的文字向上滚动。
高手帮帮忙