Private Sub bindCategory()
Dim dtCategory As DataTable
Dim dtSubCategory As DataTable
Dim strCategoryName As String
Dim strCategoryImage As String
Dim strCategoryId As Integer
Dim strSubCategoryName As String
Dim strSubCategoryId As Integer
Dim sb = New StringBuilder
dtCategory = GetCategory()
For Each row As DataRow In dtCategory.Rows
strCategoryName = row.Item("Category_Name").ToString
strCategoryImage = row.Item("Category_ImageFilePath").ToString
strCategoryId = row.Item("CategoryID")
sb.Append("<li>")
sb.Append("<div class='responsive-accordion-head'><img src=" + strCategoryImage + "></img> <a onclick='return showhead('" + strCategoryImage + "','" + strCategoryName + "');>" + strCategoryName + "</a> <i class='fa fa-plus responsive-accordion-plus fa-fw'></i><i class='fa fa-minus responsive-accordion-minus fa-fw'></i></div>")
sb.Append("<div class='responsive-accordion-panel'>")
sb.Append("<div class='menu'>")
dtSubCategory = GetAllSubCategory(strCategoryId)
For Each row1 As DataRow In dtSubCategory.Rows
strSubCategoryName = "--" + row1.Item("SubCategory_Name").ToString
'strSubCategoryId = row1.Item("CategoryID")
strSubCategoryId = row1.Item("SubCategoryID")
sb.Append("<ul>")
'sb.Append("<li><a href='#' onclick='return showhead('" + strCategoryImage + "','" + strSubCategoryName + "');'>" + strSubCategoryName + "</a></li>")
'<li><a href="#" onclick="return showhead('fa fa-automobile','Submenu1');">Submenu1</a></li>
sb.Append("<li><a href='#' onclick=""return showhead('" + strCategoryImage + "','" + strSubCategoryName + "');"">" + strSubCategoryName + "</a></li>")
'sb.Append("<li><a href='#' onclick=""return showhead(<img src='" + strCategoryImage + "' />','" + strSubCategoryName + "');"">" + strSubCategoryName + "</a></li>")
sb.Append("</ul>")
Next
sb.Append("</div>")
sb.Append("</div>")
sb.Append("</li>")
Next
ltrlCategory.Text = sb.ToString()
End Sub