Finally got it working by rearranging the queries so that the cont_body text field was last in string. Here are the changes I made;
Line 18 dim dDate, sTitle, sSummary, lAuthorID, sBody
Lines 38 - 43
sTitle = ChkString(Request.Form("Title"),"SQLString")
sSummary = ChkString(Request.Form("Summary"),"message")
lAuthorID = Request.Form("AuthID")
lCategoryID = Request.Form("CatID")
sBody = ChkString(Request.Form("Message"),"message")
dDate = DateToStr(strForumTimeAdjust)
Lines 66-72 strSql = "UPDATE " & strTablePrefix & "CMS_CONTENT SET "
strSql = strSql & "CAT_ID = " & lCategoryID
strSql = strSql & ", CONT_TITLE = '" & sTitle & "'"
strSql = strSql & ", CONT_SUMMARY = '" & sSummary & "'"
strSql = strSql & ", CONT_LAST_EDIT = '" & dDate & "' "
strSql = strSql & ", CONT_AUTHOR = '" & lAuthorID & "' "
strSql = strSql & ", CONT_BODY = '" & sBody & "' "
strSql = strSql & "WHERE " & strTablePrefix & "CMS_CONTENT.CONT_ID = " & lContentID
Lines 91-99 strSql = "INSERT INTO " & strTablePrefix & "CMS_CONTENT (CAT_ID"
strSql = strSql & ", CONT_TITLE"
strSql = strSql & ", CONT_SUMMARY"
strSql = strSql & ", CONT_POSTEDBY"
strSql = strSql & ", CONT_AUTHOR"
strSql = strSql & ", CONT_DATE"
strSql = strSql & ", CONT_BODY"
strSql = strSql & ", CONT_LAST_EDIT"
strSql = strSql & ", CONT_STATUS"
strSql = strSql & ") VALUES ("
strSql = strSql & "" & lCategoryID
strSql = strSql & ", '" & sTitle & "'"
strSql = strSql & ", '" & sSummary & "'"
strSql = strSql & ", " & MemberID
strSql = strSql & ", " & lAuthorID
strSql = strSql & ", '" & dDate & "'"
strSql = strSql & ", '" & sBody & "'"
strSql = strSql & ", '" & dDate & "'"
strSql = strSql & ", 1)"
Lines 153-172 strSql = "SELECT "
strSql = strSql & strTablePrefix & "CMS_CONTENT.CONT_ID, "
strSql = strSql & strTablePrefix & "CMS_CONTENT.CAT_ID, "
strSql = strSql & strTablePrefix & "CMS_CONTENT.CONT_DATE, "
strSql = strSql & strTablePrefix & "CMS_CONTENT.CONT_TITLE, "
strSql = strSql & strTablePrefix & "CMS_CONTENT.CONT_AUTHOR, "
strSql = strSql & strTablePrefix & "CMS_CONTENT.CONT_LAST_EDIT, "
strSql = strSql & strTablePrefix & "CMS_CONTENT.CONT_SUMMARY, "
strSql = strSql & strTablePrefix & "CMS_CONTENT.CONT_BODY "
strSql = strSql & "FROM " & strTablePrefix & "CMS_CONTENT "
strSql = strSql & "WHERE " & strTablePrefix & "CMS_CONTENT.CONT_ID = "& lContentID
set rsContent = my_Conn.Execute(strSql)
sTitle = rsContent.Fields("CONT_TITLE").Value
sSummary = rsContent.Fields("CONT_SUMMARY").Value
lAuthorID = rsContent.Fields("CONT_AUTHOR").Value
sBody = rsContent.Fields("CONT_BODY").Value
lCategoryID = rsContent.Fields("CAT_ID").Value