Listing C
'##############################################################################
' Author: Kevin Koch
' Description:  This class represents a facade layer and the component
'               tier where business logic is contained for functionality
'              regarding Clients
'##############################################################################
 
 
 
 
Public Class ClientServices
    Private Const CLASS_NAME As String = "ClientServices"
 
 
    '#########################################################################################################################
    ' Returns all clients from the client table
    '#########################################################################################################################
    Public Function GetAllClients() As DataSet
        Const METHOD_NAME As String = "GetAllClients"
 
 
        Try
            Dim DbObj As ClientDb = New ClientDb()
            Return DbObj.GetAllClients()
 
 
        Catch dbEx As DbTierException
            'Exception has already been logged, just throw it to the ASPX
            Throw dbEx
        Catch ex As Exception
            'Exception occurred within this method, log it
            Log.WriteLogEntry(ex, Me.CLASS_NAME, METHOD_NAME)
            Throw New BizTierException(ex.Message, ex)
        End Try
    End Function
 
 
End Class