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

Partial Class PANEL_sifre_degistir
    Inherits System.Web.UI.Page

    Private Sub kaydet_Click(sender As Object, e As EventArgs) Handles kaydet.Click
        'oturumu kapadıktan sonra tarayıcıda geri tuşu kullanılırsa
        Dim cookie As HttpCookie = Request.Cookies("kullanici")
        'cookie silindi ise ana sayfaya döner
        If cookie Is Nothing Then
            Response.Redirect("default.aspx")
        End If

        mesaj1.Text = ""
        mesaj1.Visible = False
        mesaj2.Text = ""
        mesaj2.Visible = False

        'ilk girilen şifre ile doğrulama şifresi birbirinden farklı ise uyarır
        If yenisifre.Text <> yenisifre2.Text Then
            mesaj1.Text = "Yeni şifreniz için girmiş olduğunuz değerler birbirinden farklı. Lütfen tekrar yazınız!!!"
            mesaj1.Visible = True
            Exit Sub
        End If

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

        conn.Open()
        COMM = conn.CreateCommand()
        COMM.CommandText = "SELECT * FROM SABITLER"
        rdr = COMM.ExecuteReader

        If rdr.Read Then
            If rdr("USERPSW").ToString <> eskisifre.Text Then
                mesaj1.Text = "Mevcut şifreniz yanlış. Lütfen tekrar yazınız!!!"
                mesaj1.Visible = True
                conn.Close()
                Exit Sub
            End If
        End If
        conn.Close()

        conn.Open()
        sql1 = "UPDATE SABITLER SET USERPSW = '" & yenisifre.Text & "'"
        COMM.CommandText = sql1
        COMM.ExecuteNonQuery()
        mesaj2.Text = "ŞİFRENİZ DEĞİŞTİRİLMİŞTİR"
        mesaj2.Visible = True

        conn.Close()
        kaydet.Enabled = False
    End Sub
End Class