Partial Class contact_us
    Inherits System.Web.UI.Page
    Protected _commonFunctions As CommonFunctions = New CommonFunctions()
    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 SubmitButton_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles SubmitButton.Click

        If Page.IsValid = True Then
            FailedResult.Visible = False
            SuccessResult.Visible = False

            Dim _from As String = "support@goprint2.com"
            Dim _to As String = "support@goprint2.com"
            '_to = "maria@edeninteractive.com"
            Dim _subject As String = NameTextBox.Text & " submitted contact information from GoPrint2 web site."
            Dim _body As String = "Name: " & NameTextBox.Text & "<br/>" & _
                        "Company Name: " & CompanyNameTextBox.Text & "<br/>" & _
                        "Business Type: " & BusinessTypeTextBox.Text & "<br/>" & _
                        "Address: " & AddressTextBox.Text & "<br/>" & _
                        "Phone Number: " & PhoneTextBox.Text & "<br/>" & _
                        "Email Address: " & EmailTextBox.Text & "<br/>" & _
                        "Message: " & MessageTextBox.Text & "<br/>"
            Try
                If com.racadtech.Framework.Util.Mail.SMTPClient.sendMail(New String() {_to}, _
                                                                      _subject, _body, True, _
                                                                      _from) = True Then
                    SuccessResult.Visible = True
                Else
                    FailedResult.Visible = True
                End If
            Catch ex As Exception
            End Try
        End If
        NameTextBox.Text = ""
        CompanyNameTextBox.Text = ""
        BusinessTypeTextBox.Text = ""
        AddressTextBox.Text = ""
        PhoneTextBox.Text = ""
        EmailTextBox.Text = ""
        MessageTextBox.Text = ""
    End Sub

    Protected Sub CancelButton_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles CancelButton.Click
        NameTextBox.Text = ""
        CompanyNameTextBox.Text = ""
        BusinessTypeTextBox.Text = ""
        AddressTextBox.Text = ""
        PhoneTextBox.Text = ""
        EmailTextBox.Text = ""
        SuccessResult.Visible = False
        FailedResult.Visible = False
    End Sub
End Class