Provato così?
codice:
<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "../FCKeditor/"
content = rs_news.Fields.Item("corpo").Value
oFCKeditor.Value = content
oFCKeditor.Create "corpo"
%>