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") ReturnHTH
Make solutions, not programs!