<% '========================================================= ' Retrieve the data from editor: ' If you specify your editor ID is "Editor1" ' Retrieve the data from editor: Request.Form("Editor1_HTMLContent") '========================================================= %>

<% Dim RadioList_Value RadioList_Value = Request.QueryString("Style") %>

Style Example This example shows you how to customize the appearance of the ASPEdit. value="style.asp?STYLE=White.Css" onclick="jumpTo(this)" language="javascript" />   value="style.asp?STYLE=Grey.Css" onclick="jumpTo(this)" language="javascript" />   value="style.asp" onclick="jumpTo(this)" language="javascript" />   value="style.asp?STYLE=Blue.Css" onclick="jumpTo(this)" language="javascript" />   value="style.asp?STYLE=Khaki.Css" onclick="jumpTo(this)" language="javascript" />   value="style.asp?STYLE=Royalblue.Css" onclick="jumpTo(this)" language="javascript" />   <% dim content content = "Type here..." Dim editor Set editor = New ASPEdit editor.ID = "Editor1" editor.Text = content editor.FilesPath = "ASPEdit_Files" editor.ImageGalleryPath = "/Uploads" editor.StyleSheetPath = RadioList_Value 'Specifies whether the Bottom Bar(Design, Html and Preview Mode tab) appear. editor.ShowBottomBar = false editor.Template="Bold,Italic,Underline,Separator,JustifyLeft,JustifyCenter,JustifyRight,Separator,InsertOrderedList,InsertUnorderedList,Separator,Indent,Outdent,Separator,Subscript,Superscript,Strikethrough,Separator,Hr,Link,UnLink,Char,Emotion,InsertText,Separator,ImageGallery,ExternalImage,Separator,Forward,Backward" 'editor.Width = 740 'editor.Height = 200 ' editor.Visible = "false" editor.Draw() %>

<% Function Checked(value, Checking_String) If Instr(1,Checking_String,value) <> 0 then Checked = "checked" Else Checked = "" End If End Function %>