Cavolo problema risolto... finalmente. L'errore?
Cambiare la riga di codice
RecSet("contenuto") = Replace(Replace(Request.Form("contenuto"), chr(13), "
"), "'", "'")

in

RecSet("contenuto") = (Replace(Request.Form("contenuto"), "'", "'"))
Ciao e grz lo stesso