Imports System.IO
Public Class Dokumente
    Inherits System.Web.UI.Page

    Dim doknr As Integer
    Dim dh As New clsDatahandling
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            Try
                Update_Dokument()
            Catch ex As Exception
            End Try
        End If
    End Sub

    Protected Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
        doknr = dh.Insert_Dokument(Me.txtBezeichnung.Text)
        Me.RadComboBox1.DataBind()

    End Sub

    Private Sub RadComboBox1_DataBound(sender As Object, e As System.EventArgs) Handles RadComboBox1.DataBound
        'Me.RadComboBox1.SelectedIndex = 0
        Update_Dokument()
    End Sub

    Protected Sub RadComboBox1_SelectedIndexChanged(sender As Object, e As Telerik.Web.UI.RadComboBoxSelectedIndexChangedEventArgs) Handles RadComboBox1.SelectedIndexChanged
        Update_Dokument()
    End Sub
    Sub Update_Dokument()
        Dim filename As String = Me.RadComboBox1.SelectedValue.ToString + ".rtf"
        Dim ds As New DataSet
        ds = dh.Get_Tabledata("select * from Web_Dokumenttexte where eintragnr=" + Me.RadComboBox1.SelectedValue.ToString, False, True)
        Me.txtDokumenttitel.Text = ds.Tables(0).Rows(0).Item("Beschreibung")
        Dim path As String = Server.MapPath("~/temp/")
        filename = path + filename
        If Not File.Exists(filename) Then
            Try
                File.Copy(path + "empty.rtf", filename, True)
            Catch ex As Exception
                Exit Sub
            End Try
        End If
        Me.Editor1.LoadRTF(filename)
    End Sub


 
    Private Sub Editor1_SaveButtonClick(sender As Object, e As EventArgs) Handles Editor1.SaveButtonClick
        Dim filename As String = Me.RadComboBox1.SelectedValue.ToString + ".rtf"
        Dim path As String = Server.MapPath("~/temp/")
        filename = path + filename
        Me.Editor1.SaveRTF(filename)
        '                Me.Editor1.LoadRTF(filename)
        dh.Save_rtf(Me.RadComboBox1.SelectedValue, filename, "")
        dh.UpdateTable("Web_Dokumenttexte", "Beschreibung", Me.txtDokumenttitel.Text, True, "Eintragnr", Me.RadComboBox1.SelectedValue.ToString)
    End Sub
End Class