ASP invokes SQL Server stored program

Calling a database stored procedure
<%set DataConn = Server.CreateObject ("ADODB.") Connection ")
' Establish a Connection object
Dataconn.open "Dsn=sinotrans; Server=app_server; Uid=sa; pwd=; App=microsoft (R) Developer Studio; Wsid=app_server; Regional=yes "
Set cmdtemp = Server.CreateObject ("Adodb.command")
' Create a Command object
Set rst = Server.CreateObject ("ADODB.") Recordset ")
' Set up a Recordset object
Cmdtemp.commandtext = "dbo.pd_test" Stored procedure name
Cmdtemp.commandtype = 4
' Command category is 4, represented as stored procedure
Set cmdtemp.activeconnection = DataConn
Set Tmpparam = Cmdtemp.createparameter ("Return Value", 3, 4, 4)
CmdTemp.Parameters.Append Tmpparam
Set Tmpparam = Cmdtemp.createparameter ("@BeginDate", 135, 1, Riqi)
' Create an input parameter object
CmdTemp.Parameters.Append Tmpparam
Rst. Open cmdtemp, 1, 3
' Generate query Results
%>
The stored procedure called here is pd_test, which is the standard method provided in ADO, but there is a problem that when there are more than two SELECT statements in the stored procedure, but it is logically impossible to execute concurrently, ADO prompts you that there are too many SELECT statements in the stored procedure. The workaround is to execute the stored procedure directly using the Execute method of the ADO Connection object, as follows:
<%
Set DataConn = Server.CreateObject ("ADODB. Connection ")
' Establish a Connection object
Dataconn.open "Dsn=sinotrans; Server=app_server; Uid=sa; pwd=; App=microsoft (R) Developer Studio; Wsid=app_server; Regional=yes "
SS = "EXECUTE dbo.pd_test" & "" & Riqi1 & "" "
Set rs = DataConn. Execute (SS)
%>