no. of links in a webpage

[stevol]

hi,
here an example with ChildObjects:

Code:

Dim brow, pag, descrLink, objLink, NoOfLink
Set brow       = Browser("property1:=value1", "propertyN:=valueN")
Set pag        = brow.Page("property1:=value1", "propertyN:=valueN")
Set descrLink  = Description.Create()
descrLink("Class Name").value="Link"
Set objLink    = pag.ChildObjects(descrLink)
NoOfLink       = objLink.Count
msgbox NoOfLink