在一个网页中如何调用两次存储过程（急！急！急！急！）--再线等待

[yahoosohu]

我在一个asp页中因为需要，要调用两次存储过程，可是不论怎么调，只有第一个存储过程的结果能出来，第二个出不来，请教高手，怎么写才行呢，以下是我的代码：
<% set conn=Server.CreateObject("adodb.connection")
set cmd=server.CreateObject("adodb.command")
set rs=server.createobject("adodb.recordset") conn.open "Provider=SQLOLEDB;Server=tsgxywxt;Database=bookdatabase;UID=1;PWD=2;"
cmd.activeconnection = conn
cmd.commandtype = AdCmdStoredProc
cmd.commandtext = "bookdetail_fieldout_zjh"
cmd.Parameters.Append cmd.CreateParameter("@firstbooknumber",adChar,adParamInput,14,session("fbook"))
set rs = cmd.execute()
%>
<% =rs.fields(0).name%>+<% =rs.fields(0).value%>+<% =rs.fields(0).Type%>+<% =rs.fields(0).Attributes%>
<%if not rs.eof then
response.write("ok")
else
response.write("error")
end if
%>第一个完，显示结果：ok,并显示第一条记录第一个字段的值
第二个：
<% rs.close '如果注释掉该句，显示结果：ok,并显示地一个存储过程第一条记录第一个字段的值，如果不注释该句，整个网页没有结果。

cmd.commandtext = "bookdetail_locationlist_zjh"
cmd.Parameters.Append cmd.CreateParameter("@firstbooknumber",adChar,adParamInput,14,request.querystring("fbook"))
set rs = cmd.execute()
%>

<%response.write "<BR>"&"guanceng"%>
<% =rs.fields(0).name%>+<% =rs.fields(0).value%>+<% =rs.fields(0).Type%>+<% =rs.fields(0).Attributes%>
<%if not rs.eof then
response.write("ok")
else
response.write("error")
end if
%>
第二个完，显示结果：ok,并显示第一条记录第一个字段的值

[ssm1226]

try:

<%
Response.Buffer=false

set conn=Server.CreateObject("adodb.connection")
set cmd=server.CreateObject("adodb.command")
on error resume next
conn.open "Provider=SQLOLEDB;Server=tsgxywxt;Database=bookdatabase;UID=1;PWD=1;"
cmd.activeconnection = conn
cmd.commandtype = AdCmdStoredProc
cmd.commandtext = "bookdetail_fieldout_zjh"
cmd.Parameters.Append cmd.CreateParameter("@firstbooknumber",adChar,adParamInput,14,session("fbook"))
response.write session("fbook")
set rs = cmd.execute()
%>
<% =rs.fields(0).name%>+<% =rs.fields(0).value%>+<% =rs.fields(0).Type%>+<% =rs.fields(0).Attributes%>

<%if not rs.eof then
response.write("ok")
else
response.write("error")
end if
rs.close
set rs=nothing
cmd.close
set cmd = nothing
set cmd=server.CreateObject("adodb.command")
cmd.activeconnection = conn
cmd.commandtext = "bookdetail_locationlist_zjh"
cmd.Parameters.Append cmd.CreateParameter("@firstbooknumber",adChar,adParamInput,14,request.querystring("fbook"))
'rs.open cmd,,adOpenForwardOnly,adLockReadOnly,adCmdStoredProc
set rs = cmd.execute()
%>
<% =rs.fields(0).name%>+<% =rs.fields(0).value%>+<% =rs.fields(0).Type%>+<% =rs.fields(0).Attributes%>
<%if not rs.eof then
response.write("ok")
else
response.write("error")
end if
%>

[yahoosohu]

多谢！ssm1226(雨中人) ，多谢！

[gzh_seagull]

这是我用的，参考一下

set comm=server.CreateObject("ADODB.Command")
comm.ActiveConnection =Conn
comm.CommandType = 4
comm.CommandTimeout = 30
comm.CommandText ="usp_jiaowangjilu"
comm.Parameters.Append comm.CreateParameter("returncode",adInteger,adParamReturnValue)
comm.Parameters.Append comm.CreateParameter("owner_id",adinteger,adParamInput ,,owner_id)
comm.Parameters.Append comm.CreateParameter("emp_id",adinteger,adParamInput ,,emp_id)
comm.Parameters.Append comm.CreateParameter("flag",adinteger,adParamInput ,,flag)
comm.Parameters.Append comm.CreateParameter("para",adinteger,adParamInput ,,2)
comm.Parameters.Append comm.CreateParameter("cust_id",adinteger,adParamInput ,,cust_id)
comm.Parameters.Append comm.CreateParameter("top",advarchar,adParamInput ,2,15)
set rs2=comm.Execute()
set comm=server.CreateObject("ADODB.Command")
comm.ActiveConnection =Conn
comm.CommandType = 4
comm.CommandTimeout = 30
comm.CommandText ="usp_jiaowangjilu"
comm.Parameters.Append comm.CreateParameter("returncode",adInteger,adParamReturnValue)
comm.Parameters.Append comm.CreateParameter("owner_id",adinteger,adParamInput ,,owner_id)
comm.Parameters.Append comm.CreateParameter("emp_id",adinteger,adParamInput ,,emp_id)
comm.Parameters.Append comm.CreateParameter("flag",adinteger,adParamInput ,,flag)
comm.Parameters.Append comm.CreateParameter("para",adinteger,adParamInput ,,3)
comm.Parameters.Append comm.CreateParameter("cust_id",adinteger,adParamInput ,,cust_id)
comm.Parameters.Append comm.CreateParameter("top",advarchar,adParamInput ,2,15)
set rs3=comm.Execute()

[yahoosohu]

我试了，不行呀

[gzh_seagull]

rs不能相同

[gzh_seagull]

把你使用的代码贴出来

[yahoosohu]

我的代码：
<% set conn=Server.CreateObject("adodb.connection")
set cmd=server.CreateObject("adodb.command")
set rs=server.createobject("adodb.recordset")
on error resume next
conn.open "Provider=SQLOLEDB;Server=tsgxywxt;Database=bookdatabase;UID=1;PWD=1;"
cmd.activeconnection = conn
cmd.commandtype = AdCmdStoredProc
cmd.commandtext = "bookdetail_fieldout_zjh"
cmd.Parameters.Append cmd.CreateParameter("@firstbooknumber",adChar,adParamInput,14,session("fbook"))
response.write session("fbook")
set rs = cmd.execute()
%>
<% =rs.fields(0).name%>+<% =rs.fields(0).value%>+<% =rs.fields(0).Type%>+<% =rs.fields(0).Attributes%>

<%if not rs.eof then
response.write("ok")
else
response.write("error")
end if
%>

<%
set rs1=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
cmd.close
set cmd = nothing
set cmd=server.CreateObject("adodb.command")
cmd.activeconnection = conn
cmd.commandtext = "bookdetail_locationlist_zjh"
cmd.Parameters.Append cmd.CreateParameter("@firstbooknumber",adChar,adParamInput,14,request.querystring("fbook"))
'rs.open cmd,,adOpenForwardOnly,adLockReadOnly,adCmdStoredProc
set rs = cmd.execute()
%>
<% =rs.fields(0).name%>+<% =rs.fields(0).value%>+<% =rs.fields(0).Type%>+<% =rs.fields(0).Attributes%>
<%if not rs.eof then
response.write("ok")
else
response.write("error")
end if
%>