Vrátí hodnotu a sadu výsledků z uložené procedury classic asp

Už to děláte, stačí obojí zkombinovat.

Set cmd = CreateObject("ADODB.Command")
with cmd
    .ActiveConnection = cnnstr
    .CommandType = adCmdStoredProc
    .CommandText = "CheckEmployeeId"
    .Parameters.Refresh
    .Parameters("@EmployeeName") = EmployeeName
    Set rst = .Execute()
end with
'You will need to close the Recordset before returning the RETURN_VALUE.
RetVal = cmd.Parameters("@RETURN_VALUE")

Nemusíte si vybrat jedno nebo druhé, jsou na sobě nezávislé. Jediným problémem bude objednávka, kterou vrátí, nezapomeňte, že obě OUTPUT a RETURN hodnoty nebudou dostupné, dokud nebudou uzavřeny všechny vrácené sady záznamů.

Osobně je raději rovnou zavřu uložením jako 2-dimenzionální pole.

Set cmd = CreateObject("ADODB.Command")
with cmd
    .ActiveConnection = cnnstr
    .CommandType = adCmdStoredProc
    .CommandText = "CheckEmployeeId"
    .Parameters.Refresh
    .Parameters("@EmployeeName") = EmployeeName
    Set rst = .Execute()
    If Not rst.EOF Then data = rst.GetRows()
    Call rst.Close()
end with
RetVal = cmd.Parameters("@RETURN_VALUE")

'Access Recordset array
If IsArray(data) Then
  'Return first column, first row.
  Response.Write data(0, 0)
End If