articledb.vb

Module articles for Dot Net Nuke 3.x.x , 4.x.x

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Collections
Imports System.XML

Imports Microsoft.ApplicationBlocks.Data

Imports DotNetNuke.Framework.Providers
Imports DotNetNuke.Services.Search

Namespace EfficionConsulting.Articles

	Public Class ArticleInfo

		Private _ItemId as Integer
		Private _PortalId as Integer
		Private _ModuleId as Integer
		Private _UserId as Integer
		Private _Categories as String
		Private _UserName as String
		Private _CreatedDate As DateTime
		Private _LastModifiedDate As DateTime
		Private _Title as String
		Private _Description as String
		Private _Keywords as String
		Private _Authed as Boolean
		Private _PublishDate as DateTime
		Private _ExpireDate as DateTime
		Private _Featured as Boolean
		Private _Article as String
		Private _ImageFile as String
		Private _Email as String
		Private _NumberOfViews As Integer

		Public Sub New()
		End Sub
		
		Public Function Contains(ByVal searchString As String) As Boolean
'				_Keywords.IndexOf(searchString) <> -1 OR _
			If (_Title.ToLower.IndexOf(searchString.ToLower)) <> -1 _
					Or (_Description.ToLower.IndexOf(searchString.ToLower) <> -1) _
					Or (_Article.ToLower.IndexOf(searchString.ToLower) <> -1) Then
				Return True
			Else
				Return False
			End If
		End Function

		Public Property ItemId() As Integer
			Get
				Return _ItemId
			End Get
			Set(ByVal Value As Integer)
				_ItemId = Value
			End Set
		End Property

		Public Property PortalId() As Integer
			Get
				Return _PortalId
			End Get
			Set(ByVal Value As Integer)
				_PortalId = Value
			End Set
		End Property

		Public Property ModuleId() As Integer
			Get
				Return _ModuleId
			End Get
			Set(ByVal Value As Integer)
				_ModuleId = Value
			End Set
		End Property

		Public Property Title() As String
			Get
				Return _Title
			End Get
			Set(ByVal Value As String)
				_Title = Value
			End Set
		End Property

		Public Property UserId() As Integer
			Get
				Return _UserId
			End Get
			Set(ByVal Value As Integer)
				_UserId = Value
			End Set
		End Property

		Public Property UserName() As String
			Get
				Return _UserName
			End Get
			Set(ByVal Value As String)
				_UserName = Value
			End Set
		End Property

		Public Property CreatedDate() As DateTime
			Get
				Return _CreatedDate
			End Get
			Set(ByVal Value As DateTime)
				_CreatedDate = Value
			End Set
		End Property

		Public Property LastModifiedDate() As DateTime
			Get
				Return _LastModifiedDate
			End Get
			Set(ByVal Value As DateTime)
				_LastModifiedDate = Value
			End Set
		End Property

		Public Property PublishDate() As DateTime
			Get
				Return _PublishDate
			End Get
			Set(ByVal Value As DateTime)
				_PublishDate = Value
			End Set
		End Property

		Public Property ExpireDate() As DateTime
			Get
				Return _ExpireDate
			End Get
			Set(ByVal Value As DateTime)
				_ExpireDate = Value
			End Set
		End Property

		Public Property Description() As String
			Get
				Return _Description
			End Get
			Set(ByVal Value As String)
				_Description = Value
			End Set
		End Property

		Public Property Keywords() As String
			Get
				Return _Keywords
			End Get
			Set(ByVal Value As String)
				_Keywords = Value
			End Set
		End Property

		Public Property Article() As String
			Get
				Return _Article
			End Get
			Set(ByVal Value As String)
				_Article = Value
			End Set
		End Property

		Public Property Categories() As String
			Get
				Return _Categories
			End Get
			Set(ByVal Value As String)
				_Categories = Value
			End Set
		End Property

		Public Property ImageFile() As String
			Get
				Return _ImageFile
			End Get
			Set(ByVal Value As String)
				_ImageFile = Value
			End Set
		End Property

		Public Property Authed() As Boolean
			Get
				Return _Authed
			End Get
			Set(ByVal Value As Boolean)
				_Authed = Value
			End Set
		End Property

		Public Property Featured() As Boolean
			Get
				Return _Featured
			End Get
			Set(ByVal Value As Boolean)
				_Featured = Value
			End Set
		End Property

		Public Property Email() As String
			Get
				Return _Email
			End Get
			Set(ByVal Value As String)
				_Email = Value
			End Set
		End Property

		Public Property NumberOfViews() As Integer
			Get
				Return _NumberOfViews
			End Get
			Set(ByVal Value As Integer)
				_NumberOfViews = Value
			End Set
		End Property
	End Class

	Public Class CommentInfo

		Private _CommentId as Integer
		Private _ArticleId as Integer
		Private _Name as String
		Private _Email As String
		Private _Comment As String
		Private _PublishDate As String

		Public Property CommentId As Integer
			Get
				Return _CommentId
			End Get
			Set(ByVal Value As Integer)
				_CommentId = Value
			End Set		
		End Property

		Public Property ArticleId As Integer
			Get
				Return _ArticleId
			End Get
			Set(ByVal Value As Integer)
				_ArticleId = Value
			End Set		
		End Property

		Public Property Name As String
			Get
				Return _Name
			End Get
			Set(ByVal Value As String)
				_Name = Value
			End Set		
		End Property
		
		Public Property Email As String
			Get
				Return _Email
			End Get