> >LOCAL loSpider >LOCAL lnSuccess >LOCAL i >LOCAL lcUrl > >loSpider = CreateObject('Chilkat.Spider') > >loSpider.Initialize("directory.google.com") >loSpider.AddUnspidered("http://directory.google.com/Top/Recreation/Food/Cheese/") > >lnSuccess = loSpider.CrawlNext() > > >FOR i = 0 TO loSpider.NumOutboundLinks - 1 > ? loSpider.GetOutboundLink(i) >NEXT > >>
FOR i = 0 TO loSpider.NumOutboundLinks - 1 * ? loSpider.GetOutboundLink(i) insert into CrawlInfo (URL) values (loSpider.GetOutboundLink(i)) NEXT select CrawlInfo browseCrawlInfo will be your free table.