Imports System.Data
Imports System.Data.SqlClient

Partial Class Buyer_Address
    Inherits System.Web.UI.Page
    Dim strQuery As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("BuyId") Is Nothing Then
            Response.Redirect("buyer-home.aspx?ses=expire")
            Exit Sub
        End If
        If Page.IsPostBack = False Then
            BindGrid()
            lnkAddAddress.Visible = True
        End If
    End Sub

    Private Sub BindGrid()
        strQuery = "SELECT dbo.AddressMaster.City_Kid, dbo.AddressMaster.City_Name, dbo.AddressMaster.State_Name, dbo.AddressBook.AddressBook_UserName, " & _
                             "dbo.AddressBook.AddressBook_Zipcode, dbo.AddressMaster.Country_Name, dbo.AddressBook.AddressBook_Add1, dbo.AddressBook.AddressBook_Kid, dbo.AddressBook.AddressBook_CityID, " & _
                   "dbo.AddressBook.AddressBook_StateID,dbo.AddressBook.AddressBook_Email,dbo.AddressBook.AddressBook_CountryID " & _
                    "FROM dbo.AddressBook INNER JOIN " & _
                    "dbo.AddressMaster ON dbo.AddressBook.AddressBook_CityID = dbo.AddressMaster.City_Kid " & _
                    "where dbo.AddressBook.AddressBook_BuyerID='" & Session("BuyId") & "' and dbo.AddressBook.AddressBook_Kid<>'1'"
        GvAddress.Columns(8).Visible = True
        GvAddress.DataSource = ReturnDataTable(strQuery)
        GvAddress.DataBind()
        GvAddress.Columns(8).Visible = False
    End Sub

    Protected Sub GvAddress_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GvAddress.SelectedIndexChanged
        Response.Redirect("BuyerAddress.aspx?AddId=" & GvAddress.SelectedRow.Cells(8).Text)
    End Sub

    Protected Sub lnkAddAddress_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkAddAddress.Click
        Response.Redirect("BuyerAddress.aspx")
    End Sub

   
End Class