<script runat="server">
 Public Sub Page_Load(sender As object, e As System.EventArgs)
 
  If Page.IsPostBack Then
   Editor1.SecurityPolicyFile  = "default.config"
            SetUploadsFolder("~/Uploads/Wendi/")
            Editor1.ReadOnly = false

   Literal1.Text = "<h3>The HTML you typed is...</h3><br>"
   Literal1.Text += Server.HtmlEncode(Editor1.Text)
  Else
   Editor1.Text = "Type Here"
  End If
  
 End Sub 
 
Sub SetUploadsFolder(ByVal folder As String)
        Dim phyfolder As String = Server.MapPath(folder)
        'see security.config
        Editor1.Setting("security:ImageGalleryPath")=folder
        Editor1.Setting("security:MediaGalleryPath")=folder
        Editor1.Setting("security:FlashGalleryPath")=folder
        Editor1.Setting("security:FilesGalleryPath")=folder
    End Sub
 
 public Sub Submit(sender As object, e As System.EventArgs)
  Literal1.Text = "<h2>The HTML you typed is...</h2><br>"
  Literal1.Text += Server.HtmlEncode(Editor1.Text)
 End Sub