执行存储过程出问题

[tonny5129]

代码如后所示，同样的代码在两台机器上是好的，在一台机器上就不行，我觉得不像是代码本身的问题。我观察了一下，好的机器上都装了sql server （或者是client管理），但不知道是不是这个原因

出错提示：
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
[Microsoft][ODBC SQL Server Driver]Optional feature not implemented
/featuretest/testoutbounddb.asp, line 57

那一行的代码是：
rst.Open cmdTemp '成查询结果


全部代码如下：
<!--#include file=adovbs.inc -->
<%
Dim taskId
Dim outboundType
Dim outboundNbr
Dim initialUrl
Dim startTime
Dim scheduleTime
Dim maxRetryTime
Dim busyInterval
Dim noAnswerInterval
Dim otherInterval

taskId = 2
outboundType = "OUTBOUND"
outboundNbr = "111"
initialUrl = "http://localhost/featureTest/showcase.vxml"
startTime = "2003-06-03"
scheduleTime = "2003-06-03"
maxRetryTime = "100"
busyInterval = "30"
noAnswerInterval = "600"
otherInterval = "60"

'==================建立连接对象=======================
Set Dataconn = Server.CreateObject("ADODB.Connection")
Dataconn.Open "driver={SQL Server};server=zqm;uid=sa;pwd=sealadmin;database=VoiceServer"

'==================调用存储过程=======================
Set cmdTemp = Server.CreateObject("ADODB.Command") '建立命令对象
cmdTemp.CommandText = "dbo.insertOutboundTask" '存储过程名称
cmdTemp.CommandType = adCmdStoredProc '表示为存储过程
Set cmdTemp.ActiveConnection = Dataconn

Set tmpParam = cmdTemp.CreateParameter("@taskId",adBigInt,adParamInput,,taskId)
cmdTemp.Parameters.Append tmpParam
Set tmpParam = cmdTemp.CreateParameter("@type",adVarchar,adParamInput,32,outboundType)
cmdTemp.Parameters.Append tmpParam
Set tmpParam = cmdTemp.CreateParameter("@outboundNbr",adVarChar,adParamInput,16,outboundNbr)
cmdTemp.Parameters.Append tmpParam
Set tmpParam = cmdTemp.CreateParameter("@initialUrl",adVarChar,adParamInput,128,initialUrl)
cmdTemp.Parameters.Append tmpParam
Set tmpParam = cmdTemp.CreateParameter("@startTime",adDBTimeStamp,adParamInput,,startTime)
cmdTemp.Parameters.Append tmpParam
Set tmpParam = cmdTemp.CreateParameter("@scheduleTime",adDBTimeStamp,adParamInput,,scheduleTime)
cmdTemp.Parameters.Append tmpParam
Set tmpParam = cmdTemp.CreateParameter("@maxRetryTime",adInteger,adParamInput,,maxRetryTime)
cmdTemp.Parameters.Append tmpParam
Set tmpParam = cmdTemp.CreateParameter("@busyInterval",adInteger,adParamInput,,busyInterval)
cmdTemp.Parameters.Append tmpParam
Set tmpParam = cmdTemp.CreateParameter("@noAnswerInterval",adInteger,adParamInput,,noAnswerInterval)
cmdTemp.Parameters.Append tmpParam
Set tmpParam = cmdTemp.CreateParameter("@otherInterval",adInteger,adParamInput,,otherInterval)
cmdTemp.Parameters.Append tmpParam

Set rst = Server.CreateObject("ADODB.Recordset") '建立记录集对象
rst.Open cmdTemp '成查询结果

response.write "<?xml version = ""1.0"" encoding = ""gb2312"" ?>"
response.write "<vxml version = ""1.0"" application = ""http://localhost/featureTest/featureTest.vxml"">"
response.write " <form id = ""produceOutbond"">"
response.write " <block>"
response.write " <prompt>"
response.write " 产生一个外呼任务,外呼电话为"+outboundNbr+",谢谢您的使用"
response.write " </prompt>"
response.write " <goto expr = "" serverName + 'outbound.vxml#outboundTest'"" />"
response.write " </block>"
response.write " </form>"
response.write "</vxml>"

%>

[gmlxf]

要装sqlserver