Partial Class Admin_controls_contant
    Inherits System.Web.UI.UserControl
    Private _mode As Integer
    Private _Contant As Integer
    Public htmlout As String
    Dim x As New main.Content
    Public Property modex() As Integer
        Get
            Return _mode
        End Get
        Set(ByVal value As Integer)
            _mode = value
        End Set
    End Property
    Public Property con() As Integer
        Get
            Return _Contant
        End Get
        Set(ByVal value As Integer)
            TextBox1.Text = _Contant
            _Contant = value
        End Set
    End Property
    Public Function SetCon(ByVal ID As Integer) As Boolean
        TextBox1.Text = ID
        _Contant = ID
        Return True
    End Function
    Protected Sub Page_CommitTransaction(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.CommitTransaction
        MsgBox("xxx")
    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Button1.Visible = True
        FCKeditor1.BasePath = "~/fckeditor/"
        FCKeditor1.ToolbarSet = "Scms"
        If Not IsPostBack Then
            If _mode = 0 Then
                Me.FCKeditor1.Value = x.GetCon(_Contant)
                TextBox1.Text = _Contant
            Else
                Me.FCKeditor1.Visible = False
                Me.htmlout = x.GetCon(_Contant)
                TextBox1.Text = _Contant
            End If
        Else
            _Contant = Int(TextBox1.Text)
            If FCKeditor1.Visible = False Then
                Me.htmlout = x.GetCon(_Contant)
            End If
        End If
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        FCKeditor1.BasePath = "~/fckeditor/"
        FCKeditor1.Visible = True
        FCKeditor1.Value = x.GetCon(_Contant)
        htmlout = ""
        _mode = 0
        Button1.Visible = False
        Button2.Visible = True
        Button3.Visible = True
        Button4.Visible = True
        'End If
    End Sub
    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        FCKeditor1.Visible = False
        htmlout = x.GetCon(_Contant)
        _mode = 1
        Button1.Visible = True
        Button2.Visible = False
        Button3.Visible = False
        Button4.Visible = False
    End Sub
    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        htmlout = "<table border='1' ><tr><td>"
        htmlout += FCKeditor1.Value
        htmlout += "</tr><td></table>"
        FCKeditor1.Visible = True
    End Sub
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        If x.UpdateCon(_Contant, FCKeditor1.Value) Then
            Label1.Text = "עריכת התוכן סוימה בהצלחה."
            Label1.ForeColor = Drawing.Color.Green
            FCKeditor1.Visible = False
            htmlout = x.GetCon(_Contant)
            _mode = 1
            Button1.Visible = True
            Button2.Visible = False
            Button3.Visible = False
            Button4.Visible = False
            Me.Page_Load(sender, e)
        Else
            Label1.Text = "אירעה שגיאה בעריכת התוכן"
            Label1.ForeColor = Drawing.Color.Red
        End If
    End Sub
End Class

'כאן זה הפרופרטי כפובליק
<%# MenuGroup %>