Three Tier Code Generator For ASP.NET

'********************************************************************* 
'
' WebChamps.Dummy Namespace
'
'*********************************************************************

Namespace WebChamps.Components.Web



    Public Class DynamicListControl

        '*********************************************************************
        '
        ' DynamicDropdownlist Method
        '
        ' Generates Dynamic Dropdownlist.
        '
        '*********************************************************************
        Public Overloads Shared Sub Create(ByRef MsListControl As System.Web.UI.WebControls.ListControl, ByVal DataTextStr As String, ByVal DataTextField As String, ByVal DataValueField As String, ByVal TableName As String, ByVal SelectedValue As String, ByVal FirstValue As String)
            Dim MsDataReader As System.Data.SqlClient.SqlDataReader

            Try
                MsDataReader = DataClient.ExecuteReader(DataTextStr, DataTextField, DataValueField, TableName)
            Catch ex As Exception
                Throw New Exception(ex.ToString)
            End Try

            MsListControl.DataSource = MsDataReader
            MsListControl.DataTextField = DataTextField
            MsListControl.DataValueField = DataValueField
            MsListControl.DataBind()


            If Not (TypeOf MsListControl Is ListBox) Then
                MsListControl.Items.Insert(0, New ListItem("Select", FirstValue))
            End If


            MsDataReader.Close()

            Try
                If Not IsNothing(MsListControl.Items.FindByValue(SelectedValue)) Then
                    MsListControl.Items.FindByValue(SelectedValue).Selected = True
                End If

            Catch ex As Exception
                Throw New Exception(ex.ToString)
            Finally
            End Try
        End Sub

        Public Shared Function ExecuteDataView(ByVal DataTextStr As String, ByVal DataTextField As String, ByVal DataValueField As String, ByVal TableName As String) As System.Data.DataView

            Try
                Return DataClient.ExecuteDataView(DataTextStr, DataTextField, DataValueField, TableName)
            Catch ex As Exception
                Throw New WebChamps.Components.Web.AppException("An error occurred while executing the WebChamps.Components.Web.ExecuteDataView", ex)
            Finally

            End Try
        End Function



    End Class

End Namespace