how to randomly Select any category link and randomly click on one of its options ?

[sharavan]

I m a fresher in QTP and want to learn Dynamic Descriptive Programming. I took HDFC bank website as an example and working on it. I was stuck at one point and kindly need your help.

I took a scenario like this:
QTP has to click on any of the category links randomly, then a drop down menu expands and has to randomly again select one of the options in that and then again randomly select the links in it finally.

Example:
The following is an example scenario, but i need this randomly.
QTP clicks "Products" link -----> Cards -------->Credit cards

Here is the code I prepared. But couldn't go forward:

Code:

'randomly Select any category link and click on one of the options.
SystemUtil.CloseProcessByName "chrome.exe"
SystemUtil.Run "chrome","http://www.hdfcbank.com/"

Function sRandNum(iMax,iMin)
        'Create Random Number within the Range
    Randomize
    sRandNum = Int(((iMax - iMin) * Rnd) + iMin)
End Function

'It only selects products,making payments or ways to bank links only
slRandomNumber=sRandNum(3,1)

Set MyBrowser= Browser("title:=.*")
Set MyPage= MyBrowser.Page("title:=.*")

Set hLink=Description.Create()
hLink("class").value="mainlink"
hLink("html tag").value="A"
hLink("height").value ="20"
hLink("innertext").value =".*"
hLink("index").value =slRandomNumber

MyPage.Link(hLink).FireEvent "onmouseover"

MyPage.WebElement("class:=mainlink","height:=35","html tag:=SPAN","innertext:=.*").FireEvent "onmouseover"

MyPage.Link("html tag:=A","height:=16","innertext:=.*","Index:=.*").Click

Thanks in advance.