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

Partial Class firmadetay
    Inherits System.Web.UI.Page

    Private Sub firmadetay_Init(sender As Object, e As EventArgs) Handles Me.Init
        Dim conn As New SqlConnection(ConnectionStrings("ConnectionString").ToString)
        Dim cmd As SqlCommand
        Dim adp As SqlDataAdapter
        Dim rdr As SqlDataReader

        Dim gelenId As String = RouteData.Values("firmaid").ToString()
        'If RouteData.Values("firmaid") IsNot Nothing Then
        'End If

        If Page.IsPostBack = False Then 'sayfa ilk yüklendiğinde çalışıp bir daha bu koda girmemesi için
            conn.Open()
            cmd = conn.CreateCommand()
            cmd.CommandText = "SELECT * FROM FIRMAREHBERI WHERE id = '" & gelenId.ToString & "'"
            rdr = cmd.ExecuteReader
            If rdr.Read Then
                lblkategori.Text = rdr("KATEGORI").ToString
                lblfirmaunvan.Text = rdr("UNVAN").ToString
                'hrefkategori.HRef = String.Format("/firma-rehberi/{0}", urlolustur(rdr("KATEGORI").ToString()))
            End If
            conn.Close()
        End If


        cmd = New SqlCommand()
        cmd.Connection = conn
        cmd.CommandText = "SELECT * FROM FIRMAREHBERI 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