请问高手一个调用SQL存储过程的问题

[space6212]

<% Set ConnMobile=server.CreateObject("adodb.connection")
'Conn.CommandTimeout=90
connstr="driver={sql server};server=black1;uid=sa;password=111;database=mydb"
ConnMobile.Open connstr
if err.number<.0 then
response.write "open webdb error2 :" & err.Description
response.end
end if
set SMSrs=server.createobject("adodb.recordset")

SMSsql="exec New_sms_SendSMSForPMDB 15,'BZ','"&DestTermID&"',"&SrcTermID&"',"&MsgContent&"',@sMsgID OUTPUT,@nErrorCode OUTPUT,'088888'"
sql="select * from mytable"
response.write SMSsql
SMSrs.open SMSsql,connmobile,1,1
'if err.number<>0
if err.number<>0 then
response.write "wrong"
SMSrs.close
set SMSrs=nothing
'set connmobile=nothing
response.end
end if
SMSrs.close
set SMSrs=nothing
%>
运行时程序报错：错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
/SendSMS.asp, 第 31 行

请问是什么原因，如何修改？谢谢

[wcqgm]

这个应该是数据库连接错误。你看看你的数据库连接参数是否有问题。如密码，服务器名等。

[space6212]

没有，我用再其他查询上用这个数据库连接都没问题的

[comszsoft]

用vb的数据环境设计器连好后再把代码copy过去就可以了