两个数据库读取问题（十分简单可总是出错）

两端程序原理基本一致，肯定不难，但我就是找不出错来
第一段：
<span class="f14b">
<script type="text/javascript">
var imgtext=new Array();
var imgUrl=new Array();
var imgLink=new Array();
var a=1
<%
dim rs
set rs=server.CreateObject("adodb.Recordset")
rs.open "select * from photo where commend=true order by id desc",conn,1,1
if rs.eof then
%>
imgUrl[1]="images/images_flash.jpg";
imgtext[1]="暂无推荐图片"
imgLink[1]=escape("photo.asp");
<%else
do while not rs.eof
%>
imgUrl[a]="<%=rs("url")%>";
imgtext[a]="<%=rs("title")%>"
imgLink[a]=escape("images.asp?id=<%=rs("id")%>");
a=a+1
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
 var focus_width=200
 var focus_height=150
 var text_height=14
 var swf_height = focus_height+text_height
 
 var pics=imgUrl[1]
 var links=imgLink[1]
 var texts=imgtext[1]
 <%if a-1>2 then
 for b=2 to a-1 %>
 var pics=pics+"|"+imgUrl[<%=b%>]
 var links=links+"|"+imgLink[<%=b%>]
 var texts=texts+"|"+imgtext[<%=b%>]
 <%next
 end if%>
 document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
 document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="images/focus.swf"><param name="quality" value="high"><param name="bgcolor" value="#F0F0F0">');
 document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
 document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
 document.write('<embed src="images/pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#F0F0F0" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');  
 document.write('</object>');
  </script>
 </span></a><span id=focustext class=f14b> </span>
运行后只显示最后一张图片
第二段：
<%dim re
set re=server.CreateObject("adodb.Recordset")
re.open "select top 10 * from photo order by id desc",conn,1,1
photo=""
if re.eof then
%>
<td title="暂无图片"><a href="photo.asp" target="_black"><img src="images/images_flash.jpg" border="0" width="130" height="95"></td>&nbsp;
<%end if
do while not re.eof%>
<td title="<%=re("title")%>&nbsp;<%=left(re("info"),14)%>"><a href="images.asp?id=<%=re("id")%>" target="_black"><img src="<%=re("URL")%>" border="0" width="130" height="95"></td>&nbsp;
<%
re.movenext
loop
re.close
set re=nothing
%>
</td>
</tr></table>
</td><td id=xiangguan2 width="6"></td></tr></table>
</div>
<script>
var speed=10
xiangguan2.innerHTML=xiangguan1.innerHTML
function Marquee(){
if(xiangguan2.offsetWidth-xiangguan.scrollLeft<=0)
xiangguan.scrollLeft-=xiangguan1.offsetWidth
else{
xiangguan.scrollLeft++
}
}
var MyMar=setInterval(Marquee,speed)
xiangguan.οnmοuseοver=function() {clearInterval(MyMar)}
xiangguan.οnmοuseοut=function() {MyMar=setInterval(Marquee,speed)}
</script>
这段根本什么都不显示