rich 1.3.1 → 1.4

data/vendor/assets/ckeditor/ckeditor/_source/themes/default/theme.js

@@ -1,407 +0,0 @@
-/*
-Copyright (c) 2003-2012, CKSource - Frederico Knabben. All rights reserved.
-For licensing, see LICENSE.html or http://ckeditor.com/license
-*/
-
-/**
- * @name CKEDITOR.theme
- * @class
- */
-
-CKEDITOR.themes.add( 'default', (function()
-{
-	var hiddenSkins = {};
-
-	function checkSharedSpace( editor, spaceName )
-	{
-		var container,
-			element;
-
-		// Try to retrieve the target element from the sharedSpaces settings.
-		element = editor.config.sharedSpaces;
-		element = element && element[ spaceName ];
-		element = element && CKEDITOR.document.getById( element );
-
-		// If the element is available, we'll then create the container for
-		// the space.
-		if ( element )
-		{
-			// Creates an HTML structure that reproduces the editor class hierarchy.
-			var html =
-				'<span class="cke_shared "' +
-				' dir="'+ editor.lang.dir + '"' +
-				'>' +
-				'<span class="' + editor.skinClass + ' ' + editor.id + ' cke_editor_' + editor.name + '">' +
-				'<span class="' + CKEDITOR.env.cssClass + '">' +
-				'<span class="cke_wrapper cke_' + editor.lang.dir + '">' +
-				'<span class="cke_editor">' +
-				'<div class="cke_' + spaceName + '">' +
-				'</div></span></span></span></span></span>';
-
-			var mainContainer = element.append( CKEDITOR.dom.element.createFromHtml( html, element.getDocument() ) );
-
-			// Only the first container starts visible. Others get hidden.
-			if ( element.getCustomData( 'cke_hasshared' ) )
-				mainContainer.hide();
-			else
-				element.setCustomData( 'cke_hasshared', 1 );
-
-			// Get the deeper inner <div>.
-			container = mainContainer.getChild( [0,0,0,0] );
-
-			// Save a reference to the shared space container.
-			!editor.sharedSpaces && ( editor.sharedSpaces = {} );
-			editor.sharedSpaces[ spaceName ] = container;
-
-			// When the editor gets focus, we show the space container, hiding others.
-			editor.on( 'focus', function()
-				{
-					for ( var i = 0, sibling, children = element.getChildren() ; ( sibling = children.getItem( i ) ) ; i++ )
-					{
-						if ( sibling.type == CKEDITOR.NODE_ELEMENT
-							&& !sibling.equals( mainContainer )
-							&& sibling.hasClass( 'cke_shared' ) )
-						{
-							sibling.hide();
-						}
-					}
-
-					mainContainer.show();
-				});
-
-			editor.on( 'destroy', function()
-				{
-					mainContainer.remove();
-				});
-		}
-
-		return container;
-	}
-
-	return /** @lends CKEDITOR.theme */ {
-		build : function( editor, themePath )
-		{
-			var name = editor.name,
-				element = editor.element,
-				elementMode = editor.elementMode;
-
-			if ( !element || elementMode == CKEDITOR.ELEMENT_MODE_NONE )
-				return;
-
-			if ( elementMode == CKEDITOR.ELEMENT_MODE_REPLACE )
-				element.hide();
-
-			// Get the HTML for the predefined spaces.
-			var topHtml			= editor.fire( 'themeSpace', { space : 'top', html : '' } ).html;
-			var contentsHtml	= editor.fire( 'themeSpace', { space : 'contents', html : '' } ).html;
-			var bottomHtml		= editor.fireOnce( 'themeSpace', { space : 'bottom', html : '' } ).html;
-
-			var height	= contentsHtml && editor.config.height;
-
-			var tabIndex = editor.config.tabIndex || editor.element.getAttribute( 'tabindex' ) || 0;
-
-			// The editor height is considered only if the contents space got filled.
-			if ( !contentsHtml )
-				height = 'auto';
-			else if ( !isNaN( height ) )
-				height += 'px';
-
-			var style = '';
-			var width	= editor.config.width;
-
-			if ( width )
-			{
-				if ( !isNaN( width ) )
-					width += 'px';
-
-				style += "width: " + width + ";";
-			}
-
-			var sharedTop		= topHtml && checkSharedSpace( editor, 'top' ),
-				sharedBottoms	= checkSharedSpace( editor, 'bottom' );
-
-			sharedTop		&& ( sharedTop.setHtml( topHtml )		, topHtml = '' );
-			sharedBottoms	&& ( sharedBottoms.setHtml( bottomHtml ), bottomHtml = '' );
-
-			var hideSkin = '<style>.' + editor.skinClass + '{visibility:hidden;}</style>';
-			if ( hiddenSkins[ editor.skinClass ] )
-				hideSkin = '';
-			else
-				hiddenSkins[ editor.skinClass ] = 1;
-
-			var container = CKEDITOR.dom.element.createFromHtml( [
-				'<span' +
-					' id="cke_', name, '"' +
-					' class="', editor.skinClass, ' ', editor.id, ' cke_editor_', name, '"' +
-					' dir="', editor.lang.dir, '"' +
-					' title="', ( CKEDITOR.env.gecko ? ' ' : '' ), '"' +
-					' lang="', editor.langCode, '"' +
-						( CKEDITOR.env.webkit? ' tabindex="' + tabIndex + '"' : '' ) +
-					' role="application"' +
-					' aria-labelledby="cke_', name, '_arialbl"' +
-					( style ? ' style="' + style + '"' : '' ) +
-					'>' +
-					'<span id="cke_', name, '_arialbl" class="cke_voice_label">' + editor.lang.editor + '</span>' +
-					'<span class="' , CKEDITOR.env.cssClass, '" role="presentation">' +
-						'<span class="cke_wrapper cke_', editor.lang.dir, '" role="presentation">' +
-							'<table class="cke_editor" border="0" cellspacing="0" cellpadding="0" role="presentation"><tbody>' +
-								'<tr', topHtml		? '' : ' style="display:none"', ' role="presentation"><td id="cke_top_'		, name, '" class="cke_top" role="presentation">'	, topHtml		, '</td></tr>' +
-								'<tr', contentsHtml	? '' : ' style="display:none"', ' role="presentation"><td id="cke_contents_', name, '" class="cke_contents" style="height:', height, '" role="presentation">', contentsHtml, '</td></tr>' +
-								'<tr', bottomHtml	? '' : ' style="display:none"', ' role="presentation"><td id="cke_bottom_'	, name, '" class="cke_bottom" role="presentation">'	, bottomHtml	, '</td></tr>' +
-							'</tbody></table>' +
-							//Hide the container when loading skins, later restored by skin css.
-							hideSkin +
-						'</span>' +
-					'</span>' +
-				'</span>' ].join( '' ) );
-
-			container.getChild( [1, 0, 0, 0, 0] ).unselectable();
-			container.getChild( [1, 0, 0, 0, 2] ).unselectable();
-
-			if ( elementMode == CKEDITOR.ELEMENT_MODE_REPLACE )
-				container.insertAfter( element );
-			else
-				element.append( container );
-
-			/**
-			 * The DOM element that holds the main editor interface.
-			 * @name CKEDITOR.editor.prototype.container
-			 * @type CKEDITOR.dom.element
-			 * @example
-			 * var editor = CKEDITOR.instances.editor1;
-			 * alert( <b>editor.container</b>.getName() );  "span"
-			 */
-			editor.container = container;
-
-			// Disable browser context menu for editor's chrome.
-			container.disableContextMenu();
-
-			// Use a class to indicate that the current selection is in different direction than the UI.
-			editor.on( 'contentDirChanged', function( evt )
-			{
-				var func = ( editor.lang.dir != evt.data ? 'add' : 'remove' ) + 'Class';
-
-				container.getChild( 1 )[ func ]( 'cke_mixed_dir_content' );
-
-				// Put the mixed direction class on the respective element also for shared spaces.
-				var toolbarSpace = this.sharedSpaces && this.sharedSpaces[ this.config.toolbarLocation ];
-				toolbarSpace && toolbarSpace.getParent().getParent()[ func ]( 'cke_mixed_dir_content' );
-			});
-
-			editor.fireOnce( 'themeLoaded' );
-			editor.fireOnce( 'uiReady' );
-		},
-
-		buildDialog : function( editor )
-		{
-			var baseIdNumber = CKEDITOR.tools.getNextNumber();
-
-			var element = CKEDITOR.dom.element.createFromHtml( [
-					'<div class="', editor.id, '_dialog cke_editor_', editor.name.replace('.', '\\.'), '_dialog cke_skin_', editor.skinName,
-						'" dir="', editor.lang.dir, '"' +
-						' lang="', editor.langCode, '"' +
-						' role="dialog"' +
-						' aria-labelledby="%title#"' +
-						'>' +
-						'<table class="cke_dialog', ' ' + CKEDITOR.env.cssClass,
-							' cke_', editor.lang.dir, '" style="position:absolute" role="presentation">' +
-							'<tr><td role="presentation">' +
-							'<div class="%body" role="presentation">' +
-								'<div id="%title#" class="%title" role="presentation"></div>' +
-								'<a id="%close_button#" class="%close_button" href="javascript:void(0)" title="' +  editor.lang.common.close+'" role="button"><span class="cke_label">X</span></a>' +
-								'<div id="%tabs#" class="%tabs" role="tablist"></div>' +
-								'<table class="%contents" role="presentation">' +
-								'<tr>' +
-								  '<td id="%contents#" class="%contents" role="presentation"></td>' +
-								'</tr>' +
-								'<tr>' +
-								  '<td id="%footer#" class="%footer" role="presentation"></td>' +
-								'</tr>' +
-								'</table>' +
-							'</div>' +
-							'<div id="%tl#" class="%tl"></div>' +
-							'<div id="%tc#" class="%tc"></div>' +
-							'<div id="%tr#" class="%tr"></div>' +
-							'<div id="%ml#" class="%ml"></div>' +
-							'<div id="%mr#" class="%mr"></div>' +
-							'<div id="%bl#" class="%bl"></div>' +
-							'<div id="%bc#" class="%bc"></div>' +
-							'<div id="%br#" class="%br"></div>' +
-							'</td></tr>' +
-						'</table>',
-
-						//Hide the container when loading skins, later restored by skin css.
-						( CKEDITOR.env.ie ? '' : '<style>.cke_dialog{visibility:hidden;}</style>' ),
-
-					'</div>'
-				].join( '' )
-					.replace( /#/g, '_' + baseIdNumber )
-					.replace( /%/g, 'cke_dialog_' ) );
-
-			var body = element.getChild( [ 0, 0, 0, 0, 0 ] ),
-				title = body.getChild( 0 ),
-				close = body.getChild( 1 );
-
-			// IFrame shim for dialog that masks activeX in IE. (#7619)
-			if ( CKEDITOR.env.ie && !CKEDITOR.env.ie6Compat )
-			{
-				var isCustomDomain = CKEDITOR.env.isCustomDomain(),
-					src = 'javascript:void(function(){' + encodeURIComponent( 'document.open();' + ( isCustomDomain ? ( 'document.domain="' + document.domain + '";' ) : '' ) + 'document.close();' ) + '}())',
-					iframe = CKEDITOR.dom.element.createFromHtml( '<iframe' +
-  							' frameBorder="0"' +
-							' class="cke_iframe_shim"' +
-  							' src="' + src + '"' +
-							' tabIndex="-1"' +
-  							'></iframe>' );
-				iframe.appendTo( body.getParent() );
-			}
-
-			// Make the Title and Close Button unselectable.
-			title.unselectable();
-			close.unselectable();
-
-
-			return {
-				element : element,
-				parts :
-				{
-					dialog		: element.getChild( 0 ),
-					title		: title,
-					close		: close,
-					tabs		: body.getChild( 2 ),
-					contents	: body.getChild( [ 3, 0, 0, 0 ] ),
-					footer		: body.getChild( [ 3, 0, 1, 0 ] )
-				}
-			};
-		},
-
-		destroy : function( editor )
-		{
-			var container = editor.container,
-				element = editor.element;
-
-			if ( container )
-			{
-				container.clearCustomData();
-				container.remove();
-			}
-
-			if ( element )
-			{
-				element.clearCustomData();
-				editor.elementMode == CKEDITOR.ELEMENT_MODE_REPLACE && element.show();
-				delete editor.element;
-			}
-		}
-	};
-})() );
-
-/**
- * Returns the DOM element that represents a theme space. The default theme defines
- * three spaces, namely "top", "contents" and "bottom", representing the main
- * blocks that compose the editor interface.
- * @param {String} spaceName The space name.
- * @returns {CKEDITOR.dom.element} The element that represents the space.
- * @example
- * // Hide the bottom space in the UI.
- * var bottom = editor.getThemeSpace( 'bottom' );
- * bottom.setStyle( 'display', 'none' );
- */
-CKEDITOR.editor.prototype.getThemeSpace = function( spaceName )
-{
-	var spacePrefix = 'cke_' + spaceName;
-	var space = this._[ spacePrefix ] ||
-		( this._[ spacePrefix ] = CKEDITOR.document.getById( spacePrefix + '_' + this.name ) );
-	return space;
-};
-
-/**
- * Resizes the editor interface.
- * @param {Number|String} width The new width. It can be an pixels integer or a
- *		CSS size value.
- * @param {Number|String} height The new height. It can be an pixels integer or
- *		a CSS size value.
- * @param {Boolean} [isContentHeight] Indicates that the provided height is to
- *		be applied to the editor contents space, not to the entire editor
- *		interface. Defaults to false.
- * @param {Boolean} [resizeInner] Indicates that the first inner interface
- *		element must receive the size, not the outer element. The default theme
- *		defines the interface inside a pair of span elements
- *		(&lt;span&gt;&lt;span&gt;...&lt;/span&gt;&lt;/span&gt;). By default the
- *		first span element receives the sizes. If this parameter is set to
- *		true, the second span is sized instead.
- * @example
- * editor.resize( 900, 300 );
- * @example
- * editor.resize( '100%', 450, true );
- */
-CKEDITOR.editor.prototype.resize = function( width, height, isContentHeight, resizeInner )
-{
-	var container = this.container,
-		contents = CKEDITOR.document.getById( 'cke_contents_' + this.name ),
-		contentsFrame = CKEDITOR.env.webkit && this.document && this.document.getWindow().$.frameElement,
-		outer = resizeInner ? container.getChild( 1 ) : container;
-
-	// Set as border box width. (#5353)
-	outer.setSize( 'width',  width, true );
-
-	// WebKit needs to refresh the iframe size to avoid rendering issues. (1/2) (#8348)
-	contentsFrame && ( contentsFrame.style.width = '1%' );
-
-	// Get the height delta between the outer table and the content area.
-	// If we're setting the content area's height, then we don't need the delta.
-	var delta = isContentHeight ? 0 : ( outer.$.offsetHeight || 0 ) - ( contents.$.clientHeight || 0 );
-	contents.setStyle( 'height', Math.max( height - delta, 0 ) + 'px' );
-
-	// WebKit needs to refresh the iframe size to avoid rendering issues. (2/2) (#8348)
-	contentsFrame && ( contentsFrame.style.width = '100%' );
-
-	// Emit a resize event.
-	this.fire( 'resize' );
-};
-
-/**
- * Gets the element that can be freely used to check the editor size. This method
- * is mainly used by the resize plugin, which adds a UI handle that can be used
- * to resize the editor.
- * @param {Boolean} forContents Whether to return the "contents" part of the theme instead of the container.
- * @returns {CKEDITOR.dom.element} The resizable element.
- * @example
- */
-CKEDITOR.editor.prototype.getResizable = function( forContents )
-{
-	return forContents ? CKEDITOR.document.getById( 'cke_contents_' + this.name ) : this.container;
-};
-
-/**
- * Makes it possible to place some of the editor UI blocks, like the toolbar
- * and the elements path, into any element in the page.
- * The elements used to hold the UI blocks can be shared among several editor
- * instances. In that case, only the blocks of the active editor instance will
- * display.
- * @name CKEDITOR.config.sharedSpaces
- * @type Object
- * @default undefined
- * @example
- * // Place the toolbar inside the element with ID "someElementId" and the
- * // elements path into the element with ID "anotherId".
- * config.sharedSpaces =
- * {
- *     top : 'someElementId',
- *     bottom : 'anotherId'
- * };
- * @example
- * // Place the toolbar inside the element with ID "someElementId". The
- * // elements path will remain attached to the editor UI.
- * config.sharedSpaces =
- * {
- *     top : 'someElementId'
- * };
- */
-
-/**
- * Fired after the editor instance is resized through
- * the {@link CKEDITOR.editor.prototype.resize} method.
- * @name CKEDITOR.editor#resize
- * @event
- */

data/vendor/assets/ckeditor/ckeditor/adapters/jquery.js

@@ -1,6 +0,0 @@
-/*
-Copyright (c) 2003-2012, CKSource - Frederico Knabben. All rights reserved.
-For licensing, see LICENSE.html or http://ckeditor.com/license
-*/
-
-(function(){CKEDITOR.config.jqueryOverrideVal=typeof CKEDITOR.config.jqueryOverrideVal=='undefined'?true:CKEDITOR.config.jqueryOverrideVal;var a=window.jQuery;if(typeof a=='undefined')return;a.extend(a.fn,{ckeditorGet:function(){var b=this.eq(0).data('ckeditorInstance');if(!b)throw 'CKEditor not yet initialized, use ckeditor() with callback.';return b;},ckeditor:function(b,c){if(!CKEDITOR.env.isCompatible)return this;if(!a.isFunction(b)){var d=c;c=b;b=d;}c=c||{};this.filter('textarea, div, p').each(function(){var e=a(this),f=e.data('ckeditorInstance'),g=e.data('_ckeditorInstanceLock'),h=this;if(f&&!g){if(b)b.apply(f,[this]);}else if(!g){if(c.autoUpdateElement||typeof c.autoUpdateElement=='undefined'&&CKEDITOR.config.autoUpdateElement)c.autoUpdateElementJquery=true;c.autoUpdateElement=false;e.data('_ckeditorInstanceLock',true);f=CKEDITOR.replace(h,c);e.data('ckeditorInstance',f);f.on('instanceReady',function(i){var j=i.editor;setTimeout(function(){if(!j.element){setTimeout(arguments.callee,100);return;}i.removeListener('instanceReady',this.callee);j.on('dataReady',function(){e.trigger('setData.ckeditor',[j]);});j.on('getData',function(l){e.trigger('getData.ckeditor',[j,l.data]);},999);j.on('destroy',function(){e.trigger('destroy.ckeditor',[j]);});if(j.config.autoUpdateElementJquery&&e.is('textarea')&&e.parents('form').length){var k=function(){e.ckeditor(function(){j.updateElement();});};e.parents('form').submit(k);e.parents('form').bind('form-pre-serialize',k);e.bind('destroy.ckeditor',function(){e.parents('form').unbind('submit',k);e.parents('form').unbind('form-pre-serialize',k);});}j.on('destroy',function(){e.data('ckeditorInstance',null);});e.data('_ckeditorInstanceLock',null);e.trigger('instanceReady.ckeditor',[j]);if(b)b.apply(j,[h]);},0);},null,null,9999);}else CKEDITOR.on('instanceReady',function(i){var j=i.editor;setTimeout(function(){if(!j.element){setTimeout(arguments.callee,100);return;}if(j.element.$==h)if(b)b.apply(j,[h]);},0);},null,null,9999);});return this;}});if(CKEDITOR.config.jqueryOverrideVal)a.fn.val=CKEDITOR.tools.override(a.fn.val,function(b){return function(c,d){var e=typeof c!='undefined',f;this.each(function(){var g=a(this),h=g.data('ckeditorInstance');if(!d&&g.is('textarea')&&h){if(e)h.setData(c);else{f=h.getData();return null;}}else if(e)b.call(g,c);else{f=b.call(g);return null;}return true;});return e?this:f;};});})();

data/vendor/assets/ckeditor/ckeditor/ckeditor.asp

@@ -1,955 +0,0 @@
-<%
- '
- ' Copyright (c) 2003-2012, CKSource - Frederico Knabben. All rights reserved.
- ' For licensing, see LICENSE.html or http://ckeditor.com/license
-
-' Shared variable for all instances ("static")
-dim CKEDITOR_initComplete
-dim CKEDITOR_returnedEvents
-
- ''
- ' \brief CKEditor class that can be used to create editor
- ' instances in ASP pages on server side.
- ' @see http://ckeditor.com
- '
- ' Sample usage:
- ' @code
- ' editor = new CKEditor
- ' editor.editor "editor1", "<p>Initial value.</p>", empty, empty
- ' @endcode
-
-Class CKEditor
-
-	''
-	' The version of %CKEditor.
-	private version
-
-	''
-	' A constant string unique for each release of %CKEditor.
-	private mTimeStamp
-
-	''
-	' URL to the %CKEditor installation directory (absolute or relative to document root).
-	' If not set, CKEditor will try to guess it's path.
-	'
-	' Example usage:
-	' @code
-	' editor.basePath = "/ckeditor/"
-	' @endcode
-	Public basePath
-
-	''
-	' A boolean variable indicating whether CKEditor has been initialized.
-	' Set it to true only if you have already included
-	' &lt;script&gt; tag loading ckeditor.js in your website.
-	Public initialized
-
-	''
-	' Boolean variable indicating whether created code should be printed out or returned by a function.
-	'
-	' Example 1: get the code creating %CKEditor instance and print it on a page with the "echo" function.
-	' @code
-	' editor = new CKEditor
-	' editor.returnOutput = true
-	' code = editor.editor("editor1", "<p>Initial value.</p>", empty, empty)
-	' response.write "<p>Editor 1:</p>"
-	' response.write code
-	' @endcode
-	Public returnOutput
-
-	''
-	' A Dictionary with textarea attributes.
-	'
-	' When %CKEditor is created with the editor() method, a HTML &lt;textarea&gt; element is created,
-	' it will be displayed to anyone with JavaScript disabled or with incompatible browser.
-	public textareaAttributes
-
-	''
-	' A string indicating the creation date of %CKEditor.
-	' Do not change it unless you want to force browsers to not use previously cached version of %CKEditor.
-	public timestamp
-
-	''
-	' A dictionary that holds the instance configuration.
-	private oInstanceConfig
-
-	''
-	' A dictionary that holds the configuration for all the instances.
-	private oAllInstancesConfig
-
-	''
-	' A dictionary that holds event listeners for the instance.
-	private oInstanceEvents
-
-	''
-	' A dictionary that holds event listeners for all the instances.
-	private oAllInstancesEvents
-
-	''
-	' A Dictionary that holds global event listeners (CKEDITOR object)
-	private oGlobalEvents
-
-
-	Private Sub Class_Initialize()
-		version = "3.6.3"
-		timeStamp = "C3HA5RM"
-		mTimeStamp = "C3HA5RM"
-
-		Set oInstanceConfig = CreateObject("Scripting.Dictionary")
-		Set oAllInstancesConfig = CreateObject("Scripting.Dictionary")
-
-		Set oInstanceEvents = CreateObject("Scripting.Dictionary")
-		Set oAllInstancesEvents = CreateObject("Scripting.Dictionary")
-		Set oGlobalEvents = CreateObject("Scripting.Dictionary")
-
-		Set textareaAttributes = CreateObject("Scripting.Dictionary")
-		textareaAttributes.Add "rows", 8
-		textareaAttributes.Add "cols", 60
-	End Sub
-
-	''
-	 ' Creates a %CKEditor instance.
-	 ' In incompatible browsers %CKEditor will downgrade to plain HTML &lt;textarea&gt; element.
-	 '
-	 ' @param name (string) Name of the %CKEditor instance (this will be also the "name" attribute of textarea element).
-	 ' @param value (string) Initial value.
-	 '
-	 ' Example usage:
-	 ' @code
-	 ' set editor = New CKEditor
-	 ' editor.editor "field1", "<p>Initial value.</p>"
-	 ' @endcode
-	 '
-	 ' Advanced example:
-	 ' @code
-	 ' set editor = new CKEditor
-	 ' set config = CreateObject("Scripting.Dictionary")
-	 ' config.Add "toolbar", Array( _
-	 '	Array( "Source", "-", "Bold", "Italic", "Underline", "Strike" ), _
-	 '	Array( "Image", "Link", "Unlink", "Anchor" ) _
-	 ' )
-	 ' set events = CreateObject("Scripting.Dictionary")
-	 ' events.Add "instanceReady", "function (evt) { alert('Loaded second editor: ' + evt.editor.name );}"
-
-	 ' editor.editor "field1", "<p>Initial value.</p>", config, events
-	 ' @endcode
-	 '
-	public function editor(name, value)
-		dim attr, out, js, customConfig, extraConfig
-		dim attribute
-
-		attr = ""
-
-		for each attribute in textareaAttributes
-			attr = attr & " " &  attribute & "=""" & replace( textareaAttributes( attribute ), """", "&quot" ) & """"
-		next
-
-		out = "<textarea name=""" & name & """" & attr & ">" & Server.HtmlEncode(value) & "</textarea>" & vbcrlf
-
-		if not(initialized) then
-			out = out & init()
-		end if
-
-		set customConfig = configSettings()
-		js = returnGlobalEvents()
-
-		extraConfig = (new JSON)( empty, customConfig, false )
-		if extraConfig<>"" then extraConfig = ", " & extraConfig
-		js = js & "CKEDITOR.replace('" & name & "'" & extraConfig & ");"
-
-		out = out & script(js)
-
-		if not(returnOutput) then
-			response.write out
-			out = ""
-		end if
-
-		editor = out
-
-		oInstanceConfig.RemoveAll
-		oInstanceEvents.RemoveAll
-	end function
-
-	''
-	 ' Replaces a &lt;textarea&gt; with a %CKEditor instance.
-	 '
-	 ' @param id (string) The id or name of textarea element.
-	 '
-	 ' Example 1: adding %CKEditor to &lt;textarea name="article"&gt;&lt;/textarea&gt; element:
-	 ' @code
-	 ' set editor = New CKEditor
-	 ' editor.replace "article"
-	 ' @endcode
-	 '
-	public function replaceInstance(id)
-		dim out, js, customConfig, extraConfig
-
-		out = ""
-		if not(initialized) then
-			out = out & init()
-		end if
-
-		set customConfig = configSettings()
-		js = returnGlobalEvents()
-
-		extraConfig = (new JSON)( empty, customConfig, false )
-		if extraConfig<>"" then extraConfig = ", " & extraConfig
-		js = js & "CKEDITOR.replace('" & id & "'" & extraConfig & ");"
-
-		out = out & script(js)
-
-		if not(returnOutput) then
-			response.write out
-			out = ""
-		end if
-
-		replaceInstance = out
-
-		oInstanceConfig.RemoveAll
-		oInstanceEvents.RemoveAll
-	end function
-
-	''
-	 ' Replace all &lt;textarea&gt; elements available in the document with editor instances.
-	 '
-	 ' @param className (string) If set, replace all textareas with class className in the page.
-	 '
-	 ' Example 1: replace all &lt;textarea&gt; elements in the page.
-	 ' @code
-	 ' editor = new CKEditor
-	 ' editor.replaceAll empty
-	 ' @endcode
-	 '
-	 ' Example 2: replace all &lt;textarea class="myClassName"&gt; elements in the page.
-	 ' @code
-	 ' editor = new CKEditor
-	 ' editor.replaceAll 'myClassName'
-	 ' @endcode
-	 '
-	function replaceAll(className)
-		dim out, js, customConfig
-
-		out = ""
-		if not(initialized) then
-			out = out & init()
-		end if
-
-		set customConfig = configSettings()
-		js = returnGlobalEvents()
-
-		if (customConfig.Count=0) then
-			if (isEmpty(className)) then
-				js = js & "CKEDITOR.replaceAll();"
-			else
-				js = js & "CKEDITOR.replaceAll('" & className & "');"
-			end if
-		else
-			js = js & "CKEDITOR.replaceAll( function(textarea, config) {\n"
-			if not(isEmpty(className)) then
-				js = js & "	var classRegex = new RegExp('(?:^| )' + '" & className & "' + '(?:$| )');\n"
-				js = js & "	if (!classRegex.test(textarea.className))\n"
-				js = js & "		return false;\n"
-			end if
-			js = js & "	CKEDITOR.tools.extend(config, " & (new JSON)( empty, customConfig, false ) & ", true);"
-			js = js & "} );"
-		end if
-
-		out = out & script(js)
-
-		if not(returnOutput) then
-			response.write out
-			out = ""
-		end if
-
-		replaceAll = out
-
-		oInstanceConfig.RemoveAll
-		oInstanceEvents.RemoveAll
-	end function
-
-
-	''
-	' A Dictionary that holds the %CKEditor configuration for all instances
-	' For the list of available options, see http://docs.cksource.com/ckeditor_api/symbols/CKEDITOR.config.html
-	'
-	' Example usage:
-	' @code
-	' editor.config("height") = 400
-	' // Use @@ at the beggining of a string to ouput it without surrounding quotes.
-	' editor.config("width") = "@@screen.width * 0.8"
-	' @endcode
-	Public Property Let Config( configKey, configValue )
-		oAllInstancesConfig.Add configKey, configValue
-	End Property
-
-	''
-	' Configuration options for the next instance
-	'
-	Public Property Let instanceConfig( configKey, configValue )
-		oInstanceConfig.Add configKey, configValue
-	End Property
-
-	''
-	 ' Adds event listener.
-	 ' Events are fired by %CKEditor in various situations.
-	 '
-	 ' @param eventName (string) Event name.
-	 ' @param javascriptCode (string) Javascript anonymous function or function name.
-	 '
-	 ' Example usage:
-	 ' @code
-	 ' editor.addEventHandler  "instanceReady", "function (ev) { " & _
-	 '    " alert('Loaded: ' + ev.editor.name); " & _
-	 ' "}"
-	 ' @endcode
-	 '
-	public sub addEventHandler(eventName, javascriptCode)
-		if not(oAllInstancesEvents.Exists( eventName ) ) then
-			oAllInstancesEvents.Add eventName, Array()
-		end if
-
-		dim listeners, size
-		listeners = oAllInstancesEvents( eventName )
-		size = ubound(listeners) + 1
-		redim preserve listeners(size)
-		listeners(size) = javascriptCode
-
-		oAllInstancesEvents( eventName ) = listeners
-'		'' Avoid duplicates. fixme...
-'		if (!in_array($javascriptCode, $this->_events[$event])) {
-'			$this->_events[$event][] = $javascriptCode;
-'		}
-	end sub
-
-	''
-	 ' Clear registered event handlers.
-	 ' Note: this function will have no effect on already created editor instances.
-	 '
-	 ' @param eventName (string) Event name, if set to 'empty' all event handlers will be removed.
-	 '
-	public sub clearEventHandlers( eventName )
-		if not(isEmpty( eventName )) then
-			oAllInstancesEvents.Remove eventName
-		else
-			oAllInstancesEvents.RemoveAll
-		end if
-	end sub
-
-
-	''
-	 ' Adds event listener only for the next instance.
-	 ' Events are fired by %CKEditor in various situations.
-	 '
-	 ' @param eventName (string) Event name.
-	 ' @param javascriptCode (string) Javascript anonymous function or function name.
-	 '
-	 ' Example usage:
-	 ' @code
-	 ' editor.addInstanceEventHandler  "instanceReady", "function (ev) { " & _
-	 '    " alert('Loaded: ' + ev.editor.name); " & _
-	 ' "}"
-	 ' @endcode
-	 '
-	public sub addInstanceEventHandler(eventName, javascriptCode)
-		if not(oInstanceEvents.Exists( eventName ) ) then
-			oInstanceEvents.Add eventName, Array()
-		end if
-
-		dim listeners, size
-		listeners = oInstanceEvents( eventName )
-		size = ubound(listeners) + 1
-		redim preserve listeners(size)
-		listeners(size) = javascriptCode
-
-		oInstanceEvents( eventName ) = listeners
-'		'' Avoid duplicates. fixme...
-'		if (!in_array($javascriptCode, $this->_events[$event])) {
-'			$this->_events[$event][] = $javascriptCode;
-'		}
-	end sub
-
-	''
-	 ' Clear registered event handlers.
-	 ' Note: this function will have no effect on already created editor instances.
-	 '
-	 ' @param eventName (string) Event name, if set to 'empty' all event handlers will be removed.
-	 '
-	public sub clearInstanceEventHandlers( eventName )
-		if not(isEmpty( eventName )) then
-			oInstanceEvents.Remove eventName
-		else
-			oInstanceEvents.RemoveAll
-		end if
-	end sub
-
-	''
-	 ' Adds global event listener.
-	 '
-	 ' @param event (string) Event name.
-	 ' @param javascriptCode (string) Javascript anonymous function or function name.
-	 '
-	 ' Example usage:
-	 ' @code
-	 ' editor.addGlobalEventHandler "dialogDefinition", "function (ev) { " & _
-	 '   "  alert('Loading dialog: ' + ev.data.name); " & _
-	 ' "}"
-	 ' @endcode
-	 '
-	public sub addGlobalEventHandler( eventName, javascriptCode)
-		if not(oGlobalEvents.Exists( eventName ) ) then
-			oGlobalEvents.Add eventName, Array()
-		end if
-
-		dim listeners, size
-		listeners = oGlobalEvents( eventName )
-		size = ubound(listeners) + 1
-		redim preserve listeners(size)
-		listeners(size) = javascriptCode
-
-		oGlobalEvents( eventName ) = listeners
-
-'		// Avoid duplicates.
-'		if (!in_array($javascriptCode, $this->_globalEvents[$event])) {
-'			$this->_globalEvents[$event][] = $javascriptCode;
-'		}
-	end sub
-
-	''
-	 ' Clear registered global event handlers.
-	 ' Note: this function will have no effect if the event handler has been already printed/returned.
-	 '
-	 ' @param eventName (string) Event name, if set to 'empty' all event handlers will be removed .
-	 '
-	public sub clearGlobalEventHandlers( eventName )
-		if not(isEmpty( eventName )) then
-			oGlobalEvents.Remove eventName
-		else
-			oGlobalEvents.RemoveAll
-		end if
-	end sub
-
-	''
-	 ' Prints javascript code.
-	 '
-	 ' @param string js
-	 '
-	private function script(js)
-		script = "<script type=""text/javascript"">" & _
-			"//<![CDATA[" & vbcrlf & _
-			js & vbcrlf & _
-			"//]]>" & _
-			"</script>" & vbcrlf
-	end function
-
-	''
-	 ' Returns the configuration array (global and instance specific settings are merged into one array).
-	 '
-	 ' @param instanceConfig (Dictionary) The specific configurations to apply to editor instance.
-	 ' @param instanceEvents (Dictionary) Event listeners for editor instance.
-	 '
-	private function configSettings()
-		dim mergedConfig, mergedEvents
-		set mergedConfig = cloneDictionary(oAllInstancesConfig)
-		set mergedEvents = cloneDictionary(oAllInstancesEvents)
-
-		if not(isEmpty(oInstanceConfig)) then
-			set mergedConfig = mergeDictionary(mergedConfig, oInstanceConfig)
-		end if
-
-		if not(isEmpty(oInstanceEvents)) then
-			for each eventName in oInstanceEvents
-				code = oInstanceEvents( eventName )
-
-				if not(mergedEvents.Exists( eventName)) then
-					mergedEvents.Add eventName, code
-				else
-
-					dim listeners, size
-					listeners = mergedEvents( eventName )
-					size = ubound(listeners)
-					if isArray( code ) then
-						addedCount = ubound(code)
-						redim preserve listeners( size + addedCount + 1 )
-						for i = 0 to addedCount
-							listeners(size + i + 1) = code (i)
-						next
-					else
-						size = size + 1
-						redim preserve listeners(size)
-						listeners(size) = code
-					end if
-
-					mergedEvents( eventName ) = listeners
-				end if
-			next
-
-		end if
-
-		dim i, eventName, handlers, configON, ub, code
-
-		if mergedEvents.Count>0 then
-			if mergedConfig.Exists( "on" ) then
-				set configON = mergedConfig.items( "on" )
-			else
-				set configON = CreateObject("Scripting.Dictionary")
-				mergedConfig.Add "on", configOn
-			end if
-
-			for each eventName in mergedEvents
-				handlers = mergedEvents( eventName )
-				code = ""
-
-				if isArray(handlers) then
-					uB = ubound(handlers)
-					if (uB = 0) then
-						code = handlers(0)
-					else
-						code = "function (ev) {"
-						for i=0 to uB
-							code = code & "(" & handlers(i) & ")(ev);"
-						next
-						code = code & "}"
-					end if
-				else
-					code = handlers
-				end if
-				' Using @@ at the beggining to signal JSON that we don't want this quoted.
-				configON.Add eventName, "@@" & code
-			next
-
-'			set mergedConfig.Item("on") = configOn
-		end if
-
-		set configSettings = mergedConfig
-	end function
-
-	 ''
-		' Returns a copy of a scripting.dictionary object
-		'
-	private function cloneDictionary( base )
-		dim newOne, tmpKey
-
-		Set newOne = CreateObject("Scripting.Dictionary")
-		for each tmpKey in base
-			newOne.Add tmpKey , base( tmpKey )
-		next
-
-		set cloneDictionary = newOne
-	end function
-
-	 ''
-		' Combines two scripting.dictionary objects
-		' The base object isn't modified, and extra gets all the properties in base
-		'
-	private function mergeDictionary(base, extra)
-		dim newOne, tmpKey
-
-		for each tmpKey in base
-			if not(extra.Exists( tmpKey )) then
-				extra.Add tmpKey, base( tmpKey )
-			end if
-		next
-
-		set mergeDictionary = extra
-	end function
-
-	''
-	 ' Return global event handlers.
-	 '
-	private function returnGlobalEvents()
-		dim out, eventName, handlers
-		dim handlersForEvent, handler, code, i
-		out = ""
-
-		if (isempty(CKEDITOR_returnedEvents)) then
-			set CKEDITOR_returnedEvents = CreateObject("Scripting.Dictionary")
-		end if
-
-		for each eventName in oGlobalEvents
-			handlers = oGlobalEvents( eventName )
-
-			if not(CKEDITOR_returnedEvents.Exists(eventName)) then
-				CKEDITOR_returnedEvents.Add eventName, CreateObject("Scripting.Dictionary")
-			end if
-
-				set handlersForEvent = CKEDITOR_returnedEvents.Item( eventName )
-
-				' handlersForEvent is another dictionary
-				' and handlers is an array
-
-				for i = 0 to ubound(handlers)
-					code = handlers( i )
-
-					' Return only new events
-					if not(handlersForEvent.Exists( code )) then
-						if (out <> "") then out = out & vbcrlf
-						out = out & "CKEDITOR.on('" &  eventName & "', " & code & ");"
-						handlersForEvent.Add code, code
-					end if
-				next
-		next
-
-		returnGlobalEvents = out
-	end function
-
-	''
-	 ' Initializes CKEditor (executed only once).
-	 '
-	private function init()
-		dim out, args, path, extraCode, file
-		out = ""
-
-		if (CKEDITOR_initComplete) then
-			init = ""
-			exit function
-		end if
-
-		if (initialized) then
-			CKEDITOR_initComplete = true
-			init = ""
-			exit function
-		end if
-
-		args = ""
-		path = ckeditorPath()
-
-		if (timestamp <> "") and (timestamp <> "%" & "TIMESTAMP%") then
-			args = "?t=" & timestamp
-		end if
-
-		' Skip relative paths...
-		if (instr(path, "..") <> 0) then
-			out = out & script("window.CKEDITOR_BASEPATH='" &  path  & "';")
-		end if
-
-		out = out & "<scr" & "ipt type=""text/javascript"" src=""" & path & ckeditorFileName() & args & """></scr" & "ipt>" & vbcrlf
-
-		extraCode = ""
-		if (timestamp <> mTimeStamp) then
-			extraCode = extraCode & "CKEDITOR.timestamp = '" & timestamp & "';"
-		end if
-		if (extraCode <> "") then
-			out = out & script(extraCode)
-		end if
-
-		CKEDITOR_initComplete = true
-		initialized = true
-
-		init = out
-	end function
-
-	private function ckeditorFileName()
-		ckeditorFileName = "ckeditor.js"
-	end function
-
-	''
-	 ' Return path to ckeditor.js.
-	 '
-	private function ckeditorPath()
-		if (basePath <> "") then
-			ckeditorPath = basePath
-		else
-			' In classic ASP we can't get the location of this included script
-			ckeditorPath = "/ckeditor/"
-		end if
-
-		' Try to check if that folder contains the CKEditor files:
-		' If it's a full URL avoid checking it as it might point to an external server.
-		if (instr(ckeditorPath, "://") <> 0) then exit function
-
-		dim filename, oFSO, exists
-		filename = server.mapPath(basePath & ckeditorFileName())
-		set oFSO = Server.CreateObject("Scripting.FileSystemObject")
-		exists = oFSO.FileExists(filename)
-		set oFSO = nothing
-
-		if not(exists) then
-			response.clear
-			response.write "<h1>CKEditor path validation failed</h1>"
-			response.write "<p>The path &quot;" & ckeditorPath & "&quot; doesn't include the CKEditor main file (" & ckeditorFileName() & ")</p>"
-			response.write "<p>Please, verify that you have set it correctly and/or adjust the 'basePath' property</p>"
-			response.write "<p>Checked for physical file: &quot;" & filename & "&quot;</p>"
-			response.end
-		end if
-	end function
-
-End Class
-
-
-
-' URL: http://www.webdevbros.net/2007/04/26/generate-json-from-asp-datatypes/
-'**************************************************************************************************************
-'' @CLASSTITLE:		JSON
-'' @CREATOR:		Michal Gabrukiewicz (gabru at grafix.at), Michael Rebec
-'' @CONTRIBUTORS:	- Cliff Pruitt (opensource at crayoncowboy.com)
-''					- Sylvain Lafontaine
-''					- Jef Housein
-''					- Jeremy Brown
-'' @CREATEDON:		2007-04-26 12:46
-'' @CDESCRIPTION:	Comes up with functionality for JSON (http://json.org) to use within ASP.
-''					Correct escaping of characters, generating JSON Grammer out of ASP datatypes and structures
-''					Some examples (all use the <em>toJSON()</em> method but as it is the class' default method it can be left out):
-''					<code>
-''					<%
-''					'simple number
-''					output = (new JSON)("myNum", 2, false)
-''					'generates {"myNum": 2}
-''
-''					'array with different datatypes
-''					output = (new JSON)("anArray", array(2, "x", null), true)
-''					'generates "anArray": [2, "x", null]
-''					'(note: the last parameter was true, thus no surrounding brackets in the result)
-''					% >
-''					</code>
-'' @REQUIRES:		-
-'' @OPTIONEXPLICIT:	yes
-'' @VERSION:		1.5.1
-
-'**************************************************************************************************************
-class JSON
-
-	'private members
-	private output, innerCall
-
-	'**********************************************************************************************************
-	'* constructor
-	'**********************************************************************************************************
-	public sub class_initialize()
-		newGeneration()
-	end sub
-
-	'******************************************************************************************
-	'' @SDESCRIPTION:	STATIC! takes a given string and makes it JSON valid
-	'' @DESCRIPTION:	all characters which needs to be escaped are beeing replaced by their
-	''					unicode representation according to the
-	''					RFC4627#2.5 - http://www.ietf.org/rfc/rfc4627.txt?number=4627
-	'' @PARAM:			val [string]: value which should be escaped
-	'' @RETURN:			[string] JSON valid string
-	'******************************************************************************************
-	public function escape(val)
-		dim cDoubleQuote, cRevSolidus, cSolidus
-		cDoubleQuote = &h22
-		cRevSolidus = &h5C
-		cSolidus = &h2F
-		dim i, currentDigit
-		for i = 1 to (len(val))
-			currentDigit = mid(val, i, 1)
-			if ascw(currentDigit) > &h00 and ascw(currentDigit) < &h1F then
-				currentDigit = escapequence(currentDigit)
-			elseif ascw(currentDigit) >= &hC280 and ascw(currentDigit) <= &hC2BF then
-				currentDigit = "\u00" + right(padLeft(hex(ascw(currentDigit) - &hC200), 2, 0), 2)
-			elseif ascw(currentDigit) >= &hC380 and ascw(currentDigit) <= &hC3BF then
-				currentDigit = "\u00" + right(padLeft(hex(ascw(currentDigit) - &hC2C0), 2, 0), 2)
-			else
-				select case ascw(currentDigit)
-					case cDoubleQuote: currentDigit = escapequence(currentDigit)
-					case cRevSolidus: currentDigit = escapequence(currentDigit)
-					case cSolidus: currentDigit = escapequence(currentDigit)
-				end select
-			end if
-			escape = escape & currentDigit
-		next
-	end function
-
-	'******************************************************************************************************************
-	'' @SDESCRIPTION:	generates a representation of a name value pair in JSON grammer
-	'' @DESCRIPTION:	It generates a name value pair which is represented as <em>{"name": value}</em> in JSON.
-	''					the generation is fully recursive. Thus the value can also be a complex datatype (array in dictionary, etc.) e.g.
-	''					<code>
-	''					<%
-	''					set j = new JSON
-	''					j.toJSON "n", array(RS, dict, false), false
-	''					j.toJSON "n", array(array(), 2, true), false
-	''					% >
-	''					</code>
-	'' @PARAM:			name [string]: name of the value (accessible with javascript afterwards). leave empty to get just the value
-	'' @PARAM:			val [variant], [int], [float], [array], [object], [dictionary]: value which needs
-	''					to be generated. Conversation of the data types is as follows:<br>
-	''					- <strong>ASP datatype -> JavaScript datatype</strong>
-	''					- NOTHING, NULL -> null
-	''					- INT, DOUBLE -> number
-	''					- STRING -> string
-	''					- BOOLEAN -> bool
-	''					- ARRAY -> array
-	''					- DICTIONARY -> Represents it as name value pairs. Each key is accessible as property afterwards. json will look like <code>"name": {"key1": "some value", "key2": "other value"}</code>
-	''					- <em>multidimensional array</em> -> Generates a 1-dimensional array (flat) with all values of the multidimensional array
-	''					- <em>request</em> object -> every property and collection (cookies, form, querystring, etc) of the asp request object is exposed as an item of a dictionary. Property names are <strong>lowercase</strong>. e.g. <em>servervariables</em>.
-	''					- OBJECT -> name of the type (if unknown type) or all its properties (if class implements <em>reflect()</em> method)
-	''					Implement a <strong>reflect()</strong> function if you want your custom classes to be recognized. The function must return
-	''					a dictionary where the key holds the property name and the value its value. Example of a reflect function within a User class which has firstname and lastname properties
-	''					<code>
-	''					<%
-	''					function reflect()
-	''					.	set reflect = server.createObject("scripting.dictionary")
-	''					.	reflect.add "firstname", firstname
-	''					.	reflect.add "lastname", lastname
-	''					end function
-	''					% >
-	''					</code>
-	''					Example of how to generate a JSON representation of the asp request object and access the <em>HTTP_HOST</em> server variable in JavaScript:
-	''					<code>
-	''					<script>alert(<%= (new JSON)(empty, request, false) % >.servervariables.HTTP_HOST);</script>
-	''					</code>
-	'' @PARAM:			nested [bool]: indicates if the name value pair is already nested within another? if yes then the <em>{}</em> are left out.
-	'' @RETURN:			[string] returns a JSON representation of the given name value pair
-	'******************************************************************************************************************
-	public default function toJSON(name, val, nested)
-		if not nested and not isEmpty(name) then write("{")
-		if not isEmpty(name) then write("""" & escape(name) & """: ")
-		generateValue(val)
-		if not nested and not isEmpty(name) then write("}")
-		toJSON = output
-
-		if innerCall = 0 then newGeneration()
-	end function
-
-	'******************************************************************************************************************
-	'* generate
-	'******************************************************************************************************************
-	private function generateValue(val)
-		if isNull(val) then
-			write("null")
-		elseif isArray(val) then
-			generateArray(val)
-		elseif isObject(val) then
-			dim tName : tName = typename(val)
-			if val is nothing then
-				write("null")
-			elseif tName = "Dictionary" or tName = "IRequestDictionary" then
-				generateDictionary(val)
-			elseif tName = "IRequest" then
-				set req = server.createObject("scripting.dictionary")
-				req.add "clientcertificate", val.ClientCertificate
-				req.add "cookies", val.cookies
-				req.add "form", val.form
-				req.add "querystring", val.queryString
-				req.add "servervariables", val.serverVariables
-				req.add "totalbytes", val.totalBytes
-				generateDictionary(req)
-			elseif tName = "IStringList" then
-				if val.count = 1 then
-					toJSON empty, val(1), true
-				else
-					generateArray(val)
-				end if
-			else
-				generateObject(val)
-			end if
-		else
-			'bool
-			dim varTyp
-			varTyp = varType(val)
-			if varTyp = 11 then
-				if val then write("true") else write("false")
-			'int, long, byte
-			elseif varTyp = 2 or varTyp = 3 or varTyp = 17 or varTyp = 19 then
-				write(cLng(val))
-			'single, double, currency
-			elseif varTyp = 4 or varTyp = 5 or varTyp = 6 or varTyp = 14 then
-				write(replace(cDbl(val), ",", "."))
-			else
-				' Using @@ at the beggining to signal JSON that we don't want this quoted.
-				if left(val, 2) = "@@" then
-					write( mid( val, 3 ) )
-				else
-					write("""" & escape(val & "") & """")
-				end if
-			end if
-		end if
-		generateValue = output
-	end function
-
-	'******************************************************************************************************************
-	'* generateArray
-	'******************************************************************************************************************
-	private sub generateArray(val)
-		dim item, i
-		write("[")
-		i = 0
-		'the for each allows us to support also multi dimensional arrays
-		for each item in val
-			if i > 0 then write(",")
-			generateValue(item)
-			i = i + 1
-		next
-		write("]")
-	end sub
-
-	'******************************************************************************************************************
-	'* generateDictionary
-	'******************************************************************************************************************
-	private sub generateDictionary(val)
-		innerCall = innerCall + 1
-		if val.count = 0 then
-			toJSON empty, null, true
-			exit sub
-		end if
-		dim key, i
-		write("{")
-		i = 0
-		for each key in val
-			if i > 0 then write(",")
-			toJSON key, val(key), true
-			i = i + 1
-		next
-		write("}")
-		innerCall = innerCall - 1
-	end sub
-
-	'******************************************************************************************************************
-	'* generateObject
-	'******************************************************************************************************************
-	private sub generateObject(val)
-		dim props
-		on error resume next
-		set props = val.reflect()
-		if err = 0 then
-			on error goto 0
-			innerCall = innerCall + 1
-			toJSON empty, props, true
-			innerCall = innerCall - 1
-		else
-			on error goto 0
-			write("""" & escape(typename(val)) & """")
-		end if
-	end sub
-
-	'******************************************************************************************************************
-	'* newGeneration
-	'******************************************************************************************************************
-	private sub newGeneration()
-		output = empty
-		innerCall = 0
-	end sub
-
-	'******************************************************************************************
-	'* JsonEscapeSquence
-	'******************************************************************************************
-	private function escapequence(digit)
-		escapequence = "\u00" + right(padLeft(hex(ascw(digit)), 2, 0), 2)
-	end function
-
-	'******************************************************************************************
-	'* padLeft
-	'******************************************************************************************
-	private function padLeft(value, totalLength, paddingChar)
-		padLeft = right(clone(paddingChar, totalLength) & value, totalLength)
-	end function
-
-	'******************************************************************************************
-	'* clone
-	'******************************************************************************************
-	private function clone(byVal str, n)
-		dim i
-		for i = 1 to n : clone = clone & str : next
-	end function
-
-	'******************************************************************************************
-	'* write
-	'******************************************************************************************
-	private sub write(val)
-		output = output & val
-	end sub
-
-end class
-%>