<%@ LANGUAGE=VBScript %>
<!-- #include file="include_CuteEditor.asp" -->
<%
If Request.Form("save") = "yes" Then
Set edit = Server.CreateObject("ADODB.Recordset")
edit.Open "tTable", strDB, adOpenKeyset, adLockPessimistic
edit.AddNew
edit("Content") = Request.Form("Editor1_HTMLContent")
edit.Update
edit.Close
Set edit = nothing
End If
%>
<html>
<head>
<title>Test</title>
</head>
<body>
<form name="form" method="post" action="Employment_Add.asp">
<input type="hidden" name="save" value="yes">
<%
Dim strContent
strContent = Request.Form("Editor1_HTMLContent")
Dim editor
Set editor = New CuteEditor
editor.ID = "Editor1"
editor.Text = strContent
editor.FilesPath = "CuteEditor_Files"
editor.ImageGalleryPath = "../uploads"
editor.DocumentPath= "../uploads"
editor.FlashPath= "../uploads"
editor.AllowUpload = "true"
editor.ShowLogo = "false"
editor.Template = "G_Start,Save,Print,Separator,Cut,Copy,Paste,PasteText,PasteWord,Delete,Separator,Undo,Redo," & _
"Separator,InsertTable,AddRow,DeleteRow,AddColumn,DeleteColumn,Separator,AddCell,DeleteCell,MergeCell,SplitCell,Separator,EditRow,EditCell,G_End,Break," & _
"G_Start,ToggleBorder,AbsolutePosition,G_End,G_Start,Separator,Char,G_End," & _
"G_Start,Separator,ImageGallery,DownloadableFiles,Separator,G_End," & _
"G_Start,Bold,Italic,Underline,G_End," & _
"G_Start,Separator,JustifyLeft,JustifyCenter,JustifyRight,JustifyFull,JustifyNone,Separator,FontColor,HighLight,G_End," & _
"G_Start,Separator,InsertOrderedList,InsertUnorderedList,Separator,Indent,Outdent,G_End," & _
"G_Start,Separator,Subscript,Superscript,Strikethrough,Separator,Hr,Link,UnLink,Separator,RemoveFormat,SelectAll,SelectNone,CleanupCode,G_End,Break," & _
"G_Start,paragraphDropDown,fontDropDown,sizeDropDown,G_End"
editor.ParagraphsList = "Normal,Heading 1,Heading 2,Heading 3,Formatted"
editor.FontFacesList = "Arial,Verdana"
editor.FontSizesList = "1,2,3,4,5"
editor.StyleSheetPath = "StylesEditor.css"
editor.Width = 482
editor.Height = 200
editor.Draw()
%>
</form>
</body>
</html>