<%
dim articleA
article=Request.Form("Editor1_HTMLContent")
If Request("addArticle") <> "" Then
Set con = Server.CreateObject("ADODB.connection")
con.Open "Provider=Microsoft.Jet.OleDB.4.0; data source=" & Server.MapPath("../mainDB/admin.mdb")
Set rs = Server.CreateObject("ADODB.recordset")
rs.Open "articles",con,3,3
rs.AddNew
rs("title") = setData(Request("aTitle"))
rs("article") = article
rs.Update
rs.Close
End If
%>
</BODY>
</HTML>