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.