<%@ Import Namespace="System.Data.SqlClient" %> <%@ Import Namespace="System.Data" %> <% Dim conNorthwind As SqlConnection Dim cmdAddunique As SqlCommand Dim parmReturnValue As SqlParameter conNorthwind = New SqlConnection( "Server=localhost;uid=sa;pwd=secret;database=Northwind" ) cmdAddUnique = New SqlCommand( "AddUniqueProduct", conNorthwind ) cmdAddUnique.CommandType = CommandType.StoredProcedure ' Add Return Value Parameter parmReturnValue = cmdAddUnique.Parameters.Add( "ReturnValue", SqlDbType.Int ) parmReturnValue.Direction = ParameterDirection.ReturnValue ' Add product name Input Parameter cmdAddUnique.Parameters.Add( "@ProductName", "Milk" ) ' Add unit price name Input Parameter cmdAddUnique.Parameters.Add( "@UnitPrice", 43.89 ) ' Execute Command conNorthwind.Open() cmdAddUnique.ExecuteNonQuery() If cmdAddUnique.Parameters( "ReturnValue" ).Value = 0 Then Response.Write( "New Product Added!" ) Else Response.Write( "Product already exists!" ) End If conNorthwind.Close() %>