Partial Class articles_remote_desktop_printing
    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’s customizable desktop file submission interface has unique features that make remote online desktop printing software more affordable, more reliable and more flexible than traditional providers. Including drag and drop feature, resume feature, send large files and multiple files simultaneously."
        End If
        Dim metaKeyControl As Web.UI.HtmlControls.HtmlMeta = Me.Master.FindControl("MetaKey")
        If Not (DBNull.Value.Equals(metaDescriptionControl)) Then
            metaKeyControl.Content = "remote desktop file sending, online desktop file sending for printers and graphic artists, file submission tools for printers and graphic artists, drag and drop multiple file sending tool, pdf resume feature for sending files, ftp integration or replacement, send large files"
        End If

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