>>>>>With the help of some skilled VFP coders on the UT, I am having some fun with a web bot.
>>>>>I had success by splitting it into two parts. The first, using a homepage URL retrieved the sub URLs from the href HTML in the a home page
>>>>>The second part used the (saved in a table) URLs to navigate to the pages and retreive the text.
>>>>>
>>>>>Now I am having trouble merging the concept into one piece of code. Here's what's happening:
>>>>>
>>>>>I use this segment of code to get the href URLS
>>>>>

>>>>>o = CREATEOBJECT("InternetExplorer.Application")
>>>>>o.VISIBLE=.F.
>>>>>o.NAVIGATE(lcURL)
>>>>>FOR EACH loLink IN o.DOCUMENT.Links
>>>>>lcURL = [ ] + loLink.Href + [ ]
>>>>>
>>>>>o.NAVIGATE(lcURL) 
>>>>>* The error generated is OLE Error code 0x80070005: Access is denied.
>>>>>

>>>>>* I want to navigate to each lcURL as it is retreived, process the text and then navigate to the next href lcURL
>>>>>* until the website's href URLs have been processed, then move on to the next homepage and process its href URLs
>>>>>
>>>>>ENDFOR && below a lot of filtering code etc.
>>>>>
>>>>>Is there a solution for this or should I collect all the href URLs from all the sites into a table and then proceed with return visits to collect text?
>>>>
>>>>
>>>>Maybe you should wait till ReadyState = 4 :
>>>>

>>>>...
>>>>o.NAVIGATE(lcURL)
>>>>DO WHILE NOT o.ReadyState == 4
>>>>   InKey(0.1)
>>>>ENDDO
>>>>..
>>>>

>>>
>>>ReadyState may never become 4 and the program will stuck in endless loop
>>
>>OK, :-)
>>And some timeout.
>>
>>

>>ldDateTime = DATETIME()
>>
>>o.NAVIGATE(lcURL)
>>lnTimeOut = .f.
>>DO WHILE NOT o.ReadyState == 4
>>   IF DATETIME() - ldDateTime < 10 && 10 secs timeot
>>      lnTimeOut = .t.
>>      EXIT
>>   ENDIF
>>   InKey(0.1)
>>ENDDO
>>IF m.lnTimeOut
>>   ****
>>ENDIF
>>

>
>
>New error - The requested resource is in use.
>I may have to destroy and recreate the object.
>More code below
>
>
>

>SELECT seedURLs
>GO TOP
>SCAN && FOR ALLTRIM(subject) = "business"
>	lcURL = Seed
>	TRANSFORM(lcURL)
>	o.NAVIGATE(lcURL)
>	WAIT 'Navigating!' WINDOW TIMEOUT 3
>	FOR EACH loLink IN o.DOCUMENT.Links
>		lcURL = [ ] + loLink.Href + [ ]
>
>ldDateTime = DATETIME()
>o.NAVIGATE(lcURL)
>
>lnTimeOut = .f.
>DO WHILE NOT o.ReadyState == 4
>   IF DATETIME() - ldDateTime < 10 && 10 secs timeot
>      lnTimeOut = .t.
>      EXIT
>   ENDIF
>   InKey(0.1)
>ENDDO
>IF m.lnTimeOut
>? "GOT HERE   ****"
>ENDIF		
>

You use FOR EACH loLink IN o.DOCUMENT.Links

then you suddenly change o.DOCUMENT

Maybe you should use second instance of IE to get child links?