Partial Class articles_document_delivery_interface
    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_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        Response.StatusCode = 301
        Response.AddHeader("Location", "~/articles/ftp-for-printers.aspx")
    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 developed a revolutionary document delivery system that provides the same interface and document conversions as more expensive file submission and sending tools with much greater ease of use and installation. The web to print tools are uniquely geared to the print and graphic arts industries."
        End If
        Dim metaKeyControl As Web.UI.HtmlControls.HtmlMeta = Me.Master.FindControl("MetaKey")
        If Not (DBNull.Value.Equals(metaDescriptionControl)) Then
            metaKeyControl.Content = "document delivery interface, web to print document delivery, print provider solutions, ftp replacement alternatives for printers, file transfer solutions for print industry, file delivery systems, ftp solution for printers, pdf features, file sending solutions for printers and graphic artists"
        End If

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