Imports EDSL.Entities
Imports EDSL.DAL
Public Partial Class SideMenuControl
Inherits System.Web.UI.UserControl
  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Dim objMainSideCatalogue as List(Of entmainCategory)

        'objMainSideCatalogue = GetAll()
        'Dim strOutput As String = ""
        'Dim intCount As Integer = 1
        'For Each objMainSideCatalogueItem In objMainSideCatalogue
        '  strOutput &= "<div id=""divSideMenu"">"
        '  strOutput &= "<a href=""categories.aspx?cid=" & objMainSideCatalogueItem.CategoryID & """ id=""repHypSideMenu" & intCount & """ class=""btnSideMenuOption"" >" 
        '    strOutput &=  objMainSideCatalogueItem.CategoryName & "</a>"
        '  strOutput &= "</div>"
        '  intCount += 1
        'Next
        'divMenu.InnerHtml = strOutput

  End Sub
    'Private Function GetAll() As List(Of entmainCategory)
    '  Dim objMain As New dbMainCategory
    '  Dim objMainEntity As List(Of entmainCategory) = objMain.GetAll("  AND ParentCategoryID = 0 AND mainCategory.Active = 1 ", "ORDER BY OrderBy ASC")
    '  Return objMainEntity
    'End Function
End Class
