大哥大姐们，帮我看看我的东西错在什么地方

<script type="text/javascript"><!--
//more javascript from http://www.smallrain.netvar pic_width=260 //图片宽度var pic_height=205 //图片高度var text_height=20 //文字高度var swfpath = 'img/picviewer.swf' //swf文件路径地址var swf_height = pic_height+text_height<%
dim rs1,sql,i,pp,li,tex
sql = "select * from news where new_icot = '1' ORDER BY new_id DESC"
set rs1 = bk.execute(sql)
i=0
do while not rs1.eof<>0 and i<3
pp[i]=""&rs1("new_ico1")&""
li[i]=""&rs1("new_id")&""
tex[i]=""&rs1("new_name")&""
i=i+1
rs1.MoveNext
loop
%>var pics=''"+pp[0]+"'|'"+pp[1]+"'|'"+pp[2]+"''var links=''"+li[0]+"'|'"+li[1]+"'|'"+li[2]+"''var texts=''"+tex[0]+"'|'"+tex[1]+"'|'"+tex[2]+"''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="'+ pic_width +'" height="'+ swf_height +'">');document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="'+swfpath+'"><param name="quality" value="high"><param name="bgcolor" value="#ffffff">');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='+pic_width+'&borderheight='+pic_height+'&textheight='+text_height+'">');document.write('<embed src="'+swfpath+'" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+pic_width+'&borderheight='+pic_height+'&textheight='+text_height+'" menu="false" bgcolor="#ffffff" quality="high" width="'+ pic_width +'" height="'+ pic_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');document.write('</object>');//-->    </script>
这段代码中的这段输出：
<%
dim rs1,sql,i,pp,li,tex
sql = "select * from news where new_icot = '1' ORDER BY new_id DESC"
set rs1 = bk.execute(sql)
i=0
do while not rs1.eof<>0 and i<3
pp[i]=""&rs1("new_ico1")&""
li[i]=""&rs1("new_id")&""
tex[i]=""&rs1("new_name")&""
i=i+1
rs1.MoveNext
loop
%>var pics=''"+pp[0]+"'|'"+pp[1]+"'|'"+pp[2]+"''var links=''"+li[0]+"'|'"+li[1]+"'|'"+li[2]+"''var texts=''"+tex[0]+"'|'"+tex[1]+"'|'"+tex[2]+"''
我不知道可不可以这样
总是报错。说类型不匹配
请帮改改