'Dim strCon
strCon = "Driver={Microsoft ODBC for Oracle};" &_
"CONNECTSTRING=(DESCRIPTION=" &_
"(ADDRESS=(PROTOCOL=TCP)" &_
"(HOST=test)(PORT=1521))" &_
"(CONNECT_DATA=(SERVICE_NAME=basetwo)));uid=test;pwd=test;"

'Dim oCon
'Dim oRs
'Dim oCMD
set oCMD = Server.CreateObject("ADODB.Command") 
set oCon = Server.CreateObject("ADODB.Connection")
set oRs = Server.CreateObject("ADODB.Recordset")
oCon.Open strCon

Set oCMD.ActiveConnection = oCon
set oCMD.CommandText = "TestScheme.TestServer.Test(?,?,?,?,?,?,?)"
set oCMD.CommandType = adCmdStoredProc
set oCMD.NamedParameters = True

oCMD.Parameters.Append(oCMD.CreateParameter("aDateFrom", adDBDate, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter("aDateTo", adDBDate, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter("aRURLimit", adNumeric, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter("aUSDLimit", adNumeric, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter("aEURLimit", adNumeric, adParamInput))
oCMD.Parameters.Append(oCMD.CreateParameter("aP1", adVarChar, adParamInput, 50 ))
oCMD.Parameters.Append(oCMD.CreateParameter("aP2", adVarChar, adParamInput, 50 ))

oCMD.Parameters("aDateFrom").Value = ZDate(D1,"")
oCMD.Parameters("aDateTo").Value = ZDate(D2,"")
oCMD.Parameters("aRURLimit").Value = X1
oCMD.Parameters("aUSDLimit").Value = X2
oCMD.Parameters("aEURLimit").Value = X3
oCMD.Parameters("aP1").Value = Q1
oCMD.Parameters("aP2").Value = Q2

Set oRs = oCon.Execute

Procedure Proc1(aParam1 In Integer, aParam2 Out Sys_RefCursor) Is
Begin
...
end;

oCon.Open strCon
oCMD.ActiveConnection = oCon
oCMD.CommandText = "test(?,?,?,?,?,?,?)"
oCMD.CommandType = adCmdStoredProc
oCMD.NamedParameters = True
oCMD.Parameters.Refresh

Do Until oRs.EOF
  Debug.Print oRs("ID"), oRs("Name")
  oRs.MoveNext
Loop
oRs.Close
set oRs=Nothing

Procedure Test(aDateFrom   Date,
                             aDateTo     Date Default SysDate,
                             aRURLimit   Float Default  300000 ,
                             aUSDLimit   Float Default  10000 ,
                             aEURLimit   Float Default  7000 ,
                             aCursor     Out TRefCursor)

Dim strCon
Dim oCon
Dim oRs
Dim oCMD

strCon = "Driver={Oracle in Oracle_V9i};Dbq=basetwo.world;uid=test;pwd=test;"
'strCon = "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;uid=test;pwd=test;Data Source=ora_basetwo;"
'strCon = "Driver={Microsoft ODBC for Oracle};Server=vosw00000495;uid=test;pwd=test;"

Set oCMD = CreateObject("ADODB.Command")
Set oCon = CreateObject("ADODB.Connection")
Set oRs = CreateObject("ADODB.Recordset")
Set oParam = CreateObject("ADODB.Parameter")

oCon.Open strCon
oCMD.ActiveConnection = oCon
oCMD.CommandText = "reports.test"
oCMD.CommandType =  4 
oCMD.NamedParameters = True
oCMD.Parameters.Refresh

oCMD.Parameters("aDateFrom").Value = DateSerial( 2010 ,  1 ,  1 )
oCMD.Parameters("aDateTo").Value = DateSerial( 2010 ,  5 ,  1 )
oCMD.Parameters("aRURLimit").Value =  300000 
oCMD.Parameters("aUSDLimit").Value =  10000 
oCMD.Parameters("aEURLimit").Value =  7000 

Set oRs = oCMD.Execute

type TRefCursor is ref cursor;
--type TRefCursor is Sys_RefCursor;
Procedure Test(RET        Out TRefCursor,
                             aDateFrom   Date,
                             aDateTo     Date Default SysDate,
                             aRURLimit   Float Default  300000 ,
                             aUSDLimit   Float Default  10000 ,
                             aEURLimit   Float Default  7000 );

CREATE OR REPLACE PACKAGE Test_reports IS
Function Cursor_Test(aTest VarChar2) Return Sys_refCursor;
End Test_Reports;

CREATE OR REPLACE PACKAGE BODY Test_reports IS

Function Cursor_Test(aTest VarChar2) Return Sys_refCursor
Is
fReturn   Sys_RefCursor;
Begin
 		 Open fReturn For select '01' Test from dual
                union select '02' Test from dual;
     Return fReturn;
Exception
         When Others Then
				      Raise;
End Cursor_Test;

End Test_Reports;

Sub Test()
Dim strCon
Dim oCon
Dim oRs
Dim oCMD

strCon = "Provider=MSDAORA.1; Data Source=test; User ID=test; Password=test"
Set oCMD = CreateObject("ADODB.Command")
Set oCon = CreateObject("ADODB.Connection")
Set oRs = CreateObject("ADODB.Recordset")

oCon.Open strCon
oCMD.ActiveConnection = oCon
oCMD.CommandText = "Test_Reports.Cursor_Test"
oCMD.CommandType =  4 
oCMD.NamedParameters = True
oCMD.Parameters.Refresh

oCMD.Parameters("aTest").Value = "TEST"

Set oRs = oCMD.Execute
Do Until oRs.EOF
  Debug.Print oRs("Test")
  oRs.MoveNext
Loop
oRs.Close
Set oRs = Nothing
End Sub