Datatype problem with MSDAORA provider

[Hakimca]

Hi All,

We are using Oracle 8.1.7 on windows 2000. We are experiencing some problems with fields declared as numeric, decimal or integer. It works only with string. Is there a setting we are missing to get the correct datatype of the fields defined in the returned recordset.


here is the asp program.

Dim conn
set conn = server.CreateObject( "ADODB.Connection")
conn.Open "Provider=MSDAORA.1;Persist Security Info=False;Data Source=ora817", "puser", "puser"

Dim cmd
set cmd = server.CreateObject( "ADODB.Command" )

Set cmd.ActiveConnection = conn
cmd.CommandText = "ORGNQORGDEFAULTS"
cmd.CommandType = 4 ' adCmdStoredProc

Dim rs
Set rs = cmd.Execute

on error resume next
Response.Write rs.Fields(0).Value
Response.Write typename(rs.Fields(0).value)
if err.number <> 0 then
response.Write "This data type is not supported"
end if


And here is the stored procedure invoked in the program



CREATE OR REPLACE PROCEDURE ORGNQORGDEFAULTS
(
RCT1 IN OUT GLOBALPKG.RCT1
)
AS
BEGIN

OPEN RCT1 FOR
SELECT
ADMUSERID,
BATCHADMINUSERID,
MAILADMINUSERID,
ROOTLEAVETIME,
WTYPE_VACATION,
WTYPE_SICKLEAVE,
WTYPE_PERSDAY,
WTYPE_HOLIDAY,
WTYPE_LUNCHBREAK,
WTYPE_VOTING,
WTYPE_JURYDUTY,
WTYPE_WEDDING,
WTYPE_BEREAVLEAVE,
WTYPE_MEDAPPOITM,
WTYPE_MAT_PATLEAVE,
WTYPE_OVERTIME,
ROOTCHARGWORKTYPE,
TASK_VACATION,
TASK_BANKOVERTIME,
TASK_SICKLEAVE,
TASK_PERSDAY,
TASK_HOLIDAY,
TASK_LUNCHBREAK,
TASK_VOTING,
TASK_JURYDUTY,
TASK_WEDDING,
TASK_GRIEVLEAVE,
TASK_MEDAPPOITM,
TASK_MAT_PATLEAVE,
ROOTEXPWRKFLMAP,
ROOTPURWRKFLMAP,
ROOTWRKFLMAP,
ROOTTIMEWRKFLMAP,
ROOTCHARGESITEM,
ROOTHARGESTIME,
ROOTHARGESMONEY,
ROOTRESOURCETYPE,
RESTYPEEMPLOYEES,
RESTYPEVENDORS,
RESTYPEEQUIPMENTS,
RESTYPECLIENTS,
RESTYPEPARTNERS,
ROOTINVWRKFLMAP,
PURITEMEQUIPMENT,
PURITEMMATERIAL,
PURITEMMISC,
PURITEMSERVICES,
PURITEMSUPPLIES,
PURITEMTRAVEL,
WFLW_PROJINITIATION,
WFLW_OPPORTUNITY,
WFLWMP_SUBWFLTIME,
WFLWMP_SUBWFLEXPE,
WFLWMP_SUBWFLPUR,
WFLWMP_SUBWFLINVO,
WFLWMP_SUBWFLWFLMP,
SECPR_ADMIN,
SECPR_GENCLIENT,
SECPR_GENSUPPLIER,
SECPR_STDPARTNER,
SECPR_STDUSER,
ROOTBUSINESSUNIT,
WFLW_RESOURCEREQ,
WFLW_TRAININGREQ,
WFLW_TRAVELREQ,
WFLW_LEAVEREQ,
WFLW_SKILUPDATEREQ,
WFLW_REQUEST,
WFLW_TASKREQUEST,
SECPR_PRJMGR,
SECPR_MGR,
WFLW_KNOWBASE,
WFLW_ACTIONITEM,
ROOTWORKFLOWID,
ROOTPAYCODE,
ROOTFOLDER,
TASKFOLDER,
PROJFOLDER,
EXPENTFOLDER,
PURORDFOLDER,
PURENTFOLDER,
PURITEMFOLDER,
WORKFLFOLDER,
USERFOLDER,
CLIENTFOLDER,
EXPREPFOLDER,
PURRECFOLDER,
ASSIGNMFOLDER,
TIMESHFOLDER,
TIMEENTFOLDER,
CONTRACTFOLDER,
WORKTYPEFOLDER,
DETTIMEENTFOLDER,
CLIENTCONTFOLDER,
SUBWTIME.UNIQUEID SUBWORKFLOWTIME,
SUBWEXPE.UNIQUEID SUBWORKFLOWEXP,
SUBWPUR.UNIQUEID SUBWORKFLOWPUR,
PROJECTINTERNAL,
WRFLENT_DEFAULT,
WFLWMP_SUBWFLREQ,
ROOTVENDORTYPE,
ROOTREQUISITIONTYPE,
ROOTREQWRKFLMAP
FROM PUSER.TORGDEFAULTS,
TORGANIZATION,
TSECORGDEFAULTS,
TFOLDERORGDEFAULTS,
TTIMESHEETWORKFLOW SUBWTIME,
TEXPWORKFLOW SUBWEXPE,
TPURWORKFLOW SUBWPUR
WHERE TORGDEFAULTS.ORGANIZATIONID = TORGANIZATION.ORGUNIQUEID
AND TSECORGDEFAULTS.ORGANIZATIONID = TORGANIZATION.ORGUNIQUEID
AND TFOLDERORGDEFAULTS.ORGANIZATIONID = TORGANIZATION.ORGUNIQUEID
AND TORGDEFAULTS.WFLWMP_SUBWFLTIME = SUBWTIME.WORKFLOWMAPID
AND TORGDEFAULTS.WFLWMP_SUBWFLEXPE = SUBWEXPE.WORKFLOWMAPID
AND TORGDEFAULTS.WFLWMP_SUBWFLPUR = SUBWPUR.WORKFLOWMAPID
AND (TORGANIZATION.ORGNAME = 'TENROX');
END;
/

[Hakimca]

RCT1 is a REF CURSOR