Cannot use parentheses when calling a Sub

Thogek, I tried that and got the following error:

Wrong number of arguments or invalid property assignment: 'Parameters.Append'

After finding a similar question I made the changes below, but now I get "Procedure 'wbMcdAdd' expects parameter '@COMPID', which was not supplied."



objCmd.Parameters.Append objCmd.CreateParameter("@COMPID", adInteger, adParamInput, Request("Compid"))       

With further researching I have come up with the following, which seems to work in that I don't get any errors, the records are being inserted , however I am not getting any output value?

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open objConn
Set objCmd = Server.CreateObject("ADODB.Command")
                  
with objCmd
       .ActiveConnection = Conn
        .CommandText = "dbo.wbMcdAdd"
        .CommandType = adCmdStoredProc


      'Set the Command object parameters
      .Parameters.Append .CreateParameter("RESULTS", adVarChar, adParamReturnValue,250)                        
      .Parameters.Append .CreateParameter("@COMPID", adInteger, adParamInput)                                    
      .Parameters.Append .CreateParameter("@COSTID", adInteger, adParamInput)
      .Parameters.Append .CreateParameter("@EMPID", adInteger, adParamInput)
      .Parameters.Append .CreateParameter("@TYPEID", adInteger, adParamInput)
        .Parameters.Append .CreateParameter("@TELNUM", adVarChar, adParamInput, 12)      
        .Parameters.Append .CreateParameter("@TELNUMRANGE", adVarChar, adParamInput, 12)
      .Parameters.Append .CreateParameter("@ACCNUM", adVarChar, adParamInput, 20)
        .Parameters.Append .CreateParameter("@MAKE", adVarChar, adParamInput, 20)                                          .Parameters.Append .CreateParameter("@MODEL", adVarChar, adParamInput, 20)      
        .Parameters.Append .CreateParameter("@SERNUM", adVarChar, adParamInput, 20)      
        .Parameters.Append .CreateParameter("@RESULTS", adVarChar, adParamOutput,250)            
                        
      
      'Set the parameter values
      .Parameters("@COMPID") = Request("Compid")      
      .Parameters("@COSTID")= Request("Cost")
      .Parameters("@EMPID")= Request("empid")
      .Parameters("@TYPEID")= Request("device")
        .Parameters("@TELNUM")= Request("number")      
        .Parameters("@TELNUMRANGE")= Request("numberrange")
      .Parameters("@ACCNUM")= Request("accnum")
        .Parameters("@MAKE")= Request("make")                                                
        .Parameters("@MODEL")= Request("model")      
        .Parameters("@SERNUM")= Request("sernum")                              
                                                                                                      telDET = .Parameters("@RESULTS")                        
      .Execute
end with
                        
 'Dereference the database objects
  Set objCmd = Nothing
  Conn.Close
  Set Conn = Nothing

I added (SET @RESULTS = '') at the start of the SP and all the other data was appened to the results?

It was purely a guess but I didn't think that @RESULTS had to be set to anything?

At least your answer got me researching in the right direction thanks