请帮忙看看这个调用错哪儿哪?为什么cmd显示状态为关闭
<%
dim str
set cmd=server.CreateObject("ADODB.Command")
str = "{call MsMsgPack1.SelectMsProduct1({resultset 100,themsg,thescts})}"
With cmd
.CommandText = str
.ActiveConnection = conn
.CommandType = 4
'.Parameters.Append cmd.CreateParameter("m_da",200,1,15,request.Form("ms"))
'.Parameters.Append cmd.CreateParameter("m_scts",7,1,,request.Form("datename"))
End With
rs.CursorLocation = 3'adUseClient
'response.Write(cmd.State)
rs.Open cmd 《----------------------这里报错
'Do While Not rs.EOF
' Debug.Print rs.Fields(0).Value & vbTab & rs.Fields(1).Value
' rs.MoveNext
'Loop
set cmd = nothing
%>