This code does not give total no of links present on page plz help it returns 0

[Ankur]

As I said earlier, we don't have any issues with someone asking questions all I am suggesting to you is, if you're asking similar queries, try to debug yourself first and LET US KNOW WHAT YOU TRIED to get faster and better responses.

Anyways, answering your question, this piece of code will work for any page

Code:

systemutil.Run "iexplore.exe","ansfoundation.org"

Set oLinks = Description.Create()
oLinks("micclass").Value = "Link" 'Collection of Link Objects

Set PageLinks = Browser("micclass:=Browser").Page("micclass:=Page").ChildObjects(oLinks)
msgbox PageLinks.count 'Total count

For i = 0 To PageLinks.count - 1     
msgbox PageLinks(i).GetRoProperty("href") 'Name the links
Next