XML CLOB out from a stored procedure

Question

I'm using Oracle 8.1.7 and OO4O(Oracle Objects for OLE)
8.1.7.0.1
I'm generating an XML string in a CLOB using the XSU in a stored
procedure.
I'm then trying to pass the CLOB as an out parameter for that
procedure to an
ASP page using OO4O. I get the following error on the line
where I call the ExecuteSql
method of the OO4O Database object:
Error Type:
Oracle Automation (0x800A01B8)
OIP-04796: Error in creating object instance
If anyone can give me a a solution to this or a better way to
do it I would much appreciate it. I've tried using a function
as well.
It does work if the CLOB is pulled from a database field, so I
think
the problem lies in the CLOB coming from the getXML method.
Since I'm
creating and XML datagram from relational tables, it doesn't
make much
sense to save the generated XML to a CLOB field and then load it
right
back to pass to the web page.
Thanks in advance...
Here's my code for the stored procedure:
Procedure SP_INI_XML
(result OUT CLOB)
IS
queryCtx SYS.DBMS_XMLQuery.ctxType;
begin
queryCtx := SYS.DBMS_XMLQuery.newContext(... SQL
statement ...);
SYS.DBMS_XMLQuery.setRowTag(queryCtx,'INI');
SYS.DBMS_XMLQuery.setRowsetTag(queryCtx,'ROOT');
SYS.DBMS_XMLQuery.setXSLT(queryCtx, 'http://site/file.xsl');
result := SYS.DBMS_XMLQuery.getXML(queryCtx);
SYS.DBMS_XMLQuery.closeContext(queryCtx);
end;
Here's my code from the ASP page:
Set ses = Server.CreateObject("OracleInProcServer.XOraSession")
Set con = ses.OpenDatabase(DBServer,ConStr,0)
Const ORATYPE_CLOB = 112
con.Parameters.Add "str",Null,2,ORATYPE_CLOB
con.ExecuteSql("begin SP_INI_XML(:str);end;")

Answer 1

Ah yes I see. Sorry I misunderstood what you were suggesting. I'm currently working on a test script that uses an approach similar to the one you mentioned, but I'm having trouble resolving foreign key relationships with test data.
I've no access to the tables or anything so it's proving to be a time consuming task!!
Is it required that all fields are given a value, even if they have a "DEFAULT" defined for them within the procedure. At the moment I'm using a rather cumbersome approach to this:
i.e.
With cmmAddRequest
    .ActiveConnection = strConnect
    .CommandType = adCmdText
    .CommandText = strSQL
    .Parameters(0).Direction = adParamInput
    .Parameters(1).Direction = adParamInput
    .Parameters(2).Direction = adParamInput
    .Parameters(3).Direction = adParamOutput
    .Parameters(4).Direction = adParamOutput
    .Parameters(5).Direction = adParamOutput
    .Parameters(0).Value = "COMP"
    .Parameters(1).Value = "FRML"
    .Parameters(2).Value = "1"
    .Execute
    WScript.Echo(.Parameters(5).Value)
End With