急~~急~~急~~公司商务网后台出错，求求帮忙啊!!
就是当前页面跟后台ASP连接时出现这一些文字啊，小弟我对ASP是文肓啊，
希望哪位大哥能帮帮忙:




无法显示网页
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 127.0.0.1 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
Microsoft JET Database Engine (0x80040E09)
不能更新。数据库或对象为只读。
/book.asp, 第 25 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

网页：
GET /book.asp

时间：
2003年8月22日, 17:56:01


详细信息：
Microsoft 支持

摆脱了，大家帮帮忙啊！！！！！！很急的。

这下面是BOOK。ASP页面的代码:





<%dim bookid
bookid=request.QueryString("id")%>









<%
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_books where bookid="&bookid,conn,1,3
rs2("liulancount")=rs2("liulancount")+1
rs2.update%>

市场价 <%=formatnumber(rs2("shichangjia"),2)%>元 折扣 <%response.write rs2("dazhe")*100&".00%"%> <%if trim(rs2("bookpic"))<>"" then response.write "" else response.Write "" end if%> <%=trim(rs2("mch"))%><%=trim(rs2("bookname"))%> <%=trim(rs2("pp"))%><%=trim(rs2("pingpai"))%> <%=trim(rs2("qch"))%><%=trim(rs2("bookzz"))%> <%=trim(rs2("jj"))%><%=trim(rs2("bookchuban"))%> <%=trim(rs2("isbn1"))%><%=trim(rs2("isbn"))%> 会员价 <%=formatnumber(rs2("huiyuanjia"),2)%>元 节省 <%=formatnumber(round(rs2("shichangjia")-rs2("huiyuanjia"),2),2)%>元 <%response.write ""%> <%response.write ""%> <%if trim(rs2("bookpic"))<>"" then response.write "查看商品实际尺寸" end if%> <%'查看商品更多内容 response.write "" if rs2("bookzz")<>"" then response.write "" response.write "" end if response.write "" '用户评级 response.write "" rs2.close set rs2=nothing response.write "" response.write "" '//用户评论 dim rs1 set rs1=server.CreateObject("adodb.recordset") rs1.open "select * from shop_pinglun where bookid="&bookid&" and shenhe=1 ",conn,1,1 if rs1.eof and rs1.bof then response.write"" else do while not rs1.eof %> <%rs1.movenext loop rs1.close set rs1=nothing end if%> <%if rs2("bookcontent")<>"" then response.write ""&trim(rs2("nr"))&""&trim(rs2("bookcontent")&"") end if if rs2("bookmulu")<>"" then response.write ""&trim(rs2("ml"))&""&trim(rs2("bookmulu"))&"" end if %> 会员评级 " response.write "查看更多关于"&trim(rs2("bookname"))&"商品 " call pingji() response.write " 发表您对本商品的评级 会员评论 如果您用过本商品，或对本商品有所了解，欢迎您发表自己的评论。您的评论将被网络上成千上万的用户所共享，我们将对您的慷慨深表感谢。 " response.write " 您的评论在提交后将经过我们的审核，也许您需要等待一些时间才可以看到。谢谢合作。 [<%=rs1("pinglunname")%>@<%=rs1("pinglundate")%>] <%=rs1("pingluncontent")%> 本站发表用户评论，并不代表我们赞同或者支持用户的观点。我们的立场仅限于传播更多用户感兴趣的信息。

<%sub pingji()
dim xx
if rs2("pingjizong")>0 and rs2("pingji")>0 then
xx=rs2("pingjizong")\rs2("pingji")
else
xx=0
end if
response.write ""
end sub
%>