How to click all the links on page and verify respective contents

[sudhirzpatil]

Hi KavitaPriya,

I tried it with following script.

Code:

Set oLinks = Description.Create
oLinks("micclass").value = "Link"
set objLinks = Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").ChildObjects(oLinks)
LinkCount = objLinks.Count
msgbox LinkCount
For i = 0 to LinkCount-1step 1
linkname=objLinks(i).getroproperty("name")
msgbox linkname,0,"Current link is"
objLinks(cint(i)).Click
next

But
I am getting following error.

The test run cannot continue due to an unrecoverable error.

General run error.
Line (9): "objLinks(cint(i)).Click". The test run cannot continue due to an unrecoverable error.