dim TreeTable

sub DeleteTree()
  if IsEmpty(TreeTable) then exit sub
  
  document.body.removeChild(TreeTable)
  set TreeTable = nothing
end sub

sub CreateTree()
  set TreeTable = document.createElement("TABLE")
  TreeTable.cellSpacing = 0 
  TreeTable.cellPadding = 0 
'  TreeTable.style.position = "absolute"
  TreeTable.style.posLeft = 10
  TreeTable.style.posTop = 10
  
'  document.body.appendChild(TreeTable)
  document.all("cameralist1").appendChild(TreeTable)
end sub

sub Tree_Open()
  'msgbox window.event.srcElement.id  
  if window.event.srcElement.src = "img/empty.gif" then
    exit sub
  end if
  
  dim rowid
  rowid = "row_" + Mid(window.event.srcElement.id,4)

  dim rowItem
  set rowItem = document.all(rowid) 
  
  if rowItem.style.display = "block" then
    window.event.srcElement.src = "img/plus.gif"
    rowItem.style.display = "none"
  else
    window.event.srcElement.src = "img/minus.gif"
    rowItem.style.display = "block"
  end if  
end sub

sub AddItem(id,Desc)
  dim newRow
  dim imgCell,textCell,imgItem 
  
  set newRow = TreeTable.insertRow
  newRow.id = "row" + CSTr(id)
  newRow.height = 15

  set imgCell = newRow.InsertCell
  imgCell.id = "imgCell" + CSTr(id)
  imgCell.width = 15
  imgCell.align = "center"
  
  set imgItem = document.createElement("IMG")
  imgItem.id = "img" + CSTr(id)
  imgItem.src = "img/empty.gif"
  imgItem.width = 11 
  imgItem.height = 11 
  imgItem.border = 0
  imgItem.onclick = GetRef("Tree_Open")
  
  imgCell.appendChild(imgItem)

  set textCell = newRow.InsertCell
  textCell.id = "textCell" + CSTr(id)
  textCell.innerHTML = "<a id="+ Desc + " href='javascript:Item_Click(" + CSTr(1306058539) + ")'>" + Desc + "</a>"
  textCell.onclick = GetRef("Item_Click")

  set SubitemsTable = document.createElement("TABLE")
  SubitemsTable.id = "SubitemsTable" + CSTr(id)
  SubitemsTable.cellSpacing = 0 
  SubitemsTable.cellPadding = 0 
  
  set newRow = TreeTable.insertRow
  newRow.style.display = "none"
  newRow.style.width = 0 
  newRow.id = "row_" + CSTr(id)
  
  set imgCell = newRow.InsertCell
  imgCell.id = "" + CSTr(id)
  imgCell.width = 15
  imgCell.innerText = ""

  set textCell = newRow.InsertCell
  textCell.appendChild(SubitemsTable)
end sub

sub AddSubitem(place,parent_id,id,Desc,on_click)
  dim parentImg,SubitemsTable
  set parentImg = document.all("img" + CStr(parent_id)) 
  if 0 <> InStr(1,parentImg.src,"empty.gif") then parentImg.src = "img/plus.gif"  
  
  set SubitemsTable = document.all("SubitemsTable" + CStr(parent_id)) 

  dim newRow,newCell
  
  set newRow = SubitemsTable.insertRow(place)
  newRow.height = 10
  newRow.id = "st_row" + CStr(id)

  set newCell = newRow.InsertCell
  newCell.innerHTML = "<a href='javascript:"+on_click+"'>" + Desc + "</a>"
end sub

sub ChangeSubitem(parent_id,id,Desc,on_click)
  dim newRow,newCell
  
  set newRow = document.all("st_row" + CStr(id)) 

  set newCell = newRow.cells(0)
  newCell.innerHTML = "<a href='javascript:"+on_click+"'>" + Desc + "</a>"
end sub