click each web link in a page using Index or other method in QTP

[KVK]

Hi

Try this code

Code:

Set oFrame = Description.Create()
oFrame("micclass").Value =  "Frame"
Set oLinks = Description.Create()
oLinks("micclass").Value = "Link"
Set objFrame = Browser("B").Page("P").ChildObjects(oFrame)
FrameCount = objFrame.Count
If FrameCount > 0 Then
For i = 0 to FrameCount-1
  Set objLinks = Browser("B").Page("P").objFrame(i).ChildObjects(oLinks)
  LinkCount = objLinks.Count
  If LinkCount > 0 Then
      For k = 0 to LinkCount-1
objLinks(k).Click
Next
  Else
  Msgbox "Links Does not exist in Fame no "&k
  End If
Next
Else
Msgbox "Frame object does not exist"
End