手机银行每日转账限额:哪位大虾帮帮忙!!!!!

ADODB.Field 错误 '800a0bcd'

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

/admin/saveaddbook.asp，行 25

后台添加商品问题,但是在前几天也有加上过,不过现在却一直加不上了,显示就是这个页面...请大家帮忙看看....谢谢了!!!
下面就是前36行的源码,希望对你们有用,参考一下..

<!--#include file="conn.asp"-->
<%
if request("bookname")="" or request("shichangjia")="" or request("huiyuanjia")="" or request("vipjia")="" then
response.Write "对不起，添加失败，请用正确的方式添加商品！"
response.End
end if
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode2 = fString
end function
dim bookdate,dazhe
if request("huiyuanjia")>0 and request("shichangjia")>0 then
dazhe=round(request("huiyuanjia")/request("shichangjia"),2)
else
dazhe=0
end if
dim action,bookid
bookid=request.QueryString("id")
action=request.QueryString("action")
shjianame=request.Cookies("blueflame")("shjianame")
set rs_news=server.CreateObject("adodb.recordset")
rs_news.open "select shjiaid,name from [shjia] where username='"&shjianame&"'",conn,1,1
CompanyName=rs_news("name")
shjiaid=rs_news("shjiaid")
rs_news.close
select case action
case "add"
sql="select count(*) from shop_books where bookname='" & trim(request("bookname")) & "' and pingpai='" & trim(request("pingpai")) & "' and shjiaid=" & shjiaid & ""
rs_news.open sql,conn,1,1
if rs_news(0)>0 then
rs_news.close
response.write "<script lanugage=javascript>alert('您已经添加过该产品,要修改产品信息请在管理产品信息中查询修改,现在返回!');window.history.go(-1);</script>"
response.end
end if

有知道也可以直接联系我QQ:22460463
不盛感激.....