Function AddParams (strProcName, intReportID, strErrDesc)
  Dim lngRetVal
  Dim objCmdParams
  Dim objCn
  Dim n

  On Error Resume Next
  Set objCmdParams = Server.CreateObject ("ADODB.Command")
  Set objCn = Server.CreateObject ("ADODB.Connection")

  objCn.open g_strConnect

  If Err = 0 Then
    ' First delete any existing param info in tblReportParams

    lngRetVal = Exec_asprep_del_tblReportParams (intReportID, strErrDesc)

    If lngRetVal <> 0 Then
      Response.Redirect "Error.asp?ErrNum=" & lngRetVal & "&ErrDesc=" & strErrDesc
      lngRetVal = 0
    End If

    ' Now gather up parameter info.
    With objCmdParams
      .Commandtext = strProcName
      .Commandtype = adCmdStoredProc
      Set.ActiveConnection = objCn
      .Parameters.Refresh

      For n = 1 to.Parameters.Count - 1 ' we want to skip RETURN_VALUE

        ' Add to tblReportParams
        lngRetVal = Exec_asprep_ins_tblReportParams (intReportID, Replace (objcmdparams.Parameters (n).name, "@", ""), strErrDesc)

        If lngRetVal <> 0 Then
          Response.Redirect "Error.asp?ErrNum=" & lngRetVal & "&ErrDesc=" & strErrDesc
          lngRetVal = 0
        End If
      Next
    End With
  End If

  If Err <> 0 Then
    AddParams = Err.Number
    strErrDesc = Err.description
  End If
End Function