asp图片滚动

<%
Const New_img=10     
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from 0791idc_Product order by ID"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div align='center' id='demo' style='overflow:hidden;height:200px;width:700px;'><!--滚动区的高度和宽度-->
<table align='center' cellpadding='0' cellspace='0' border='0'>
<tr>
 <td id='demo1' valign='top'>
  <table width='100%' cellpadding='0' cellspacing='0' border='0' align='center'>
  <tr valign='top'>
 <%
 while not rs_Product.EOF
 fileExt=lcase(getFileExtName(rs_Product("DefaultPicUrl")))  
 %>
   <td align='center'>
    <TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0>
    <TR>
     <TD align="center"><div style="width:240px;">
      <a href='ProductShow.asp?ID=<%=rs_Product("ID")%>' target=_blank title='<%=rs_Product("title")%>'>
  <%if fileext="jpg" or fileext="bmp" or fileext="png" or fileext="gif" then%>
        <img src="<%if rs_Product("DefaultPicUrl")="" then%>Img/nopic.gif<%else%><%=rs_Product("DefaultPicUrl")%><%end if%>" alt="<%=rs_Product("title")%>" width="220" height="174" border="0">
  <%else
   if fileext="swf" then%>
       <object  classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'  codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='220' height='174'>
        <param name=movie value='<%=rs_Product("DefaultPicUrl")%>'>
 &n