This is what I came up with. Anyone have anything any faster?
The variable cdigit start is a concatenation of a bunch of UPS code
numbers....
<cfset evennumbers = "">
<cfset oddnumbers = "">
<cfset cdigitstart = "699622421000000">
<cfset x = 1>
<cfset oddnumberssubtotal = 0>
<cfset evennumberstotal = 0>
<cfloop condition="x LTE len(cdigitstart)">
<Cfset mydigit = mid(cdigitstart,X,1)>
<CFIF (X MOD 2) IS 1>
<cfset evennumberstotal = (evennumberstotal + mydigit)>
<cfelse>
<cfset oddnumberssubtotal = (oddnumberssubtotal + mydigit)>
</cfif>
<cfset x = (x+1)>
</cfloop>
<cfset oddnumberstotal = (oddnumberssubtotal*2)>
<cfset step5 = (oddnumberstotal + evennumberstotal)>
<cfset nextmult10 = (((step5/10)+1)*10)>
<cfset remainder = (nextmult10-step5)>
<cfif remainder IS 10>
<cfset checkdigit = 0>
<cfelse>
<cfset checkdigit = 1>
</cfif>
<cfoutput>
#checkdigit#
</cfoutput>
------------------------------------------------------------------------------
Archives: http://www.eGroups.com/list/cf-talk
To Unsubscribe visit
http://www.houseoffusion.com/index.cfm?sidebar=lists&body=lists/cf_talk or send a
message to [EMAIL PROTECTED] with 'unsubscribe' in the body.
