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

Partial Class panel_baskanin_yazisi_tanimla
    Inherits System.Web.UI.Page

    Private Sub panel_baskanin_yazisi_tanimla_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
    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


        Dim datevalue As Date
        Date.TryParse(e_tarih.Text, datevalue)
        Session.LCID = 1033

        conn.Open()
        COMM = conn.CreateCommand()
        sql1 = "INSERT INTO BASKANIN_YAZISI (TARIH, BASLIK, YAZI) VALUES('" & datevalue & "', '" & e_baslik.Text.Replace("'", Chr(180)) & "', '" & e_yazi.Content.Replace("'", Chr(180)) & "')"

        COMM.CommandText = sql1
        COMM.ExecuteNonQuery()
        conn.Close()
        Response.Redirect("baskanin-yazisi-liste.aspx")

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 Function Randomizer(ByVal iStart As Integer, ByVal iEnd As Integer) As Integer
        Dim iRandomValue As Integer
        Randomize()
        iRandomValue = iStart + (Rnd() * (iEnd - iStart))
        Return iRandomValue
    End Function

End Class