Checkbox processor - Old Type

<cfset selectedFruit = "">
<cfloop list="#form.fieldnames#" index="i">
    <cfif findNoCase("fruit", i) NEQ 0>
        <cfset selectedFruit = listAppend(selectedFruit, replaceNoCase(i, "fruit", "", "all"))>
    </cfif>
</cfloop>

<cfoutput>The selected fruit were: #selectedFruit#</cfoutput>