prova così

<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = strVirtualPath & "xxx/FCKeditor/"
oFCKeditor.Height = "500"
oFCKeditor.Create "product_descr" (crea textarea)
oFCKeditor.Value prod_descr (imposta contenuto della text area)
%>


engi