Il mio db ha due stored procedures con i seguenti parametri:
spWebCliInsert:
IDDenominazioneSociale - int
IDProvincia - char(2)
IDInformatore - int
RagioneSociale - varchar(50)
PIVA - char(11)
Indirizzo - varchar(50)
CAP - char(5)
Citta - varchar(50)
Telefono - varchar(15)
Riultato: IDAnagrafica INT
spWebCliContattoInsert
IDAnagrafica - int
IDFunzione - int
IDTitolo - int
Cognome - varchar(25)
Nome - varchar(25)
Sesso - char(1)
Telefono - varchar(15)
Cellulare - varchar(15)
Fax - varchar(15)
Email - varchar(50)
Risultato: IDContatto INT
Provo ad allegare il mio codice (spudorato copia e incolla di unoscript@lgiorno #312), mi diresti almeno se non ho fatto grosse sciocchezze?
set command = Server.CreateObject("ADODB.Command")
conn.Open connWm
command.ActiveConnection = conn
command.CommandText = "spWebCliInsert"
command.CommandType = adCmdStoredProc
set objParameter = command.CreateParameter ("@IDDenominazioneSociale", adInteger, adParamInput, , IDDenominazioneSociale)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@IDProvincia", adChar, adParamInput, 2, IDProvincia)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@IDInformatore", adInteger, adParamInput, , IDInformatore)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@RagioneSociale", adVarChar, adParamInput, 50, RagioneSociale)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@PIVA", adChar, adParamInput, 11, PIVA)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@Indirizzo", adVarChar, adParamInput, 50, Indirizzo)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@CAP", adChar, adParamInput, 5, CAP)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@Citta", adVarChar, adParamInput, 50, Citta)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@Telefono", adVarChar, adParamInput, 15, Telefono)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@IDAnagrafica", adInteger, adParamOutput, , 0)
command.Parameters.Append objParameter
command.Execute , , adExecuteNoRecords
IDAnagrafica = command.Parameters("@IDAnagrafica")
set command = Server.CreateObject("ADODB.Command")
conn.Open connWm
command.ActiveConnection = conn
command.CommandText = "spWebCliContattoInsert"
command.CommandType = adCmdStoredProc
set objParameter = command.CreateParameter ("@IDAnagrafica", adInteger, adParamInput, , IDAnagrafica)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@IDFunzione", adInteger, adParamInput, , IDFunzione)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@IDTitolo", adInteger, adParamInput, , IDTitolo)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@Cognome", adVarChar, adParamInput, 25, Cognome)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@Nome", adVarChar, adParamInput, 25, Nome)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@Sesso", adChar, adParamInput, 1, Sesso)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@Telefono", adVarChar, adParamInput, 15, Telefono)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@Cellulare", adVarChar, adParamInput, 15, Cellulare)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@Fax", adVarChar, adParamInput, 15, Fax)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@Email", adVarChar, adParamInput, 50, Email)
command.Parameters.Append objParameter
set objParameter = command.CreateParameter ("@IDContatto", adInteger, adParamOutput, , 0)
command.Parameters.Append objParameter
command.Execute , , adExecuteNoRecords