I'm having some problems dealing with a VB script which delivers multiple results back from SQL Server.  The script opens a connection to SQL 2000 and executes a procedure.  The stored procedure has five select statements for its result.  I receive a recordset object and try to move through each resultset.  I get the first two result sets but when I execute the rs.nextrecordset on the third result, the rs.EOF is set to true and I never receive the third through fifth result set.  The only difference I see from the stored procedure is that the first two result sets are "Select"s from local variables (ie @headertxt) and the third through the fifth result set are "Select"s from temporary (#tmptble) tables.  I can't determine the root cause of why I can't see the third though fifth result set.  I have "set nocount on" in the procedure.  I have executed the stored procedure in Query Analyzer under the same ID/PW that I'm setting the connection with in the VBS.  No errors are generated from the execution of the stored procedure.  I'm running MDAC 2.81 on the workstation. 
VBS:

dim Conn, strProvider, rs, SQL, i, j
dim asoftime, errorcode, cur1, cur2, atype, asofdate, display_title

'Get the data

Set Conn = Wscript.CreateObject("ADODB.Connection")

Conn.CommandTimeout = 60
Conn.ConnectionTimeout = 60
dim datasource
datasource = "ljcasement\ascap"


strProvider = "Provider=SQLOLEDB; Data Source=" & datasource & "; Initial Catalog=s; User ID=frndis; Password=frndis1; Connect Timeout=15; Persist Security Info=True;UseProcForPrepare=0"

SQL = "exec s.dbo.prcWebGetMostActiveSongs @currency = 'USD'"


Conn.Open strProvider

Set rs = Conn.Execute(SQL)

asoftime = rs(0)

wscript.echo asoftime, rs.Fields.Count

set rs = rs.nextrecordset
cur1 = rs(0)
cur2 = rs(1)
atype = rs(2)
display_title = replace(rs(3), "&", "&")


wscript.echo cur1
wscript.echo cur2
wscript.echo atype
wscript.echo display_title, rs.Fields.Count

set rs = rs.nextrecordset

wscript.echo rs.Fields.Count

'grand total

while (not rs.eof)
for i = 0 to rs.Fields.Count - 1
wscript.echo rs(i)
next


rs.movenext

wend

wscript.echo "finished grand"


set rs = rs.nextrecordset
'mostactive total

while (not rs.eof)

rs.movenext

wend

wscript.echo "finished MA"


set rs = rs.nextrecordset
i = 0
'details

while (not rs.eof)
i = i + 1
rs.movenext

wend

wscript.echo "finished details", i


rs.close
Conn.Close
set rs = nothing

set Conn = nothing



Thanks,
Sid