I got this way
<%
Dim editor
Set editor = New CuteEditor
editor.ID = "conteudo"
editor.Text = objTextos("conteudo")
editor.FilesPath = "editor/CuteEditor_Files"
editor.AutoConfigure = "default"
editor.EditorBodyStyle = "font:normal 12px arial;"
editor.EditorWysiwygModeCss = "/editor/asp.css"
editor.URLType = "Absolute"
editor.Draw()
%>
thanks for your help