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