Ciao a tutti,

sono all'ultima spiaggia..non riesco a rivolvere questo problema ne tantomeno a inquadrarne la natura. Ho fatto una pagina di prova .asp nella quale richiamo una stored su DB2 e alla quale debbo passare dei parametri.

il codice di errore che mi restituisce il browser è il seguente:

Tipo di errore:
Microsoft DB2 OLE DB Provider (0x80040E21)
Si sono verificati errori in un'operazione OLE DB composta da più passaggi. Controllare i singoli valori di stato OLE DB, se disponibili. Nessuna operazione eseguita.

questo è il codice della paginetta:

<!--METADATA Type="typelib"
uuid="{00000205-0000-0010-8000-00AA006D2EA4}"-->

<%

Set conn = Server.CreateObject("ADODB.Connection")
set command = Server.CreateObject("ADODB.Command")


strConn = "Provider=DB2OLEDB;User ID=XXXXXXX;Password=XXXXXX;Initial Catalog=A01DB2;Network Transport Library=TCP;Host CCSID=37;PC Code Page=1252;Network Address=XXXXXX;Network Port=XXXX;Package Collection=COLDASV;Process Binary as Character=False;Units of Work=RUW;DBMS PlatformB2/MVS;Persist Security Info=True;Connection Pooling=True"

conn.Open strConn



command.ActiveConnection = conn


command.CommandType = adCmdStoredProc
command.CommandText = "qualificatore.nomestored"


' parametri di input


set objParameter = command.CreateParameter ("IAZCODPRO", adDecimal , adParamInput, , 70)
command.Parameters("IAZCODPRO").Precision = 2
command.Parameters("IAZCODPRO").NumericScale = 0
command.Parameters.Append objParameter


' parametri di input
set objParameter = command.CreateParameter ("IAZMATAZI", adDecimal, adParamInput, , 129)
command.Parameters("IAZMATAZI").Precision = 6
command.Parameters("IAZMATAZI").NumericScale = 0
command.Parameters.Append objParameter

' parametri di input
set objParameter = command.CreateParameter ("IAZCTRCOD", adDecimal, adParamInput, , 90)
command.Parameters("IAZCTRCOD").Precision = 2
command.Parameters("IAZCTRCOD").NumericScale = 0
command.Parameters.Append objParameter

' parametri di output
set objParameter = command.CreateParameter ("LSCODE", adInteger, adParamOutput)
command.Parameters.Append objParameter

' parametri di output
set objParameter = command.CreateParameter ("LSSTATE", adChar, adParamOutput, 5)
command.Parameters.Append objParameter

' parametri di output
set objParameter = command.CreateParameter ("LSMSG", adVarChar, adParamOutput, 250)
command.Parameters.Append objParameter



command.Execute()


set LSCODE = command.Parameters("LSCODE")
set LSSTATE = command.Parameters("LSSTATE")
set LSMSG = command.Parameters("LSMSG")

Response.write "LSCODE....... " & LSCODE
Response.write "LSSTATE...... " & LSSTATE
Response.write "LSMSG........ " & LSMSG


%>


grazie a tutti per l'attenzione

saluti

mimmo.