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.

1. 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.

2. Retrieve the Errors collection.

   Dim oError, oErrors
   Set oErrors = oProfileService.Errors
   

3. 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
   

All rights reserved.