allora sono cotto!!, non riesco a recuperare i parametri di output che mi restituisce un file di classe.
(sp_inerimento)
AS
IF EXISTS
(
SELECT
..........
WHERE,,,,,,,,= @,,,,,,, )
Return 1
ELSE
INSERT INTO ....... (
)
VALUES
(
@ModelNumber,
)
SELECT

@ProductId = @@Identity

--------------------------




...dopo aver passato i parametri di imput cerco di recuperare 2 parametri di output posti in un componente esterno

------------------------Classe.vb---------
Dim parameterPID As New SqlParameter("@ProductId", SqlDbType.Int, 4)
parameterPID.Direction = ParameterDirection.Output
myCommand.Parameters.Add(parameterPID)

Dim parameterRET As New SqlParameter("@ModelNumber", SqlDbType.Int, 4)
parameterRET.Direction = ParameterDirection.Output
myCommand.Parameters.Add(parameterRET)

Try

myConnection.Open()
myCommand.ExecuteNonQuery()
myConnection.Close()

Dim RET As Integer = CInt(parameterRET.Value)
If RET = 0 Then
Return RET.ToString()
Else
Return String.Empty
End If

Dim productId As Integer = CInt(parameterPID.Value)
Return productId.ToString()

Catch
Return String.Empty
End Try

End Function
-------------------------------------------
Ok
Poi ho il form:Isert.aspx.vb---------------
---------------------
InsertProdotti.InsertProdotti _
(CStr(Server.HtmlEncode(TxtCod.Text.Trim)), _
CStr(Server.HtmlEncode(TxtMod.Text.Trim)),

.....-------------------
ma come recupero i parametri di output sul form?
ParameterRET serve per fare il controllo che il prodotto non ci sia già
E il parametro dell' id "productID" lo vorrei mostrare a video se l'inserimenbto va a buon fine.

graie ciao

Si andrebbe bene anzi meglio, anche perchè ho solo un valore da recuperare, ma così non ho il numero di id prodotto da stampare a video.
in pratica viene fuori così:

[....]
................
myCommand.Parameters.Add(parameterIva)
Dim pid As Integer
Try
myConnection.Open()
myCommand.ExecuteNonQuery()
pid = myCommand.ExecuteScalar()
myConnection.Close()
If pid > 0 Then
Return pid.ToString
End If
Catch
Return String.Empty
End Try
End Function
------
Poi sul form aspx:
[...]
Dim InsertProdotti As new namespace.classe
Dim pid As String
if pid <>""
'insereisco i dati
Giusto?
ciao grazie

Ok ma :
Dim pid As Integer

myConnection.Open()
pid = myCommand.ExecuteScalar()
myConnection.Close()

If pid > 0 Then
Return pid.ToString
Else

Return String.Empty
If pid <= 0 Then
Return String.Empty
End If
End If

e cosi mi inserisce o meno i dati(a parte la schifezza del de secondo if ma solo per capire) ma come faccio a prelevare il numero restituito dalla variabile "pid" sulla pagina .aspx?
ti metto come è scritto il codice
------------DBlogig.vb------------------------------
Public Function InsertProdotti(ByVal ModelNumber As String, ByVal ModelName As String, _
ByVal ProductImage As String, ByVal ThumbImage As String, ByVal UnitCost As Decimal, ByVal netto As Decimal, _
ByVal description As String, ByVal Disponibilita As Integer, ByVal news As Boolean, _
ByVal promo As Boolean, ByVal CategoryId As Integer, ByVal IdFornitore As Integer, _
ByVal IdSubCat As Integer, ByVal iva As Integer) As Integer
[connessione e parametri]
Dim pid As Integer

myConnection.Open()
pid = myCommand.ExecuteScalar()
myConnection.Close()

If pid > 0 Then
Return pid.ToString
Else

Return String.Empty
If pid <= 0 Then
Return String.Empty
End If
End If
------------------------------------------
---------file.aspx.vb----------------------------------
Private Sub BntUpdt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BntUpdt.Click
Dim InsertProdotti As HP.garage.ProdDB = New HP.garage.ProdDB
InsertProdotti.InsertProdotti _
[....]
(DdlIva.SelectedValue)
End Sub