Public Function GenerateNestedMenus(ByVal fTableName As String, ByVal fID As String, ByVal fCluase As String) As String
        Dim output As String = ""
        Dim x As String = Now.ToString
        SetActionResult = "waiting_GenerateNestedMenus"
        Dim OutputData As String = ""
        Dim SQLCommand As String
        Dim _string As New CoreString

        SQLCommand = "SELECT * FROM " & fTableName & " WHERE MenuParent=@ID AND Visible=1 AND " & fCluase

        Dim DR As SqlDataReader
        Dim DB As New DeepDB(__ConnectionString, SQLCommand, fTableName)
        DB.ddConnect()

        Dim IDParameter As New SqlParameter("@ID", fID)

        DB.ddAddParameper(IDParameter)
        Dim temp As String

        Try
            DR = DB.ddExecuteReader()

            While DR.Read

                If CInt(ChildCounter(fTableName, DR("id"))) > 0 Then
                    temp = "<li>" & vbCrLf & "<a href='#'>" & Trim(DR("MenuName")) & "</a>" & vbCrLf & _
                        vbTab & "<ul> "
                    _temp &= temp
                    GenerateNestedMenus("menus", DR("id"), fCluase)
                    _temp &= vbTab & "</ul>" & vbCrLf & vbTab & "</li>" & vbCrLf
                Else
                    'For rows they have not child
                    temp = vbTab & "<li><a href='#'>" & Trim(DR("MenuName")) & "</a>" & "</li>" & vbCrLf
                    _temp &= temp
                    GenerateNestedMenus("menus", DR("id"), fCluase)

                End If
                SetActionResult = "done_GenerateNestedMenus"
            End While
            output = _temp
        Catch exp As Exception
            SetErrorMessage = "GenerateNestedMenus():" & exp.Message
            SetActionResult = "error_GenerateNestedMenus"
        Finally
            DB.ddClose()
        End Try

        Return output
    End Function