Imports System
Imports System.Data
Partial Class ArticleContent
    Inherits System.Web.UI.Page

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

        If Not IsPostBack Then
            fillExisting()
            fillTitleMetaKeywords()
        End If

    End Sub

    Public Sub fillTitleMetaKeywords()
        Dim strArticleTitle, strArticleCategory As String
        strArticleTitle = ReturnValue("Select Article_MetaTitle from ArticleTitle where Article_Kid = '" & RemoveLiterals(DecodeURL(Request.QueryString("ArticleID").ToString)) & "'")
        strArticleCategory = ReturnValue("Select Category_Name from ArticleTitle where Article_Kid = '" & RemoveLiterals(DecodeURL(Request.QueryString("ArticleID").ToString)) & "'")
        Me.Title = strArticleTitle & " | " & strArticleCategory & " Articles | www.atcomaart.com "

        Dim mt2 As New HtmlMeta
        mt2.Name = "keywords"
        mt2.Content = ReturnValue("Select Article_MetaKeywords from ArticleTitle where Article_Kid = '" & RemoveLiterals(DecodeURL(Request.QueryString("ArticleID").ToString)) & "'") 'Str(2).Trim.Remove(Str(2).Length - 2).ToLower
        Me.Header.Controls.Add(mt2)


        Dim mt1 As New HtmlMeta
        mt1.Name = "description"
        mt1.Content = ReturnValue("Select Article_MetaDescription from ArticleTitle where Article_Kid = '" & RemoveLiterals(DecodeURL(Request.QueryString("ArticleID").ToString)) & "'")
        Me.Header.Controls.Add(mt1)

        
    End Sub

    Public Sub fillExisting()

        hlMainArticle.Text = "Industrial Articles"
        hlMainArticle.NavigateUrl = ResolveUrl("~/articles.aspx")

        Dim strCategoryID, strCategoryName As String
        strCategoryID = ReturnValue("Select Category_KId from ArticleTitle where Article_Kid ='" & RemoveLiterals(DecodeURL(Request.QueryString("ArticleID").ToString)) & "'")
        strCategoryName = ReturnValue("Select CategoryName from ArticleTitle where Article_Kid ='" & RemoveLiterals(DecodeURL(Request.QueryString("ArticleID").ToString)) & "'")
        hlCategoryName.Text = ReturnValue("Select Category_Name from ArticleTitle where Article_Kid ='" & RemoveLiterals(DecodeURL(Request.QueryString("ArticleID").ToString)) & "'") & "  Articles"
        hlCategoryName.NavigateUrl = ResolveUrl("~/article/" & EncodeURL(strCategoryID.ToString) & "/category/" & strCategoryName & ".aspx")
        'http://localhost:1332/Atco-2008/article/48484848488458/category/weighing-scales-systems.aspx


        Dim dt As DataTable
        dt = ReturnDataTable("Select * from Article_Master where Article_Kid = '" & RemoveLiterals(DecodeURL(Request.QueryString("ArticleID").ToString)) & "'")

        hlArticleTitle.Text = dt.Rows(0).Item("Article_Title").ToString
        hlArticleTitle.NavigateUrl = Request.RawUrl

        tdArticleContent.InnerHtml = dt.Rows(0).Item("Article_Body").ToString



    End Sub

End Class