我加加了以下这段，可是也现在出现（Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界: '[number: 0]'

/abl/main.asp，行222
）不知道是什么原因，朋友帮忙看看
<%sqlstr="dbq="+server.mappath("data/info.mdb")+";driver=microsoft access driver (*.mdb);"
set conn=server.createobject("adodb.connection")
conn.open sqlstr

sql="select * from product order by id desc"
set rs=conn.execute(sql)
i=0

response.write "<table width='100%' border='0' height='450' cellspacing='6' >"
do while not rs.eof and i<8
response.write "<tr>"
for j=1 to 2
Dim picarray,pic
pic=rs("picname")
picarray = Split(pic,"|",-1)
if rs("picname")<>"" then

response.write "<td><table width='100%' border='0' cellspacing='0' cellpadding='0' ><tr><td width='79' height='85' rowspan='4' background='images/nj2.jpg'><div align='center'><a href='cp/show.asp?cpname="&rs("cpname")&"' target='_blank'><IMG height=73 alt="&rs("cpname")&" src='images/bj.jpg' width=69 align=middle border='0'></a></div></td><td >&nbsp;<font color='#3399FF'>产品类型："&rs("fenlei")&"</font></td></tr><tr><td>&nbsp;<font color='#CCcccc'>产品名称:"&left(rs("cpname"),8)&"</font></td></tr><tr><td><div align='left'>&nbsp;<a href='cp/show.asp?cpname="&rs("cpname")&"' target='_blank'><IMG height=16 alt=详细信息 src=images/ck.jpg width=54 border='0'></a> &nbsp;&nbsp; <a href='dj/default.asp?cpname="&rs("cpname")&"' target='_blank'><IMG height=16 alt=订购 src=images/d.jpg width=19 border='0' ></a></div></td></tr></table></td>"
else
response.write "<td><table width='100%' border='0' cellspacing='0' cellpadding='0' ><tr><td width='79' height='85' rowspan='4' background='images/nj2.jpg'><div align='center'><a href='cp/show.asp?cpname="&rs("cpname")&"' target='_blank'><IMG height=73 alt="&rs("cpname")&" src='soft/"&picarray(0)&"' width=69 align=middle border='0'></a></div></td><td >&nbsp;<font color='#3399FF'>产品类型："&rs("fenlei")&"</font></td></tr><tr><td>&nbsp;<font color='#CCcccc'>产品名称:"&left(rs("cpname"),8)&"</font></td></tr><tr><td><div align='left'>&nbsp;<a href='cp/show.asp?cpname="&rs("cpname")&"' target='_blank'><IMG height=16 alt=详细信息 src=images/ck.jpg width=54 border='0'></a> &nbsp;&nbsp; <a href='dj/default.asp?cpname="&rs("cpname")&"' target='_blank'><IMG height=16 alt=订购 src=images/d.jpg width=19 border='0' ></a></div></td></tr></table></td>"
end if
i=i+1
rs.movenext
if rs.eof then
exit for
end if
next
response.write "</tr>"
loop
response.write "</table>"
rs.close
conn.close
%>
相关文件：点这儿打开

if rs("picname")<>"" then
......
else
...picarray(0)

当图片为空的时候还怎么去split

改成rs("picname")=""

图片如下：

呵是的啊

应该是那里的错误了，我把那个删了就没有错，可是删了就不用显示图片了

你判断一下rs("picname"是否为null

函数:IsNull

if rs("picname")<>"" and not isnull(picname) then
.....

not isnull(pic)

楼上的写错了,你也不能就直接照搬,看看不行么?别人就是专门为你服务的么?自己要端正态度,主动的查找原因.