Problemas conexion a DB oracle y recepción de datos

[Tat]

Estimados,

Soy nuevo en el foro y también bastante nuevo en conexión a DB en ASP.

Les comento mi error por si alguno de uds puede comentar algo por más mínimo que sea, será de gran ayuda. Muchas gracias

Mi código se basa en lo siguiente: Se conecta pero a la hora de hacer el :

"set param = comm.createparameter(name,input_type(i),1,327670)"

da el siguiente error:

(SALIDA DEL ASP)
================================================== ======
se establece la conexioN
ADODB.Command error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

================================================== =======


/***********************************************/

function getDB (package,codigo,data,input_type,output_type)
SP_NAME = package&codigo

TNSNAME = "DB"

'on error resume next

USER = "PEPE"
PASSWD = "1234"

CONEX = "Provider=MSDASQL;DRIVER={Microsoft ODBC for ORACLE};UID="& USER &";PWD="& PASSWD &";Server="& TNSNAME

Set Db_Conn = Server.CreateObject("ADODB.Connection")

Db_Conn.Open CONEX
IF Err.Number <> 0 THEN
result = "ERROR"
errMessage = "Failed to connect to database. " + Err.Description
response.write errMessage
Else
response.write("se establece la conexioN")

'SE ESTABLECE LA CONECCION

Set comm = Server.CreateObject("ADODB.Command")
Set comm.ActiveConnection = Db_Conn
comm.commandtext = SP_NAME
' Tuve que comentar el commandtype porque no lo toma en forma correcta
' comm.commandtype = adCmdStoredProc

response.write("Commandtype" & comm.commandtype)

' 'ACA EMPIEZAN A PASARSE LOS PARAMETROS
i = 0
cant_param_in = 0
for each x in data
cant_param_in = cant_param_in + 1
name = "in" & i

response.write("Input Type: " & input_type(i))

if input_type(i) = 1050 then
' Acá se rompe
set param = comm.createparameter(name,input_type(i),1,327670)
else
set param = comm.createparameter(name,input_type(i),1)
end if
comm.parameters.append param
comm(name) = x
i = i + 1
next