<!-- #include file = "editeur6/include_CuteEditor.asp" -->
<%
if request("action") = "true" then
Set rs_page = Server.CreateObject("ADODB.Recordset")
rs_page.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/myAccessDB.mdb")
rs_page.Source = "Select top 1 * from tblPages; "
rs_page.CursorType = 3
rs_page.CursorLocation = 2
rs_page.LockType = 1
rs_page.Open()
rs_page.addNew
rs_page("HTML_CONTENT") = request("HTML_CONTENT")
rs_page.update
rs_page.close
Set rs_page = nothing
response.write("<p>Added successfuly into tblPages!</p>")
end if
%>
<form name="myform" method="post">
<%
Set editor = New CuteEditor
editor.ID = "HTML_CONTENT"
editor.Text = request("HTML_CONTENT")
editor.FilesPath = "editeur6"
editor.Draw()
%>
<input type="submit" class="button" value="Add page" />
<input type="hidden" name="action" value="true" />
</form>