Set cmdInsert = server.CreateObject("ADODB.Command")
cmdInsert.ActiveConnection = cnn1 '1 - Connection
cmdInsert.CommandText = "TestAddPO" '2 - storedprocedure name
cmdInsert.CommandType = 4 '3 - type of command "4=adCmdStoredProc"
'******************************************
'Parameter1: Center Id
.parameters.append .CreateParameter("@CenterId", adInteger, adParaminput, 4, CenterId)
'Parameter2: Division Id
.parameters.append .CreateParameter("@DivisionId", adInteger, adParaminput, 4, DivisionId)
'Parameter3: Program Id
.parameters.append .CreateParameter("@ProgramId", adInteger, adParaminput, 4, ProgramId)
'Parameter4: Performance Objective Description
.parameters.append .CreateParameter("@PerformanceObjDescription", adVarChar, adParaminput, 1000, PerformanceObjDescription)
'Parameter5: Person Responsible
.parameters.append .CreateParameter("@OwnerId", adInteger, adParaminput, 4, OwnerId)
'Parameter6: Strategy Id
.parameters.append .CreateParameter("@StrategyId", adInteger, adParaminput, 4, StrategyId)
'Parameter7: Status Id
.parameters.append .CreateParameter("@StatusId", adInteger, adParaminput, 4, StatusId)
'Parameter8: Status Comment
.parameters.append .CreateParameter("@StatusComment", adVarChar, adParaminput, 1000, StatusComment)
'Parameter9: Target Goal
.parameters.append .CreateParameter("@TargetGoal", adDouble, adParaminput, 8, TargetGoal)
'Parameter10: Target Goal Metric
.parameters.append .CreateParameter("@TargetGoalMetricType", adChar, adParaminput, 1, TargetGoalMetricType)
'Parameter11: Target Goal Rate
.parameters.append .CreateParameter("@Rate", adVarChar, adParaminput, 100, Rate)
'Parameter12: Stretch Goal
.parameters.append .CreateParameter("@StretchGoal", adDouble, adParaminput, 8, StretchGoal)
'Parameter13: State Average
.parameters.append .CreateParameter("@StateAverage", adDouble, adParaminput, 8, StateAverage)
'Parameter14: Best County Number
.parameters.append .CreateParameter("@BestCountyN0", adDouble, adParaminput, 8, BestCountyN0)
'Parameter15: Best County Name
.parameters.append .CreateParameter("@BestCountyId", adInteger, adParaminput, 4, BestCountyId)
'Parameter16: Date Submitted
.parameters.append .CreateParameter("@DateSubmitted", adDate, adParaminput, 4, DateSubmitted)
'Parameter17: Date Last Reviewed
.parameters.append .CreateParameter("@DateLastReviewed", adDate, adParaminput, 4, DateLastReviewed)
'Parameter18: Date Estimated Completion
.parameters.append .CreateParameter("@DateEstimatedCompletion", adDate, adParaminput, 4, DateEstimatedCompletion)
'Parameter19: ScoreCard Id
.parameters.append .CreateParameter("@ScorecardId", adInteger, adParaminput, 4, ScorecardId)
'Parameter20: Make Official
.parameters.append .CreateParameter("@MakeOfficial", adTinyInt, adParaminput, 1, MakeOfficial)
'Parameter21: Performance Objective Id
.parameters.append .CreateParameter("@PerformanceObjectiveId", adInteger, adParamOutput, 4, PerformanceObjectiveId)
'Parameter0: stored procedure's return value
.parameters.append .CreateParameter ("RETURN_VALUE", adInteger, adParamReturnValue)
'******************************************
'Run the storedprocedure
.execute lngRecs, , adexecutenorecords
'******************************************
'Extract the return value
lngAdded = .parameters("RETURN_VALUE")
'******************************************
arnniema
|