Partial Class home
    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 developed free and affordable web to print solutions that allow printers and graphic artists to stay competitive.  By offering a free web site portal, a web accessible PDF print driver that integrates seamlessly with your existing email and ftp infrastructure. It facilitates PDF conversions and file transfers of unlimited file sizes. The perfect web to print submission tool that strengthens the printer-customer document workflow and relationship. "
        End If
        Dim metaKeyControl As Web.UI.HtmlControls.HtmlMeta = Me.Master.FindControl("MetaKey")
        If Not (DBNull.Value.Equals(metaDescriptionControl)) Then
            metaKeyControl.Content = "Affordable Web to Print, Free Web Sites for Printers, Web Sites for Print Brokers, Free PDF Print Drivers, FTP replacement for Printers, File Submission Tools, Email PDF Converters for Mac and Windows"
        End If
        Dim metaVerifyControl As Web.UI.HtmlControls.HtmlMeta = Me.Master.FindControl("VerifyMeta")
        If Not (DBNull.Value.Equals(metaDescriptionControl)) Then
            metaVerifyControl.Name = "verify-v1"
        End If
        If Not (DBNull.Value.Equals(metaDescriptionControl)) Then
            metaVerifyControl.Content = "806CIGShhuAsVXfbCnvifmxszoiKQj18LWLYq/Oe38c="
        End If


    End Sub
End Class