sub drawnagivat(intnum)
dim strlnk
  strlnk=">>> "  
  protitle1.innerText=""
  protitle2.innerText=""
  protitle3.innerText=""
  protitle4.innerText=""
  prostrlnk1.innerText=""
  prostrlnk2.innerText=""
  prostrlnk3.innerText=""
  
  //prostrlnk1.style.visibility="visible"
  //prostrlnk1.style.display="block"
  
  //prostrlnk2.innerText=strlnk
  //protitle2.style.visibility="visible"
  //protitle2.style.display="block"

  //prostrlnk2.style.visibility="visible"
  //prostrlnk2.style.display="block"
  //prostrlnk3.innerText=strlnk
  //prostrlnk3.style.visibility="visible"

  protitle1.innerText=mid(getlnkdata(1),5)
  if intnum=1 then exit sub
  call nagivat(intnum,3)
  if protitle2.innerText <> "" then prostrlnk1.innerText=strlnk
  if protitle3.innerText <> "" then prostrlnk2.innerText=strlnk
  if protitle4.innerText <> "" then prostrlnk3.innerText=strlnk
  // & mid(window.navigator.appversion,20,6)
end sub

sub nagivat(intid,intcount)
  dim intmp
  dim linkstr
  dim intstrnum
  intstrnum=5
  strlnkdata=getlnkdata(intid)
  intmp=myval(left(strlnkdata,3))
  //msgbox intid & "classid=" & intmp
  select case intcount
    case 2 
      protitle2.innerText=mid(strlnkdata,intstrnum)
	case 3
      protitle3.innerText=mid(strlnkdata,intstrnum)
  end select
  if intmp<=0 then
    if protitle2.innerText="" then
	  protitle2.innerText=protitle3.innerText
      protitle3.innerText=""
	end if
	exit sub
  end if
  call nagivat(intmp,intcount-1)
end sub

function myval(intstr)
  if left(intstr,1)<>0 or len(intstr)=1 then
    myval=intstr
	exit function
  end if
  myval=myval(right(intstr,len(intstr)-1))
end function

function FindtreeID(intid)
dim intmp
  intmp=left(getlnkdata(intid),3)
  select case intmp
  case 16
    FindtreeID=1
  case 17
    FindtreeID=9
  case 18
    FindtreeID=16
  case 21
    FindtreeID=23
  end select
end function

function FindFolderID(fID)
  select case fID
  case 1
    FindFolderID=16
  case 9
    FindFolderID=17
  case 16
    FindFolderID=18
  case 23
    FindFolderID=21
  end select
end function