Public Class FirmenaktivierungText
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            Dim dh As New clsDatahandling
            dh.Get_Option(15)
            Me.Editor1.Text = dh.Get_Option(15)

        End If
    End Sub



    Private Sub Editor1_SaveButtonClick(sender As Object, e As EventArgs) Handles Editor1.SaveButtonClick
        Dim dh As New clsDatahandling
        dh.UpdateTable("Optionen", "Inhalt", Me.Editor1.Text, True, "OptionNr", 15)
    End Sub

    Protected Sub Editor1_TextChanged(sender As Object, e As EventArgs) Handles Editor1.TextChanged

    End Sub
End Class