Partial Class firma_rehberi
    Inherits System.Web.UI.Page

    Private Sub firma_rehberi_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Page.IsPostBack = False Then
            SqlDataSource1.SelectCommand = "SELECT * FROM [FIRMAREHBERI] ORDER BY [KATEGORI], [UNVAN]"
            Repeater1.DataBind()
        End If

    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

    Protected Function CleanForAttribute(ByVal input As String) As String
        If String.IsNullOrEmpty(input) Then Return String.Empty
        Return input.Replace("'", "&apos;").Replace("""", "&quot;").Replace("&", "&amp;").Replace("<", "&lt;").Replace(">", "&gt;")
    End Function

End Class