Let's start from creating a HTML Form Page. Then we replace the textarea with CuteEditor.

Create a new HTML page and name it 'CuteEditorTest.asp' Copy the following code and paste it into the body section of 'CuteEditorTest.asp' page :

Inserting Records :
<form action="target.asp" method="post" ID="Form1">

title: <input type="text" name="title" ID="Text1"><br>
Comments : <textarea name="comments" cols="20" rows="5" ID="Textarea1"></textarea><br>
<input type="submit" value="submit" ID="Submit1" NAME="Submit1">

</form> 

The above HTML code creates a simple Form asking for title and comments. You can later change them according to what you want your users to enter.

ASP Action Page

Create a new ASP page 'target.asp' in the same directory as the above HTML page. Copy and paste the following ASP code into 'target.asp' page :

<%
' Declaring variables
Dim title, comments, data_source, con, sql_insert

' Receiving values from Form
title = ChkString(Request.Form("title"))
comments = ChkString(Request.Form("comments"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ 
Server.MapPath("form.mdb")
sql_insert = "insert into news (title, comments) values ('" & _
title& "', '" & comments & "')"
' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert

' Done. Close the connection
con.Close
Set con = Nothing  
' A Function to check if some field entered by user is empty
Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function
 
%>
 

Let's replace the regular textarea with CuteEditor:

<%
' Declaring variables
Dim title, comments, data_source, con, sql_insert

' Receiving values from Form
title = ChkString(Request.Form("title"))
comments = ChkString(Request.Form("Editor1_HTMLContent"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ 
Server.MapPath("form.mdb")
sql_insert = "insert into news (title, comments) values ('" & _
title& "', '" & comments & "')"
' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert

' Done. Close the connection
con.Close
Set con = Nothing  
' A Function to check if some field entered by user is empty
Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function
 
%>