Please Help,Oracle 9I Store Proc and ASP.

[Rick]

Package header named RecordSetPKG as follows


as
--Package defines the type ref cursor stored procedures will use varables
of this type to stored
--multple records back to the calling stored procedure
TYPE m_refcur IS REF CURSOR;
end Recordsetpkg;



Procedure is

CorpGoalSelect


(SelYear in int,io_cursor OUT recordsetpkg.m_ refcur)
is

Begin
open io_cursor for
SELECT * FROM CorpGoals where CorpYear=SelYea r order by CorpOrder;


END CorpGoal_Select ;

-----------------following Code I thought should
work-----------------------------------------------------------------------



Dim cnnOracle

Dim cmdStoredProc

Dim rsEmp

Set cnnOracle = Server.CreateOb ject("ADODB.Con nection")

cnnOracle.Curso rLocation = adUseClient

cnnOracle.Open "Provider=OraOL EDB.Oracle;" & _

"Data Source=database name;" & _

"User Id=login;" & _

"Password=passw ord"





Set cmdStoredProc = Server.CreateOb ject("ADODB.Com mand")

Set cmdStoredProc.A ctiveConnection = cnnOracle 'Call the above procedure.








'This code creates a command object.

Set cmdStoredProc = Server.CreateOb ject("ADODB.Com mand")

Set cmdStoredProc.A ctiveConnection = cnnOracle


'Retrieve all records.



cmdStoredProc.C ommandText = "{call packperson.allp erson({'1998',r esultset
9,})}"



cmdStoredProc.C ommandType = adCmdText

'This code creates a recordset object.

Set rsEmp = Server.CreateOb ject("ADODB.Rec ordset")

rsEmp.CursorTyp e = adOpenStatic

Set rsEmp.Source = cmdStoredProc



rsEmp.Open







cnnOracle.close

set cnnOracle = Nothing


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.534 / Virus Database: 329 - Release Date: 11/1/2003

[dlbjr]

Re: Please Help,Oracle 9I Store Proc and ASP.

Dim cnnOracle
Dim cmdStoredProc
Dim rsEmp

Set cnnOracle = Server.CreateOb ject("ADODB.Con nection")
cnnOracle.Open "Provider=OraOL EDB.Oracle;" & _
"Data Source=database name;" & _
"User Id=login;" & _
"Password=passw ord"

Set cmdStoredProc = Server.CreateOb ject("ADODB.Com mand")
Set cmdStoredProc.A ctiveConnection = cnnOracle
cmdStoredProc.C ommandText = "{call
packperson.allp erson({'1998',r esultset9,})}"
cmdStoredProc.C ommandType = adCmdText
Set rsEmp = Server.CreateOb ject("ADODB.Rec ordset")
rsEmp.Open cmdStoredProc.E xecute
set rsEmp = Nothing
rsEmp.close
set cnnOracle = Nothing
set cmdStoredProc = Nothing

--
-dlbjr

Discerning resolutions for the alms