Imports System.Data.SqlClient Imports System.Configuration.ConfigurationManager Partial Class panel_baskanin_yazisi_duzenle Inherits System.Web.UI.Page Private Sub panel_baskanin_yazisi_duzenle_Init(sender As Object, e As EventArgs) Handles Me.Init 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 '---------------------------------------------------------- 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 BASKANIN_YAZISI WHERE id = '" & Request.QueryString("K") & "'" rdr = COMM.ExecuteReader If rdr.Read Then e_yaziid.Value = Request.QueryString("K") e_tarih.Text = rdr("TARIH").ToString e_baslik.Text = rdr("BASLIK").ToString e_yazi.Content = "" & rdr("YAZI").ToString & "" End If conn.Close() End If End Sub Private Sub kaydet_Click(sender As Object, e As EventArgs) Handles kaydet.Click On Error GoTo hata_kayit Dim conn As New SqlConnection(ConnectionStrings("ConnectionString").ToString) Dim COMM As New SqlCommand Dim sql1 As String mesaj1.Text = "" mesaj1.Visible = False mesaj2.Text = "" mesaj2.Visible = False Dim datevalue As Date Date.TryParse(e_tarih.Text, datevalue) Session.LCID = 1033 conn.Open() COMM = conn.CreateCommand() sql1 = "UPDATE BASKANIN_YAZISI SET TARIH = '" & datevalue & "', BASLIK = '" & e_baslik.Text.Replace("'", Chr(180)) & "', YAZI = '" & e_yazi.Content.Replace("'", Chr(180)) & "' WHERE id = '" & e_yaziid.Value & "'" COMM.CommandText = sql1 COMM.ExecuteNonQuery() conn.Close() Session.LCID = 1055 mesaj2.Text = "Bilgiler güncellendi" mesaj2.Visible = "true" Exit Sub hata_kayit: mesaj1.Text = "Kayıt işlemi sırasında bir hata oluştu, bilgi kaydedilemedi. Lütfen girişinizi kontrol ediniz!!!" mesaj1.Visible = "true" End Sub Private Sub sil_Click(sender As Object, e As EventArgs) Handles sil.Click On Error GoTo hata_kayitsil Dim conn As New SqlConnection(ConnectionStrings("ConnectionString").ToString) Dim COMM As New SqlCommand Dim sql1 As String mesaj1.Text = "" mesaj1.Visible = False mesaj2.Text = "" mesaj2.Visible = False 'kaydı siler conn.Open() sql1 = "DELETE FROM BASKANIN_YAZISI WHERE id ='" & e_yaziid.Value & "'" COMM = conn.CreateCommand() COMM.CommandText = sql1 COMM.ExecuteNonQuery() conn.Close() Response.Redirect("baskanin-yazisi-liste.aspx") hata_kayitsil: mesaj1.Text = "Silme işlemi sırasında bir hata oluştu!!!" mesaj1.Visible = "true" End Sub End Class