Code to Enumerate Errors
This section shows how to enumerate any errors generated by the last Profiles resource operation, which includes any errors produced by the underlying technology. For more information, see ProfileService.Errors.
If not already connected, create a ProfileService object, oProfileService, and establish a connection to the Profile Store. For information about connecting to the Profile Store, see Code to Connect to the Profile Store.
Retrieve the Errors collection.
Dim oError, oErrors Set oErrors = oProfileService.Errors
Enumerate any errors that are present.
If oErrors.Count <> 0 Then For Each oError In oErrors Response.Write "<BR> Error number = " & oError.Number & "</BR>" Response.Write "<P>" & oError.Description & "</P>" Next EndIf Set oErrors = Nothing