麻烦大家帮我看看这个小问题...

[lastexerkey]

if request("cmd")="del" then
					 
      if Request.form("SelRecID")="" then
						 
	  response.redirect("?page="&request("page")&"&tid="&tid)
		else
			sql="select picurl2 from newslist where tid="&tid&" and newsid in ("&Request.form("SelRecID")&") order by newsid desc" 
			set rs=server.createobject("adodb.recordset")
			rs.open sql,conn,1	
			picurl2=rs("picurl2")	
		response.Write(picurl2)
		'对搜索出来的字符串进行处理...................
		str=picurl2
		if str<>"" then
			if str<>"|" then
				Set delfso = Server.CreateObject("Scripting.FileSystemObject")
				if delfso.fileExists(str) then
						   delfso.DeleteFile(str)
				else
					a=split(str,"|")
						Set delfso = Server.CreateObject("Scripting.FileSystemObject")
						for i=0 to ubound(a)
					
							if delfso.fileExists(a(i)) then
							   delfso.DeleteFile(a(i))
							end if
						next
					 conn.execute("delete from newslist where newsid in ("&Request.form("SelRecID")&")")
					response.write "<script>  alert('删除成功！') ;location.href='?page="&request("page")&"&tid="&tid&"'; </script>"
					end if
					set delfso=Nothing
				end if
		else
		  conn.execute("delete from newslist where newsid in ("&Request.form("SelRecID")&")")	
	  response.write "<script> alert('成功删除记录！'); location.href='?page="&request("page")&"&tid="&tid&"'; </script>"
	    end if
	  
	end if
end if

----------------------------------------------------------------
帮我看看有没有错啊...在删除时候一直出现
ADODB.Field 错误 '800a0bcd'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/zy/admin/newslist.asp，行 80

[wlcsdf]

conn.execute("delete from newslist where newsid in ("&Request.form("SelRecID")&")")

这一句有问题，把它分成三句就好了。
haha=Request.form("SelRecID")
sql="delete from newslist where instr(newsid,'"&haha&"')>0"
conn.execute(sql)

这样应该就可以了。下面那一个删除语句类似。

[xxxxxxxxia]

rs.open sql,conn,1
picurl2=rs("picurl2")

这里如果没有取出数据的话就会出现
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

改成
rs.open sql,conn,1
if not rs.eof then
picurl2=rs("picurl2")
end if
应该就行了，其他的我到没怎么看