<%
    dim content
    content = "Type here" 
    Dim editor
    Set editor = New CuteEditor
    editor.ID = "Editor1"
    editor.Text = content
    editor.FilesPath = "CuteEditor_Files"
    editor.EditorBodyStyle = "font:normal 12px arial;"
    editor.EditorWysiwygModeCss = "asp.css"
    editor.Draw()
            
    ' Request.Form(ID) access from other page
   %>
    
   <br/><br/>
   <TEXTAREA cols=50 rows=5 id=myTextArea style="width:550px" NAME="myTextArea">Try click the "get HTML" button</TEXTAREA>
   <br/><br/>
   
   <INPUT type=button name=b4 value="get HTML" onclick="myTextArea.value=obj_Editor1.getHTML()" ID="Button1">
   <INPUT type=button name=b5 value="set HTML" onclick="obj_Editor1.editdoc.body.innerHTML=myTextArea.value;" ID="Button2">
   <INPUT type=button name=b9 value="insert HTML" onclick="obj_Editor1.PasteHTML('This is a test!')" ID="Button7">