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