Dear gottwald,

 

Please try the following code:

 

Dim editor
 Set editor = New CuteEditor
 editor.ID = "detail"
 editor.Text = objRS.Fields("detail")
 editor.FilesPath = "/cute_editor_6"
 editor.EditorWysiwygModeCss = "../styles/main_style.asp"
 editor.ConfigurationPath = "/cute_editor/Configuration/kreartiv.config"
 'editor.ConfigurationPath = "/cute_editor/Configuration/einfach.config"
 'editor.ImageGalleryPath = "/Uploads"
 'editor.MaxImageSize = 50
 'editor.AutoConfigure = "Simple"
 'editor.Template= "Bold,Italic,Underline"
 'editor.ThemeType = "Office2007"
 editor.CustomCulture = "de-de"
 editor.EditorOnPaste = "PasteCleanHTML"
 'editor.AllowPasteHtml = False
 editor.BreakElement = "p"
  'editor.FullPage = false
 editor.Width = 750
 editor.Height = 300
 editor.Draw()

Regards,

Eric