Hi am using classic ASP
Trying to create a generic function for rendering all textareas
Some i dont want to have CKEditor on (just standard textarea). Is there a way of turning off ckeditor / telling it not to render
My function so far
Sub renderCKEditor(astrName,astrInitialValue,astrConfiguration,aintCols,aintRows)
'declare local variables
dim editor
dim textareaAttributes
dim strHTML
'create the editor
set editor = New CKEditor
'set the base path
editor.basePath = application("gstrPATH") & "/includes/ckeditor/"
'create the textarea attributes
set textareaAttributes = CreateObject("Scripting.Dictionary")
textareaAttributes.Add "rows", aintRows
textareaAttributes.Add "cols", aintCols
set editor.textareaAttributes = textareaAttributes
'determin the available functionality
select case lcase(astrConfiguration)
case "cmsadmin"
toolbarSetupCMSAdmin(editor)
case "cmscand"
toolbarSetupCMSCand(editor)
case else
//////WANT TO RENDER NORMAL TEXTAREA
end select
'generate the html
strHTML = editor.editor(astrName, astrInitialValue)
'render the html
Response.Write(strHTML)
End Sub
Trying to create a generic function for rendering all textareas
Some i dont want to have CKEditor on (just standard textarea). Is there a way of turning off ckeditor / telling it not to render
My function so far
Sub renderCKEditor(astrName,astrInitialValue,astrConfiguration,aintCols,aintRows)
'declare local variables
dim editor
dim textareaAttributes
dim strHTML
'create the editor
set editor = New CKEditor
'set the base path
editor.basePath = application("gstrPATH") & "/includes/ckeditor/"
'create the textarea attributes
set textareaAttributes = CreateObject("Scripting.Dictionary")
textareaAttributes.Add "rows", aintRows
textareaAttributes.Add "cols", aintCols
set editor.textareaAttributes = textareaAttributes
'determin the available functionality
select case lcase(astrConfiguration)
case "cmsadmin"
toolbarSetupCMSAdmin(editor)
case "cmscand"
toolbarSetupCMSCand(editor)
case else
//////WANT TO RENDER NORMAL TEXTAREA
end select
'generate the html
strHTML = editor.editor(astrName, astrInitialValue)
'render the html
Response.Write(strHTML)
End Sub