如何实现滚动窗口问题？

use marquee<marquee direction=up scrollamount=1 scrolldelay=20 scrollleft="0" border="0" scrolltop="0" onmouseover='this.stop()' onmouseout='this.start()'> 
            <%
   Set rs = Server.CreateObject("ADODB.Recordset")
   
   rs.Open "Select * from news where Class='&Egrave;&Egrave;&micro;&atilde;&sup1;&laquo;&cedil;&aelig;' order by AnnounceID desc","DSN=dsnGuestbook;UID=sa;",3,1  
   
   %>
            <table class=tableBorder1 width=100% cellspacing=0 border=0 bordercolordark=black bordercolorlight=white>
              <%
      i=0
   Do While Not rs.Eof And i<10
   
      i = i + 1
      
      Response.Write "<tr>"
    
     %>
              <td class=TableBody1 width=100%><img src="image/bullet.gif" height="10" width=20><a href=# onClick="window.open('shownoticefile.asp?id=<%=rs("AnnounceID")%>','&frac34;&Iacute;&Ograve;&micro;&Ouml;&cedil;&micro;&frac14;&ETH;&Aring;&Iuml;&cent;','scrollbars=yes,width=500,height=450')"><span style="LINE-HEIGHT: 15px"><%=rs("Subject")%></span></a> 
   <%
  If DateDiff("d",rs("Date"),Now)<2 or rs("AnnounceID")=682 or rs("AnnounceID")=683 or rs("AnnounceID")=684  then
  '&acute;&Euml;&acute;&brvbar;&Oacute;&Uacute;2002&iexcl;&pound;7&iexcl;&pound;10 &ETH;&THORN;&cedil;&Auml;
  %>
                <img src="image/new11.gif" width="23" height="13"> 
                <%
  end if
  response.write rs("Date")
    rs.MoveNext
      
   Loop
     %>
            </table>
            <%
   rs.Close
   set rs=nothing
%>
            </marquee>