<%
 Set Editor = New CuteEditor

 Dim temp_styledropdownMenuNames, temp_styledropdownMenuList, temp_snippetDropDownMenuNames, temp_snippetDropDownMenuList, temp_imagesDropDownMenuNames, temp_imagesDropDownMenuList
 temp_styledropdownMenuNames = "redcolor,boldgreen,highlight"
 temp_styledropdownMenuList = "redcolor,boldgreen,highlight"
 temp_snippetDropDownMenuNames = "Contact Info,Copyright"
 temp_snippetDropDownMenuList = contactstring&", Copyright 2003 CuteSoft.Net.All right seserved."
 temp_imagesDropDownMenuNames = "Contact us,Hi Canada,Need a tool,Flower,Business,Beautiful Smile,Content tools,Nice Couple"
 temp_imagesDropDownMenuList = ""
 temp_linksDropDownMenuNames = "CuteEditor,Mail to us,Yahoo.com,Google.com,ASP.NET"
 temp_linksDropDownMenuList = "Http://www.CuteSoft.Net,mailto:[email protected],Http://www.yahoo.com,Http://www.google.com,Http://www.asp.net"
 

 

 Editor.ID = "contents"
 Editor.Text = contents
 Editor.FilesPath = "/CuteEditor"
 Editor.ImageGalleryPath = "/ContentUploads"
 Editor.DocumentPath = "/ContentUploads1"
 Editor.MaxImageSize = 300
 Editor.AutoConfigure = "EnableAll"
 Editor.StyleDropDownMenuNames = temp_styledropdownMenuNames
 Editor.StyleDropDownMenuList  = temp_styledropdownMenuList
 Editor.CodeSnippetDropDownMenuNames = temp_snippetDropDownMenuNames
 Editor.CodeSnippetDropDownMenuList  = temp_snippetDropDownMenuList
 Editor.ImagesDropDownMenuNames = temp_imagesDropDownMenuNames
 Editor.ImagesDropDownMenuList = temp_imagesDropDownMenuList
 Editor.LinksDropDownMenuNames = temp_linksDropDownMenuNames
 Editor.LinksDropDownMenuList = temp_linksDropDownMenuList

 Editor.Width = 560
 Editor.Height = 450
 Editor.EditorBodyStyle = "table { font:normal 12px arial; }"
 Editor.EditorWysiwygModeCss = "asp.css"
 Editor.Draw()
%>