Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub EnglishButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles EnglishButton.Click
        Session("lang") = "en"
        Response.Cookies("lang").Value = "en"
        Response.Cookies("lang").Expires = DateTime.Now.AddYears(50)
        Response.Redirect("https://www.goprint2.com/home.aspx")
    End Sub

    Protected Sub SpanishButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SpanishButton.Click
        Session("lang") = "es"
        Response.Cookies("lang").Value = "es"
        Response.Cookies("lang").Expires = DateTime.Now.AddYears(50)
        Response.Redirect("https://www.goprint2.com/home.aspx?lang=es")
    End Sub

    Protected Sub FrenchButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FrenchButton.Click
        Session("lang") = "fr"
        Response.Cookies("lang").Value = "fr"
        Response.Cookies("lang").Expires = DateTime.Now.AddYears(50)
        Response.Redirect("https://www.goprint2.com/home.aspx?lang=fr")
    End Sub

    Protected Sub Page_LoadComplete(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LoadComplete
        Response.Redirect("https://www.goprint2.com/home.aspx")

        If Request.Cookies("lang") IsNot Nothing Then
            Dim _cookies = Request.Cookies("lang").Value
            If _cookies IsNot Nothing Then
                Session("lang") = _cookies
                If _cookies = "es" Then
                    Response.Redirect("https://www.goprint2.com/home.aspx?lang=es")
                End If
            End If
        End If
    End Sub
End Class