Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration.ConfigurationManager

Partial Class haberdetay
    Inherits System.Web.UI.Page

    Private Sub haberdetay_Init(sender As Object, e As EventArgs) Handles Me.Init
        Dim gelenId As String = RouteData.Values("haberid").ToString()
        'If RouteData.Values("haberid") IsNot Nothing Then
        'End If

        SqlDataSource1.SelectCommand = "SELECT TOP 5 * FROM [HABERLER] WHERE ([id] <> '" & gelenId.ToString & "') ORDER BY [TARIH] DESC"

        Dim conn As New SqlConnection(ConnectionStrings("ConnectionString").ToString)
        Dim cmd As SqlCommand
        Dim adp As SqlDataAdapter

        cmd = New SqlCommand()
        cmd.Connection = conn
        cmd.CommandText = "SELECT * FROM HABERLER WHERE id = '" & gelenId.ToString & "'"
        adp = New SqlDataAdapter(cmd)
        Dim ds As DataSet
        ds = New DataSet()
        adp.Fill(ds)
        DataList1.DataSource = ds.Tables(0).DefaultView
        DataList1.DataBind()
        conn.Close()
    End Sub

    Private Sub haberdetay_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim conn As New SqlConnection(ConnectionStrings("ConnectionString").ToString)
        Dim COMM As New SqlCommand
        Dim rdr As SqlDataReader

        If Page.IsPostBack = False Then 'sayfa ilk yüklendiğinde çalışıp bir daha bu koda girmemesi için
            conn.Open()
            COMM = conn.CreateCommand()
            COMM.CommandText = "SELECT BASLIK FROM HABERLER WHERE id = '" & RouteData.Values("haberid").ToString() & "' "
            rdr = COMM.ExecuteReader
            If rdr.Read Then
                Page.Title = "Haber Detay | " & genel.urlolustur(rdr("BASLIK").ToString())
            End If
            conn.Close()
        End If
    End Sub
End Class