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