请问当点提交后,写数据库(Access)时,报错。请帮帮看看,什么原因?
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
ADODB.Recordset 错误 '800a0e79'
对象打开时,不允许操作。
/mojiang/prize_add.asp,行12
原代码为:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="connect.asp" -->
<%
if Request.QueryString("action")="add" then
level=Request.form("level")
describe=Request.form("describe")
set rs=Server.CreateObject("ADODB.Recordset")
sql="select count(*) as num from tab_prize_info where p_info_level='"&level&"'and p_info_describe='"&describe&"'"
rs.open sql,conn,3,3
if rs("num")=0 then
sql="insert into tab_prize_info (p_info_id,p_info_level,p_info_describe) values('','"&level&"','"&describe&"')"
rs.open sql,conn,3,1
'rs.addnew
'rs("p_info_level")=level
'rs("p_info_describe")=describe
'rs.update
'response.write "dfdf"
else
Response.Redirect "prize.asp"
end if
end if
%>