<eo:TreeView id="codesTV" runat="server" EnableViewState="false" 
RaisesServerEvent="false" ClientSideOnItemClick="getSelectedInfo">
</eo:TreeView>

function getSelectedInfo(e, info)
{
    var node = info.getItem();
    var parent = info.getItemGroup().getParentItem();
        
    var parentID = parent.getItemId();
    var nodeID = node.getItemId();
    var nodeText = node.getText();
    var nodeValue = node.getValue();

    passInfo(parentID, nodeID, nodeText, nodeValue);
}

function passInfo(pID, nID, nText, nValue)
{
    document.getElementById('<%= recFlag.ClientID %>').value = "U";
    document.getElementById('<%= codeCatDDL.ClientID %>').value = pID;
    document.getElementById('<%= codeValue.ClientID %>').value = nID;
        
    var activeLang = document.getElementById('<%= setCulture.ClientID %>').value;
        
    var txtSplit = nText.split("-");
    var txtOnly = txtSplit[1].slice(1);
    var arDesc = "";
    var enDesc = "";
        
    if (activeLang == "ar")
    {
        arDesc = txtOnly;
        enDesc = nValue;
    } 
    else 
    {
        enDesc = txtOnly;
        arDesc = nValue;
    }  
    document.getElementById('<%= arDesc.ClientID %>').value = arDesc;
    document.getElementById('<%= enDesc.ClientID %>').value = enDesc;
}

Protected conn As OleDbConnection = setConnection()
Public actDesc As String = setDesc()
Public altDesc, sql As String
Public imgBase As String = "~/images/objects/tree/nodes/set1/"

...

Private Sub fillTree()
     ' Initialise Tree View and Set its Title
     Dim tvIndex As UInt16
     tvIndex = 1
     tvTitle.Text = initEoTV(codesTV, tvIndex, conn)
     codesTV.Nodes.Clear()

     ' Populate the Tree
     populateLevel_0(codesTV)
End Sub

' ***** Populate LEVEL 0 Nodes
Private Sub populateLevel_0(ByVal thisTV As EO.Web.TreeView)
     Try
          thisTV.Nodes.Clear()

          Dim L1data As New DataTable
          Dim nodeFocus As String

          If actDesc = "description_ar" Then
               altDesc = "description_en"
          Else
               altDesc = "description_ar"
          End If
          sql = "SELECT maj_id, description_ar, description_en FROM t_Codes "
          sql &= "WHERE min_id = 0 ORDER BY maj_id"
          L1data = FetchData(sql, conn)

          ' Create Level nodes.
          If L1data.Rows.Count > 0 Then
               nodeFocus = "maj_id"
               Dim row As DataRow
               For Each row In L1data.Rows
                    Dim newNode As EO.Web.TreeNode = New EO.Web.TreeNode()

                    newNode.ItemID = row(nodeFocus)
                    newNode.Text = newNode.ItemID & "- " & row(actDesc)
                    newNode.Value = row(altDesc)
                    newNode.ImageUrl = imgBase & "cL1.png"
                    newNode.PopulateOnDemand = True
                    newNode.Selected = False

                    ' Add the new Node
                    thisTV.Nodes.Add(newNode)

                    ' Populate Child Nodes of current Node
                    populateLevel_1(newNode)
               Next
          End If
     Catch ex As Exception
          MsgBox(getMsgText(50, conn) & " [" & ex.ToString & "]", MsgBoxStyle.Exclamation, getMsgTitle(50, conn))
     End Try
End Sub

' ***** Populate LEVEL 1 Nodes
Private Sub populateLevel_1(ByVal node As EO.Web.TreeNode)
     Try
          Dim L2data As New DataTable
          Dim nodeFocus As String

          If actDesc = "description_ar" Then
               altDesc = "description_en"
          Else
               altDesc = "description_ar"
          End If
          sql = "SELECT maj_id, min_id, description_ar, description_en FROM t_Codes "
          sql &= "WHERE min_id > 0 and maj_id = " & node.ItemID & " ORDER BY min_id"
          L2data = FetchData(sql, conn)

          ' Create Level nodes.
          If L2data.Rows.Count > 0 Then
               nodeFocus = "min_id"
               Dim row As DataRow
               For Each row In L2data.Rows
                    Dim childNode As EO.Web.TreeNode = New EO.Web.TreeNode

                    childNode.ItemID = row(nodeFocus)
                    childNode.Text = childNode.ItemID & "- " & row(actDesc)
                    childNode.Value = row(altDesc)
                    childNode.ImageUrl = imgBase & "cL2.png"
                    childNode.EnsureVisible()

                    ' Add the new Node to the ChildNodes collection of its Parent Node
                    node.ChildNodes.Add(childNode)
               Next
          End If
     Catch ex As Exception
          MsgBox(getMsgText(50, conn) & " [" & ex.ToString & "]", MsgBoxStyle.Exclamation, getMsgTitle(50, conn))
     End Try
End Sub