Imports System
			Imports DotNetNuke

			Namespace TestProj


				Public MustInherit Class DataProvider

			#Region "Shared/Static Methods"

					' singleton reference to the instantiated object 
					Private Shared objProvider As DataProvider = Nothing

					' constructor
					Shared Sub New()
						CreateProvider()
					End Sub

					' dynamically create provider
					Private Shared Sub CreateProvider()
						objProvider = CType(Framework.Reflection.CreateObject("data", "TestProj", ""), DataProvider)
					End Sub

					' return the provider
					Public Shared Shadows Function Instance() As DataProvider
						Return objProvider
					End Function

			#End Region

			#Region "Abstract methods"

					Public MustOverride Sub AddContact(ByVal Code As Integer)
					Public MustOverride Sub DeleteContact(ByVal Code As Integer)
					Public MustOverride Sub UpdateContact(ByVal Code As Integer)
					Public MustOverride Function GetContact(ByVal Code As Integer) As IDataReader
					Public MustOverride Function GetsContacts(ByVal Code As Integer) As IDataReader
			#End Region

				End Class

			End Namespace

			Imports System
				Imports System.Data
				Imports System.Data.SqlClient
				Imports Microsoft.ApplicationBlocks.Data

				Imports DotNetNuke.Common.Utilities
				Imports DotNetNuke.Framework.Providers

				Namespace TestProj

					Public Class SqlDataProvider

						Inherits DataProvider

				#Region "Private Members"

						Private Const ProviderType As String = "data"
						Private Const ModuleQualifier As String = "YourCompany_"

						Private _providerConfiguration As ProviderConfiguration = ProviderConfiguration.GetProviderConfiguration(ProviderType)
						Private _connectionString As String
						Private _providerPath As String
						Private _objectQualifier As String
						Private _databaseOwner As String

				#End Region

				#Region "Constructors"

						Public Sub New()

							' Read the configuration specific information for this provider
							Dim objProvider As Provider = CType(_providerConfiguration.Providers(_providerConfiguration.DefaultProvider), Provider)

							' Read the attributes for this provider

							'Get Connection string from web.config
							_connectionString = Config.GetConnectionString()

							If _connectionString = "" Then
								' Use connection string specified in provider
								_connectionString = objProvider.Attributes("connectionString")
							End If

							_providerPath = objProvider.Attributes("providerPath")

							_objectQualifier = objProvider.Attributes("objectQualifier")
							If _objectQualifier <> "" And _objectQualifier.EndsWith("_") = False Then
								_objectQualifier += "_"
							End If

							_databaseOwner = objProvider.Attributes("databaseOwner")
							If _databaseOwner <> "" And _databaseOwner.EndsWith(".") = False Then
								_databaseOwner += "."
							End If

						End Sub

				#End Region

				#Region "Properties"

						Public ReadOnly Property ConnectionString() As String
							Get
								Return _connectionString
							End Get
						End Property

						Public ReadOnly Property ProviderPath() As String
							Get
								Return _providerPath
							End Get
						End Property

						Public ReadOnly Property ObjectQualifier() As String
							Get
								Return _objectQualifier
							End Get
						End Property

						Public ReadOnly Property DatabaseOwner() As String
							Get
								Return _databaseOwner
							End Get
						End Property

				#End Region

				#Region "Private Methods"

						Private Function GetFullyQualifiedName(ByVal name As String) As String
							Return DatabaseOwner & ObjectQualifier & ModuleQualifier & name
						End Function

						Private Function GetNull(ByVal Field As Object) As Object
							Return DotNetNuke.Common.Utilities.Null.GetNull(Field, DBNull.Value)
						End Function

				#End Region

				#Region "Public Methods"
						Public Overrides Sub DeleteContact(ByVal Code As Integer)
							SqlHelper.ExecuteNonQuery(ConnectionString, DatabaseOwner & ObjectQualifier & "judiciary_DeleteContact", Code)
						End Sub

						Public Overrides Function GetContact(ByVal Code As Integer) As System.Data.IDataReader
							Return CType(SqlHelper.ExecuteReader(ConnectionString, DatabaseOwner & ObjectQualifier & "judiciary_GetContact", Code), IDataReader)
						End Function

						Public Overrides Function GetsContacts(ByVal Code As Integer) As System.Data.IDataReader
							Return CType(SqlHelper.ExecuteReader(ConnectionString, DatabaseOwner & ObjectQualifier & "judiciary_GetsContacts", Code), IDataReader)
						End Function

						Public Overloads Overrides Sub AddContact(ByVal Code As Integer)
							SqlHelper.ExecuteNonQuery(ConnectionString, DatabaseOwner & ObjectQualifier & "judiciary_AddContact", Code)
						End Sub

						Public Overloads Overrides Sub UpdateContact(ByVal Code As Integer)
							SqlHelper.ExecuteNonQuery(ConnectionString, DatabaseOwner & ObjectQualifier & "judiciary_UpdateContact", Code)
						End Sub
						
				#End Region

					End Class

				End Namespace

			Imports System
			Imports System.Configuration
			Imports System.Data

			Namespace TestProj
				Public Class TestProjInfo
					Private _Code As Integer
					Public Property Code() As Integer
						Get
							Return _Code
						End Get
						Set(ByVal Value As Integer)
							_Code = Value
						End Set
					End Property

						End Class

			End Namespace

			Imports System
			Imports System.Configuration
			Imports System.Data
			Imports System.Xml
			Imports System.Web
			Imports System.Collections.Generic

			Imports DotNetNuke
			Imports DotNetNuke.Common
			Imports DotNetNuke.Common.Utilities.XmlUtils
			Imports DotNetNuke.Common.Utilities
			Imports DotNetNuke.Services.Search

			Namespace TestProj
				Public Class TestProjtProjController


			#Region "Public Methods"

					Public Sub AddContact(ByVal c As TestProjInfo)
						DataProvider.Instance.AddContact(c.Code)
					End Sub
					Public Sub DeleteContact(ByVal Code As Integer)
						DataProvider.Instance.DeleteContact(Code)
					End Sub
					Public Sub UpdateContact(ByVal c As TestProjInfo)
						DataProvider.Instance.UpdateContact(c.Code)
					End Sub
					Public Function GetContact(ByVal Code As Integer) As TestProjInfo
						Return CType(DotNetNuke.Common.Utilities.CBO.FillObject(DataProvider.Instance().GetContact(Code), GetType(TestProjInfo)), TestProjInfo)
					End Function
					Public Function GetsContacts(ByVal Code As Integer) As ArrayList
						Return CType(DotNetNuke.Common.Utilities.CBO.FillCollection(DataProvider.Instance().GetsContacts(Code), GetType(TestProjInfo)), ArrayList)
					End Function
			#End Region

				End Class
			End Namespace

			Imports DotNetNuke

				Namespace TestProj
					Partial Public Class WUC
						Inherits Entities.Modules.PortalModuleBase


						Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

						End Sub

					End Class
				End Namespace