> with cmd > .ActiveConnection = dbConn > .CommandText = "USP_Insert_ShoppingCartInfo" > .CommandType = adCmdStoredProc > .CommandTimeout = 7200 > > '@tcUserID varchar(20), > '@tnNumOfRecords int, > '@tcDescription text, > '@tcCreditCategory char(1), > '@tcSelectionCriteria text, > '@tcListOfCodes varchar(8000), > '@tnCartID int OUTPUT > > .Parameters.Append .CreateParameter("Return",adInteger,adParamReturnValue) > > .Parameters.Append .CreateParameter("@tcUserID",adVarChar,adParamInput,20,CreditUserID) > > .Parameters.Append .CreateParameter("@tnNumOfRecords",adInteger,adParamInput,,NumRecs) > > .Parameters.Append .CreateParameter("@tcDescription",adChar,adParamInput,200,cStr(strDescription)) > > .Parameters.Append .CreateParameter("@tcCreditCategory",adChar,adParamInput,1,CreditCategory) > > .Parameters.Append .CreateParameter("@tcSelectionCriteria",adVarChar,adParamInput,8000,SelectionCriteria) > > .Parameters.Append .CreateParameter("@tcListOfCodes",adVarChar,adParamInput,8000,ListOfCodes) > >' 7th parameter is Output parameter > .Parameters.Append .CreateParameter("@tnCartId",adBigInt,adParamOutput, ,CartId) > .Execute recs, , adExecuteNoRecords > retval = .Parameters(0) > CartID = .Parameters(7) > end with > > CloseCmd(cmd) > CloseDBConn(dbConn) >end function>