szAppName = "MyApp"
oIISvDir = GetObject("IIS://LocalHost/W3SVC/1/root/"+ szAppName)
*-- Change the way arrays are passed to this COM object
ComArray(oIISvDir, 10)

laErrorDocs = oIISvDir.Get("HttpErrors")
SET EXACT OFF
lnIndex = ASCAN(laErrorDocs,"500,100")

If lnIndex = 0 Then
	lnIndex = Alen(laErrorDocs)+1
	Dimension laErrorDocs(lnIndex)
EndIf

szCustomError = "500,100,URL,/" + szAppName + "/errors.asp"
laErrorDocs(lnIndex) = szCustomError

*-- To store the array you should pass it by refference using put method
oIISvDir.Put("HttpErrors", @laErrorDocs)

*-- Save changes
oIISvDir.SetInfo()

*-- Check value
laErrorDocs = oIISvDir.Get("HttpErrors")
Return