Partial Class firma_rehberi
    Inherits System.Web.UI.Page

    Private Sub firma_rehberi_Init(sender As Object, e As EventArgs) Handles Me.Init
        SqlDataSource1.SelectCommand = "SELECT * FROM [FIRMAREHBERI] ORDER BY [KATEGORI], [UNVAN]"
    End Sub

    Private Sub arakategori_SelectedIndexChanged(sender As Object, e As EventArgs) Handles arakategori.SelectedIndexChanged
        If arakategori.SelectedValue = "" Then
            SqlDataSource1.SelectCommand = "SELECT * FROM [FIRMAREHBERI] ORDER BY [KATEGORI], [UNVAN]"
            Repeater1.DataSourceID = "SqlDataSource1"
            Repeater1.DataBind()
        Else
            SqlDataSource1.SelectCommand = "SELECT * FROM [FIRMAREHBERI] WHERE ([KATEGORI] = '" & arakategori.SelectedValue & "') ORDER BY [KATEGORI], [UNVAN]"
            Repeater1.DataSourceID = "SqlDataSource1"
            Repeater1.DataBind()
        End If
    End Sub

End Class