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

Partial Class haberdetay
    Inherits System.Web.UI.Page

    Private Sub haberdetay_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Page.IsPostBack = False Then
            If RouteData.Values("haberid") Is Nothing OrElse String.IsNullOrEmpty(RouteData.Values("haberid").ToString()) Then
                Response.Redirect("/anasayfa")
            End If

            Dim conn As New SqlConnection(ConnectionStrings("ConnectionString").ToString)
            Dim COMM As New SqlCommand
            Dim rdr As SqlDataReader

            Dim gelenId As String = RouteData.Values("haberid").ToString()
            SqlDataSource1.SelectCommand = "SELECT * FROM HABERLER WHERE id = '" & gelenId.ToString & "'"

            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 = rdr("BASLIK").ToString() & " | Kuşadası Esnaf ve Sanatkarlar Odası"
                breadbaslik.Text = rdr("BASLIK").ToString()
            End If
            conn.Close()
        End If
    End Sub
End Class