ASP 实现表格里插入最新内容

<%
set rr_Product=server.createobject("adodb.recordset")
sqltt="select top 3 * from product order by UpdateTime desc"
rr_Product.open sqltt,conn,1,1
if rr_Product.bof and rr_Product.eof then
response.write "无记录"
else

i=0
dim a(2)
do while not rs.eof
a(i)=rr_Product("DefaultPicUrl")
i=i+1
rr_Product.movenext
if rr_Product.eof then exit do
loop
end if
%>
<table width="345" height="109" border="1">
 <tr>
    <td><img src=<%=a(0)%> /></td>
  </tr>
    <tr>
    <td><img src=<%=a(1)%> /></td>
  </tr>
    <tr>
    <td><img src=<%=a(2)%> /></td>
  </tr>
</table>
<%rs_Product.close %>