QTP DP to click no. of pages

[manabh]

Hi,
You can try this out. This will go on till it finds the page count links.

Code:

Dim blnProceed, oLink, objTmp, LinkColl
blnProceed = True
i = 0
Do
        Set objTmp = Description.Create()
        objTmp("micclass").Value = "Link"
        objTmp("text").Value = Cstr(i + 2)
        Set LinkColl = Browser("Br").Page("Pg").ChildObjects(objTmp)
        If LinkColl.Count > 0 Then
            Set oLink = LinkColl(0)
            oLink.HighLight
            oLink.Click
            i = i + 1
        Else
            blnProceed = False
        End If
Loop While blnProceed