一个超时的错误，郁闷！！！！

Question

在一个ASP页面中，循环调用存储过程，出现以下错误。
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e31' [Microsoft][ODBC SQL Server Driver]超时已过期 代码如下：
connstr="driver={SQL Server};server=dddd;UID=sa;PWD=ddd;database=sms"
conn.connectiontimeout=999
conn.commandtimeout=999
conn.Open connstr
set cmd=server.createobject("ADODB.command")
cmd.commandtimeout=1999
with cmd
.ActiveConnection = Conn
.CommandText = "dg_dantiaoquery"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("@ServiceNum",adChar,adParamInput,20)
.Parameters.Append .CreateParameter("@ServiceId",adChar,adParamInput,20)
.Parameters.Append .CreateParameter("@datefrom",adChar,adParamInput,10,datefrom)
.Parameters.Append .CreateParameter("@dateto",adChar,adParamInput,10,dateto)
.Parameters.Append .CreateParameter("@OrderNum",adInteger,adParamOutput)
.Parameters.Append .CreateParameter("@feeNum",adinteger,adParamOutput)
.Parameters.Append .CreateParameter("@feefailureNum",adinteger,adParamOutput)
end with<% for i=0 to 19

ServiceNum=trim(serviceNums(i,0))
ServiceId=trim(serviceNums(i,1))
gamecname=trim(jieMu(i))
numbers=numbers+1
with cmd
.parameters("@ServiceNum")=ServiceNum
.parameters("@ServiceId")=ServiceId .Execute , ,adExecuteNoRecords
OrderNum=.parameters("@OrderNum")
feeNum=.parameters("@feeNum")
feefailureNum=.parameters("@feefailureNum")set rs=server.createobject("ADODB.recordset")
set rs=.execute
end with