home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ims.cab / smerrors.asp < prev    next >
Text File  |  1997-10-12  |  5KB  |  112 lines
  1. <%
  2. '----------------------------------------------------------------------------
  3. '
  4. '
  5. '   File: smerrors.asp
  6. '
  7. '   Description: Error Messages for ADSI objects
  8. '
  9. '   Copyright (C) 1997 Microsoft Corporation
  10. '
  11. '------------------------------------------------------------------------------
  12. Response.Expires = 0 
  13.  
  14. Const E_ADS_BAD_PATHNAME            = &H80005000
  15. Const E_ADS_INVALID_DOMAIN_OBJECT    = &H80005001
  16. Const E_ADS_INVALID_USER_OBJECT        = &H80005002
  17. Const E_ADS_INVALID_COMPUTER_OBJECT    = &H80005003
  18. Const E_ADS_UNKNOWN_OBJECT            = &H80005004
  19. Const E_ADS_PROPERTY_NOT_SET        = &H80005005
  20. Const E_ADS_PROPERTY_NOT_SUPPORTED    = &H80005006
  21. Const E_ADS_PROPERTY_INVALID        = &H80005007
  22. Const E_ADS_BAD_PARAMETER            = &H80005008
  23. Const E_ADS_OBJECT_UNBOUND            = &H80005009
  24. Const E_ADS_PROPERTY_NOT_MODIFIED    = &H8000500A
  25. Const E_ADS_PROPERTY_MODIFIED        = &H8000500B
  26. Const E_ADS_CANT_CONVERT_DATATYPE    = &H8000500C
  27. Const E_ADS_PROPERTY_NOT_FOUND        = &H8000500D
  28. Const E_ADS_OBJECT_EXIST            = &H8000500E
  29. Const E_ADS_SCHEMA_VIOLATION        = &H8000500F
  30.  
  31. L_ADS_BAD_PATHNAME_ERRORMESSAGE            = "Active Directory Pathname is Invalid"
  32. L_INVALID_DOMAIN_OBJECT_ERRORMESSAGE    = "Unknown Active Directory domain object was requested"
  33. L_INVALID_USER_OBJECT_ERRORMESSAGE        = "Unknown Active Directory user object was requested"
  34. L_INVALID_COMPUTER_OBJECT_ERRORMESSAGE    = "Unknown Active Directory computer object was requested"
  35. L_ADS_UNKNOWN_OBJECT_ERRORMESSAGE        = "Unknown Active Directory object was requested"
  36. L_PROPERTY_NOT_SET_ERRORMESSAGE            = "The specified Active Directory Property was not set"
  37. L_PROPERTY_NOT_SUPPORTED_ERRORMESSAGE    = "The specified Active Directory Property is not supported"
  38. L_ADS_PROPERTY_INVALID_ERRORMESSAGE        = "The specified Active Directory Property is invalid"
  39. L_ADS_BAD_PARAMETER_ERRORMESSAGE        = "one or more input parameters are invalid"
  40. L_ADS_OBJECT_UNBOUND_ERRORMESSAGE        = "The specified Active Directory object is not bound"
  41. L_PROPERTY_NOT_MODIFIED_ERRORMESSAGE    = "The specified Active Directory Property has not been modified"
  42. L_CANT_CONVERT_DATATYPE_ERRORMESSAGE    = "The Active Directory datatype cannot be convereted to/from a native DS datatype"
  43. L_PROPERTY_NOT_FOUND_ERRORMESSAGE        = "The Active Directory property cannot be found in the cache"
  44. L_ADS_OBJECT_EXIST_ERRORMESSAGE            = "The Active Directory object exists"
  45. L_ADS_SCHEMA_VIOLATION_ERRORMESSAGE        = "The attempted action vilates the DS schema rules"
  46. L_UNKNOWN_ERRORMESSAGE                    = "An unknown error has occured."
  47.  
  48. '------------------------------------------------------------------------------
  49. '
  50. '    Function: GetErrorMessage(lError)
  51. '
  52. '    Purpose:    Takes in an error number and returns the proper string
  53. '
  54. '    Parameters: lError -> The Error number
  55. '
  56. '    Returns: a string with the proper error message
  57. '
  58. '    Created: 10/6/97: Randy Slape
  59. '
  60. '------------------------------------------------------------------------------
  61. Function GetErrorMessage(lError)
  62.  
  63.     if (lError.Description = "") then
  64.         Select Case lError
  65.             Case E_ADS_BAD_PATHNAME
  66.                 GetErrorMessage = L_ADS_BAD_PATHNAME_ERRORMESSAGE
  67.             Case E_ADS_INVALID_DOMAIN_OBJECT
  68.                 GetErrorMessage = L_INVALID_DOMAIN_OBJECT_ERRORMESSAGE
  69.             Case E_ADS_INVALID_USER_OBJECT
  70.                 GetErrorMessage = L_INVALID_USER_OBJECT_ERRORMESSAGE
  71.             Case E_ADS_INVALID_COMPUTER_OBJECT
  72.                 GetErrorMessage = L_INVALID_COMPUTER_OBJECT_ERRORMESSAGE
  73.             Case E_ADS_UNKNOWN_OBJECT
  74.                 GetErrorMessage = L_ADS_UNKNOWN_OBJECT_ERRORMESSAGE
  75.             Case E_ADS_PROPERTY_NOT_SET
  76.                 GetErrorMessage = L_PROPERTY_NOT_SET_ERRORMESSAGE
  77.             Case E_ADS_PROPERTY_NOT_SUPPORTED
  78.                 GetErrorMessage = L_PROPERTY_NOT_SUPPORTED_ERRORMESSAGE
  79.             Case E_ADS_PROPERTY_INVALID
  80.                 GetErrorMessage = L_ADS_PROPERTY_INVALID_ERRORMESSAGE
  81.             Case E_ADS_BAD_PARAMETER
  82.                 GetErrorMessage = L_ADS_BAD_PARAMETER_ERRORMESSAGE
  83.             Case E_ADS_OBJECT_UNBOUND
  84.                 GetErrorMessage = L_ADS_OBJECT_UNBOUND_ERRORMESSAGE
  85.             Case E_ADS_PROPERTY_NOT_MODIFIED
  86.                 GetErrorMessage = L_PROPERTY_NOT_MODIFIED_ERRORMESSAGE
  87.             Case E_ADS_PROPERTY_MODIFIED
  88.                 GetErrorMessage = L_PROPERTY_NOT_MODIFIED_ERRORMESSAGE
  89.             Case E_ADS_CANT_CONVERT_DATATYPE
  90.                 GetErrorMessage = L_CANT_CONVERT_DATATYPE_ERRORMESSAGE
  91.             Case E_ADS_PROPERTY_NOT_FOUND
  92.                 GetErrorMessage = L_PROPERTY_NOT_FOUND_ERRORMESSAGE
  93.             Case E_ADS_OBJECT_EXIST
  94.                 GetErrorMessage = L_ADS_OBJECT_EXIST_ERRORMESSAGE
  95.             Case E_ADS_SCHEMA_VIOLATION
  96.                 GetErrorMessage = L_ADS_SCHEMA_VIOLATION_ERRORMESSAGE
  97.         End Select
  98.  
  99.         if (GetErrorMessage = "") then
  100.             GetErrorMessage = L_UNKNOWN_ERRORMESSAGE & " " & lError
  101.         end if
  102.     else
  103.         GetErrorMessage = lError.Description
  104.     end if
  105.  
  106. End Function
  107.  
  108. %>
  109. <html>
  110. <head>
  111. </head>
  112. </html>