Partial Class haberler
    Inherits System.Web.UI.Page

    Private Sub haberler_Init(sender As Object, e As EventArgs) Handles Me.Init
        SqlDataSource1.SelectCommand = "SELECT * FROM HABERLER WHERE (Year(TARIH) = '" & DateTime.Now.ToString("yyyy") & "') And (Month(TARIH) = '" & DateTime.Now.ToString("MM") & "')  ORDER BY TARIH DESC"
        lbltarih.Text = DateTime.Now.ToString("MMMM") + " " + DateTime.Now.ToString("yyyy")

        SqlDataSource2.SelectCommand = "SELECT YEAR(TARIH) AS Expr1, MONTH(TARIH) AS Expr2, COUNT(id) AS Expr3 From HABERLER Group By Month(TARIH), Year(TARIH) Order By Expr1 DESC, Expr2 DESC"
        If Request.QueryString("A") <> "" And Request.QueryString("Y") <> "" Then
            SqlDataSource1.SelectCommand = "SELECT * FROM HABERLER WHERE (Year(TARIH) = '" & Request.QueryString("Y") & "') And (Month(TARIH) = '" & Request.QueryString("A") & "')  ORDER BY TARIH DESC"
            Select Case Request.QueryString("A")
                Case "1"
                    lbltarih.Text = "Ocak " + Request.QueryString("Y")
                Case "2"
                    lbltarih.Text = "Şubat " + Request.QueryString("Y")
                Case "3"
                    lbltarih.Text = "Mart " + Request.QueryString("Y")
                Case "4"
                    lbltarih.Text = "Nisan " + Request.QueryString("Y")
                Case "5"
                    lbltarih.Text = "Mayıs " + Request.QueryString("Y")
                Case "6"
                    lbltarih.Text = "Haziran " + Request.QueryString("Y")
                Case "7"
                    lbltarih.Text = "Temmuz " + Request.QueryString("Y")
                Case "8"
                    lbltarih.Text = "Ağustos " + Request.QueryString("Y")
                Case "9"
                    lbltarih.Text = "Eylül " + Request.QueryString("Y")
                Case "10"
                    lbltarih.Text = "Ekim " + Request.QueryString("Y")
                Case "11"
                    lbltarih.Text = "Kasım " + Request.QueryString("Y")
                Case "12"
                    lbltarih.Text = "Aralık " + Request.QueryString("Y")
            End Select
        End If
    End Sub

End Class