Partial Class panel_firma_rehberi
    Inherits System.Web.UI.Page

    Private Sub panel_firma_rehberi_Init(sender As Object, e As EventArgs) Handles Me.Init
        Dim cookie As HttpCookie = Request.Cookies("kullanici")
        'cookie silindi ise ana sayfaya döner
        If cookie Is Nothing Then
            Response.Redirect("default.aspx")
        End If
        '----------------------------------------------------------
    End Sub

    Private Sub GridView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GridView1.SelectedIndexChanged
        'seçilen satıra ait datakeynames değerini alır
        Dim index As Integer = GridView1.SelectedIndex
        Response.Redirect("firma-rehberi-duzenle.aspx?K=" & GridView1.DataKeys(index).Value)
    End Sub

    Private Sub ekle_Click(sender As Object, e As EventArgs) Handles ekle.Click
        Response.Redirect("firma-rehberi-tanimla.aspx")
    End Sub

    Private Sub ara_Click(sender As Object, e As EventArgs) Handles ara.Click
        'seçilen kriterlere göre arama yapar
        Dim SQL As String = "SELECT * FROM [FIRMAREHBERI] ORDER BY [KATEGORI],[UNVAN]"

        If arakategori.SelectedValue <> "" Then
            SQL = "SELECT * FROM FIRMAREHBERI WHERE KATEGORI = '" & arakategori.SelectedValue & "' and (UNVAN LIKE '%" & araunvan.Text & "%') ORDER BY [KATEGORI],[UNVAN]"
        Else
            SQL = "SELECT * FROM FIRMAREHBERI WHERE (UNVAN LIKE '%" & araunvan.Text & "%') ORDER BY [KATEGORI],[UNVAN]"
        End If
        SqlDataSource1.SelectCommand = SQL
    End Sub

    Private Sub temizle_Click(sender As Object, e As EventArgs) Handles temizle.Click
        arakategori.SelectedValue = ""
        araunvan.Text = ""
    End Sub
End Class