ASP中的一个问题？-------------对象打开时，不允许操作

[niyboy]

代码：
Set conn_conn = Server.CreateObject("ADODB.Connection")
conn_conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("database/feilong.mdb")
Set RS_rs1 = Server.CreateObject("ADODB.RecordSet")

mydate = Year(now()) & "-" & Month(now()) & "-" & Day(now())

sqll_number="select * from [number] where [riqi]='"&mydate&"'"
RS_rs1.Open sqll_number,conn_conn,3,1
if RS_rs1.eof then

'num="1";
sql_sql="select * from number"
RS_rs1.Open sql_sql,conn_conn,1,3 // 行 43
RS_rs1.addnew
RS_rs1("riqi")="&mydate&"
RS_rs1("number")="1"

RS_rs1.update


else


my_number=RS_rs1("number")+1
sql_sql2="select * from number"
RS_rs1.Open sql_sql2,conn_conn,1,3
RS_rs1.addnew
RS_rs1("riqi")="&mydate&"
RS_rs1("number")="&my_number&"

RS_rs1.update


end if
RS_rs1.close
set RS_rs1=nothing
conn_conn.close
set conn_conn=nothing

错误：
ADODB.Recordset 错误 '800a0e79'
对象打开时，不允许操作。

/index.asp，行 43


请问一下是什么原因？？？？

[99percent]

确定是这个:conn_conn???????????????
在连接数据库的语句中.

[99percent]

哦,不好意思看错了.

[llzzllllz]

'num="1";
sql_sql="select * from number"
RS_rs1.Open sql_sql,conn_conn,1,3 // 行 43
RS_rs1.addnew
RS_rs1("riqi")="&mydate&"
RS_rs1("number")="1"
因为前面这个Rs_rs1已经打开了，换过一个rs 吧
或者先Rs_rs1.close

[99percent]

RS_rs1.Open sql_sql,conn_conn,1,3 // 行 43

上述已用了RS_rs1.Open sqll_number,conn_conn,3,1
此记录集还没有关闭.

if RS_rs1.eof then

'num="1";
'********************************加上去试试****************
RS_rs1.close
set Rs_rs1=nothing
RS_rs1 = Server.CreateObject("ADODB.RecordSet")
'**************************************************
sql_sql="select * from number"
RS_rs1.Open sql_sql,conn_conn,1,3 // 行 43
RS_rs1.addnew
RS_rs1("riqi")="&mydate&"
RS_rs1("number")="1"

RS_rs1.update


else

[yl1209]

Set conn_conn = Server.CreateObject("ADODB.Connection")
conn_conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("database/feilong.mdb")
Set RS_rs1 = Server.CreateObject("ADODB.RecordSet")

mydate = Year(now()) & "-" & Month(now()) & "-" & Day(now())

sqll_number="select * from [number] where [riqi]='"&mydate&"'"
RS_rs1.Open sqll_number,conn_conn,3,1
if RS_rs1.eof then

'num="1";
sql_sql="select * from number"
RS_rs1.Open sql_sql,conn_conn,1,3 // 行 43
RS_rs1.addnew
RS_rs1("riqi")="&mydate&"
RS_rs1("number")="1"

RS_rs1.update


else
'************加上*********begin
rs_rs1.close()
set rs_rs1=nothing
‘********************end
my_number=RS_rs1("number")+1
sql_sql2="select * from number"
RS_rs1.Open sql_sql2,conn_conn,1,3
RS_rs1.addnew
RS_rs1("riqi")="&mydate&"
RS_rs1("number")="&my_number&"

RS_rs1.update


end if
RS_rs1.close
set RS_rs1=nothing
conn_conn.close
set conn_conn=nothing

[yuanming007]

用同一个RS_rs1，再第二次使用时，要把先前的RS_rs1先RS_rs1.close

[niyboy]

请大家帮我看看这句有什么问题：

conn_conn.execute "insert into [number](riqi,number,beizhu)
values('"&mydate&"','1','111')"

它总报语法错误