I can't displaying all the pages name in the .txt file

[njnirmal]

I am using web application . I want to display my all the pages name . But i am not getting and some messge is displaying. error message is
"Type mismatch Line (21): "ln=total_no_link(i).getRoProperty("name")".
Why this error is displaying .
I am displying my code .

Code:

Dim Total_no_link Dim clink ,rc,mysmgbox Dim ln Set fileSysObject=createobject("Scripting.FileSystemObject") Set linksFileName=fileSysObject.opentextfile("D:\a1.txt",2,true) Set cLink =description.Create() cLink("html").value="A" Browser("Login Page").Page("Login Page").WebList("select").Select "SQL2005" Browser("Login Page").Page("Login Page").WebList("select_2").Select "VIL0910SQL2005" Browser("Login Page").Page("Login Page").WebEdit("txtUserID").Set "nj" Browser("Login Page").Page("Login Page").WebEdit("WebEdit").SetSecure "4a89374a064976d6f9f1" Browser("Login Page").Page("Login Page").WebList("select_3").Select "WHFD00" Browser("Login Page").Page("Login Page").WebList("select_4").Select "WHFD00" Browser("Login Page").Page("Login Page").WebList("select_5").Select "FOOD" Browser("Login Page").Page("Login Page").WebButton("Enter").Click Browser("Login Page").Page("Main Menu Page").Link("General Master").Click Set rc=Browser("Login Page").Page("Main Menu Page").ChildObjects(cLink) Total_no_link=rc.count() For i=0 to total_no_link-1 [b] ln=total_no_link(i).getRoProperty("name")[/b] linksFileName.writeline(link_name) Next linksFileName.close Set fileSysObject=nothing 'mymsgbox=msgbox(total_no_link) Browser("General Master").Page("General Master").WebButton("Exit").Click Browser("Login Page").Page("Main Menu Page_2").Link("Exit").Click Browser("Login Page").Page("Login Page_2").Sync Browser("Login Page").Close

PLese tell me why this messge is displaying ..

Thanks in Advance

[basanth27]

Is this a interview question ?. If not, please post it under the appropriate forum category.