<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Rich Text Editor(TM) '** http://www.richtexteditor.org '** '** Copyright (C)2001-2009 Web Wiz(TM). All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwiz.co.uk/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwiz.co.uk '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** '*************************** SOFTWARE AND CODE MODIFICATIONS **************************** '** '** MODIFICATION OF THE FREE EDITIONS OF THIS SOFTWARE IS A VIOLATION OF THE LICENSE '** AGREEMENT AND IS STRICTLY PROHIBITED '** '** If you wish to modify any part of this software a license must be purchased '** '**************************************************************************************** 'Set the response buffer to true as we maybe redirecting Response.Buffer = True 'Make sure this page is not cached Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" Dim strEditorContent 'Holds the content from the editors text area 'Read in the data posted from the editor strEditorContent = Request.Form("myTextarea") '******************************************************************* '*** Start - What can I do with the data from the editor??? **** '******************************************************************* 'In this eample we are just displaying the data in a web page, but you could enter it into a database 'You could place the data from the editor in the variable strEditorContent into a database here 'To findout how to save data to an MS Access database please see:- ' Connecting to an Access database - http://www.webwiz.co.uk/kb/asp_tutorials/connecting_to_a_database.asp ' Saving data to an Access database - http://www.webwiz.co.uk/kb/asp_tutorials/add_to_database.asp '******************************************************************* '*** End - What can I do with the data from the editor??? **** '******************************************************************* 'If there is nothing to preview then say so If strEditorContent = "" OR IsNull(strEditorContent) OR (InStr(1, strEditorContent, "
", 1) = 1 AND Len(strEditorContent) = 8) Then strEditorContent = "

" & strTxtThereIsNothingToShow & "

" End If %> Display Message

<% = strTxtDisplayMessage %>

<% = strEditorContent %>

<% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnAbout Then Response.Write("Web Wiz Rich Text Editor version " & strRTEversion & "") Response.Write("
Copyright ©2001-2009 Web Wiz") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>