<%@ Import Namespace="System.Data.SqlClient" %> <%@ Import Namespace="System.Data" %> <% Dim conNorthwind As SqlConnection Dim cmdAddProduct As SqlCommand Dim parmProductID As SqlParameter Dim intProductID As Integer conNorthwind = New SqlConnection( "Server=localhost;uid=sa;pwd=secret;database=Northwind" ) cmdAddProduct = New SqlCommand( "AddProduct", conNorthwind ) cmdAddProduct.CommandType = CommandType.StoredProcedure ' Add Return Value Parameter parmProductID = cmdAddProduct.Parameters.Add( "ReturnValue", SqlDbType.Int ) parmProductID.Direction = ParameterDirection.ReturnValue ' Add firstname Input Parameter cmdAddProduct.Parameters.Add( "@ProductName", "Biscuits" ) ' Add lastname Input Parameter cmdAddProduct.Parameters.Add( "@UnitPrice", 23.87 ) conNorthwind.Open() cmdAddProduct.ExecuteNonQuery() intProductID = cmdAddProduct.Parameters( "ReturnValue" ).Value conNorthwind.Close() %> The ID for the new product is <%=intProductID%>