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

Partial Class duyurudetay
    Inherits System.Web.UI.Page

    Private Sub duyurudetay_Init(sender As Object, e As EventArgs) Handles Me.Init
        Dim gelenId As String = RouteData.Values("duyuruid").ToString()

        SqlDataSource1.SelectCommand = "SELECT TOP 7 * FROM [DUYURULAR] 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 DUYURULAR 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

End Class