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

Partial Class mainmaster
    Inherits System.Web.UI.MasterPage

    Protected Sub Page_Init(sender As Object, e As EventArgs) Handles Me.Init
        Dim cookie As HttpCookie = Request.Cookies("kullanici")

        'oturumu kapadıktan sonra tarayıcıda geri tuşu kullanılırsa
        If cookie Is Nothing Then
            Response.Redirect("default.aspx")
        End If
        '----------------------------------------------------------
        If Page.IsPostBack = False Then 'sayfa ilk yüklendiğinde çalışıp bir daha bu koda girmemesi için
            e_user.Text = cookie("user").ToString
        End If
        'If Page.IsPostBack = False Then 'sayfa ilk yüklendiğinde çalışıp bir daha bu koda girmemesi için
        'Dim conn As New SqlConnection(ConnectionStrings("ConnectionString").ToString)
        'Dim COMM As New SqlCommand
        'Dim rdr As SqlDataReader

        'conn.Open()
        'COMM = conn.CreateCommand()
        'COMM.CommandText = "SELECT * FROM site_tanim WHERE username = '" & cookie("user") & "'"
        'rdr = COMM.ExecuteReader
        'If rdr.Read Then e_sitead.Text = rdr("site_ad").ToString
        'conn.Close()
        'End If
    End Sub
End Class