Imports System.Data.SqlClient

Partial Class UserControl_buyeruserinfo
    Inherits System.Web.UI.UserControl

    Dim constr As String = ConfigurationSettings.AppSettings.Item("Atco")
    Dim con As New SqlConnection(constr)
    Dim dr As SqlDataReader
    Dim pid As Integer

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load


        Dim str As String = "select count(*) from ShopCart where ShopCart_BuyerUserId='" & Session("BuyId") & "'"
        ' lblshopcount.Text = "( " & returnvalue(str) & " )"

        str = "select count(*) from AddWishList where AddWishList_BuyerUserId='" & RemoveLiterals(Session("BuyId")) & "'"
        lnkWhislist.Text = ""
        lnkWhislist.Text = "Wish List ( " & ReturnValue(str) & " )"

        str = "select BuyerRegister_Name from BuyerRegister where BuyerRegister_KId='" & Session("BuyId") & "'"
        'lblname.Text = returnvalue(str)
        'Put user code to initialize the page here
        'Labelll.Text = Session("id1")
        'Dim uid As String
        'uid = Session("id1")
        'Dim cmd2 As SqlCommand
        'Dim j As Integer
        'cmd2 = New SqlCommand("SELECT COUNT(*)FROM BuyerRegistration2 INNER JOIN AddWishList ON BuyerRegistration2.UserId = AddWishList.UserId WHERE BuyerRegistration2.buy_email='" & uid & "'", con)
        'If con.State = Data.ConnectionState.Open Then
        '    con.Close()
        'End If
        'con.Open()
        'j = cmd2.ExecuteScalar
        'con.Close()
        ''Response.Write(j)
        'Label4.Text = j

        'Dim cmd5 As SqlCommand
        'Dim k As Integer
        'cmd5 = New SqlCommand("SELECT COUNT(*)FROM BuyerRegistration2 INNER JOIN shopingcart ON  shopingcart.UserId=BuyerRegistration2.UserId WHERE BuyerRegistration2.buy_email='" & uid & "'", con)
        'If con.State = Data.ConnectionState.Open Then
        '    con.Close()
        'End If
        'con.Open()
        'k = cmd5.ExecuteScalar
        'con.Close()
        ''Response.Write(k)
        'Label6.Text = k

        'Dim r As String
        'Dim cmd6 As SqlCommand
        'cmd6 = New SqlCommand("select buy_company from BuyerRegistration2 where BuyerRegistration2.buy_email='" & uid & "'", con)
        'If con.State = Data.ConnectionState.Open Then
        '    con.Close()
        'End If
        'con.Open()
        'r = cmd6.ExecuteScalar
        'con.Close()
        'Label1.Text = r

    End Sub

    'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '    Session.Abandon()
    '    Response.Redirect("../new_buyers/new_buyershome.aspx")
    'End Sub

    'Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
    '    'Response.Redirect("../new_buyers/login_st.aspx?cbo=5&z=2&s=1&val=" & pid & "& Uid=1")
    '    Response.Redirect("../Buyer/newBuyerProductSearch.aspx?cbo=5&z=2&s=1&val=" & pid & "& Uid=1")
    'End Sub

    'Private Sub LinkButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
    '    ' Response.Redirect("../new_buyers/trybuyer.aspx")
    '    Response.Redirect("../Buyer/ShopCart.aspx")

    'End Sub


    'Private Sub LinkButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton3.Click
    '    'Response.Redirect("../new_buyers/order1.aspx")
    '    Response.Redirect("../Buyer/OrderTrack.aspx")
    'End Sub

    'Private Sub LinkButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton4.Click
    '    Response.Redirect("../Buyer/TransactionHistory.aspx")
    'End Sub

    Private Sub LinkButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton5.Click
        Response.Redirect("../Buyer/AccountInfo.aspx")
    End Sub

    'Private Sub LinkButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton7.Click
    '    Response.Redirect("../Buyer/BuyerOrderTracking.aspx")
    'End Sub

    'Private Sub lnkaddressBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkaddressBook.Click
    '    ' Response.Redirect("../Billing/Address.aspx")
    '    Response.Redirect("~/Buyer/BuyerAddress.aspx")
    'End Sub

    Protected Sub lnkWhislist_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkWhislist.Click
        Response.Redirect("~/Buyer/WishList.aspx")
    End Sub
    'Function returnvalue(ByVal str As String) As String
    '    '   Dim query As String
    '    Dim cmd As New SqlCommand
    '    Dim sqlcon As New SqlConnection(ConfigurationManager.AppSettings("ConnectionString"))
    '    cmd.Connection = sqlcon
    '    cmd.CommandText = str
    '    Dim dr As SqlDataReader
    '    sqlcon.Open()
    '    dr = cmd.ExecuteReader
    '    If dr.Read Then
    '        Return dr(0)
    '    End If
    'End Function
End Class