求救!ODBC driver does not support the requested properties.
出现这个错误:
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
ODBC driver does not support the requested properties.
/jiaohuo-2.asp,行33
源代码为:
<%
if Session("newbill")=0 then
response.redirect "dup.asp"
else
num=request("num")
total=request("total")
pnum=split(request("pnum"),",",-1)
itemcode=split(request("itemcode"),",",-1)
memo=request("memo")
sendtime=request("sendtime")
if sendtime="" then
sendtime=date()
end if
dim MyConn
set MyConn=Server.Createobject("ADODB.Connection")
ConnectionString = "DSN=syb_youcan_zb;uid=sa;pwd=abcd;" 'ODBC连接
MyConn.Open ConnectionString
dim RS
set RS=Server.Createobject("ADODB.Recordset")
set RS2=Server.Createobject("ADODB.Recordset")
rs.open "select * from t_jiaohuo",myconn,1,3
rs.addnew
rs("org_desc")=Session("orgname")
rs("issuedate")=now()
rs("total_money")=total
rs("send_time")=sendtime
rs("memo")=memo
rs("username")=Session("userid")
rs("status")=0
rs.update
rs.close
rs.open "select max(record_id) as maxrecord from t_jiaohuo where username= '"+Session("userid")+"'",myconn
rs.movelast
recordid=rs("maxrecord")
for i=0 to UBound(itemcode,1)
sql="insert into t_jiaohuo_item values(1,"&recordid&",'"&trim(itemcode(i))&"',"&int(pnum(i))&")"
'response.write sql
myconn.execute(sql)
next
sql2="update t_jiaohuo set status=1 where record_id="&recordid
'response.write sql2
myconn.execute(sql2)
rs.close
'rs2.close
myconn.close
Session("newbill")=0
response.redirect "suc.asp?id="&recordid
end if
%>
连接应该能够连接上,因为同样的数据库连接配置,其他查询的页面都可以打开。
看起来出错的位置可能是:
rs.open "select * from t_jiaohuo",myconn,1,3
以前都好好的,程序没有任何改动,为什么?
谢谢!