Imports Rocktime
Imports Rocktime.Core
Imports Rocktime.DBAccess
Imports Rocktime.Base

Partial Class News_Acx_NewsDetail
    Inherits UserControlexclass

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

        Dim DBStatus As New DBStatusClass
        Dim Article As New rtArticlesClass.ArticleData

        Article.Fill()
        Article.Active.Value = True

        Article = rtArticlesClass.Locate(DBStatus, Article.Where, "")

        If DBStatus.HasRows Then
            txtArticleDate.Visible = True
            txtArticleTitle.Visible = True
            txtArticleText.Visible = True
            txtNoNewsFound.Visible = False

            txtArticleTitle.Text = "<p class=""redtext"" style=""font-size:1.2em;"">" & Article.Title.Text & "</p>"
            txtArticleDate.Text = "<strong>" & Article.DateTime.Value.Date & "</strong><br /><br />"
            txtArticleText.Text = "<p>" & Article.Text.Html() & "</p>"

            If Article.Image_PICT.FullFileUrl <> "" Then
                txtArticleImage.Text = Article.Image_PICT.Show(, , , , "lrg")
                txtArticleImage.Visible = True
            Else
                txtArticleImage.Visible = False
            End If
        Else
            txtArticleTitle.Text = "<p class=""redtext"" style=""font-size:1.2em;"">Payrolls Ltd News</p>"
            txtNoNewsFound.Visible = True
            txtArticleDate.Visible = False
            txtArticleTitle.Visible = True
            txtArticleText.Visible = False
            txtArticleImage.Visible = False
        End If

    End Sub

End Class