Partial Class articles_printer_sharing_software
    Inherits System.Web.UI.Page
    Public _selectedLanguage As String = ""

    Protected Overrides Sub InitializeCulture()

        If Request.QueryString("lang") IsNot Nothing Then
            _selectedLanguage = Request.QueryString("lang").ToString
        Else
            If Session("lang") IsNot Nothing Then
                _selectedLanguage = Session("lang").ToString
            Else
                If Request.Cookies("lang") IsNot Nothing Then
                    _selectedLanguage = Request.Cookies("lang").Value.ToString
                End If
            End If
        End If

        Session("lang") = _selectedLanguage

        If String.IsNullOrEmpty(_selectedLanguage) = False Then
            Me.UICulture = _selectedLanguage
            Me.Culture = Global.Resources.Resource.ResourceManager.GetString(_selectedLanguage)

            System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo(_selectedLanguage)
            System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture(Global.Resources.Resource.ResourceManager.GetString(_selectedLanguage))
        End If

        MyBase.InitializeCulture()
    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim metaDescriptionControl As Web.UI.HtmlControls.HtmlMeta = Me.Master.FindControl("MetaDescription")
        If Not (DBNull.Value.Equals(metaDescriptionControl)) Then
            metaDescriptionControl.Content = "GoPrint2.com has perfected a powerful, affordable document delivery system that allows small businesses to compete with larger companies. Now print and graphic arts customers can send large files for print via a  custom web submission and upload portal available online."
        End If
        Dim metaKeyControl As Web.UI.HtmlControls.HtmlMeta = Me.Master.FindControl("MetaKey")
        If Not (DBNull.Value.Equals(metaDescriptionControl)) Then
            metaKeyControl.Content = "customizable file submission tools, web upload portal set up tool, web PDF conversion, online document delivery system via internet, multiple file submission via internet, interrupted file transfers, ftp replacement or integration tools"
        End If

        Dim _editUserControl As Control = LoadControl("~/articles/article_list_2.ascx")
        EditUserDiv.Controls.Add(_editUserControl)
    End Sub
End Class