You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
721 B
21 lines
721 B
Public Class Begruessungstext
|
|
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(7)
|
|
Me.Editor1.Text = dh.Get_Option(7)
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub Editor1_PostBackCommand(sender As Object, e As System.Web.UI.WebControls.CommandEventArgs) Handles Editor1.PostBackCommand
|
|
Select Case e.CommandName
|
|
Case "Save"
|
|
Dim dh As New clsDatahandling
|
|
dh.UpdateTable("Optionen", "Inhalt", Me.Editor1.Text, True, "OptionNr", 7)
|
|
End Select
|
|
End Sub
|
|
End Class |