Public Class Text_Neuanmeldung
    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)

        '    Dim filename As String = "Neue_Anmeldung" + ".rtf"
        '    Dim path As String = Server.MapPath("~/temp/")
        '    filename = path + filename
        '    dh.Get_Richtext(2, filename)
        '    Try
        '        Me.Editor1.LoadRTF(filename)
        '    Catch
        '    End Try

        'End If
    End Sub



    Private Sub Editor1_SaveButtonClick(sender As Object, e As EventArgs) Handles Editor1.SaveButtonClick
        Dim filename As String
        filename = "UploadFile" + Me.RadioButtonList1.SelectedValue.ToString + ".rtf"
        Dim path As String = Server.MapPath("~/temp/")
        filename = path + filename

        Dim dh As New clsDatahandling


        Me.Editor1.SaveRTF(filename)
        dh.Save_Richtext(Me.RadioButtonList1.SelectedValue, filename, Me.Editor1.Text)

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dh As New clsDatahandling
        dh.Get_Option(7)

        Dim filename As String = "UploadFile" + Me.RadioButtonList1.SelectedValue.ToString + ".rtf"
        Dim path As String = Server.MapPath("~/temp/")
        filename = path + filename
        dh.Get_Richtext(Me.RadioButtonList1.SelectedValue.ToString, filename)
        Try
            Me.Editor1.LoadRTF(filename)
        Catch
        End Try
    End Sub

    
End Class