sub document_onClick
  dim targetId, srcElement, targetElement
  set srcElement = window.event.srcElement
  if (srcElement.className = "Outline") or _
     (srcElement.tagName = "B" and srcElement.className <> "") then
    if (srcElement.className = "Outline") then
      targetId = srcElement.id & "d"
    elseif (srcElement.tagName = "B") then
      targetId = srcElement.className & "d"
    end if
    set targetElement = document.all(targetId)
    if (targetElement.style.display = "none") then
      targetElement.style.display = ""
      if (srcElement.className = "Outline") then
        srcElement.src = "images/minus.gif"
      else
        set targetElement = document.all(srcElement.className)
        if (targetElement.tagName = "IMG") then
          targetElement.src = "images/minus.gif"
        end if
      end if
    else
      targetElement.style.display = "none"
      if (srcElement.className = "Outline") then
        srcElement.src = "images/plus.gif"
      else
        set targetElement = document.all(srcElement.className)
        if (targetElement.tagName = "IMG") then
          targetElement.src = "images/plus.gif"
        end if
      end if
    end if
  end if
end sub

sub syncToc(strString)
  dim i, targetElement, idNums, strTemp
  ' Hide all of the children
  for i = 0 to document.all.length - 1
    strTemp = ""
    if document.all(i).className = "Outline" then
      strTemp = document.all(i).id
      set targetElement = document.all(strTemp)
      if (targetElement.tagName = "IMG") then
        targetElement.src = "images/plus.gif"
        set targetElement = document.all(strTemp & "d")
        targetElement.style.display = "none"
      end if
    end if
  next
  ' Show the children that were passed in
  idNums = split(strString, "|", -1, 1)
  for i = lbound(idNums) to ubound(idNums)
    strTemp = ""
    strTemp = "Out" & idNums(i)
    set targetElement = document.all(strTemp)
    targetElement.src = "images/minus.gif"
    set targetElement = document.all(strTemp & "d")
    targetElement.style.display = ""
  next
end sub