ACTIVE SERVER PAGE

	Function alterLengthType(LengthSource)
		Dim mok,namogi,returnValue,intVari
		mok = int(Len(LengthSource)/3)
		namogi = int(Len(LengthSource) mod 3)
		
		if namogi > 0 then
			returnValue = Mid(LengthSource,1,namogi)
				for intVari = 1 to mok
				returnValue = returnValue&","&Mid(LengthSource,namogi+((intVari-1)*3)+1,3)
				next
		else
			returnValue = Mid(LengthSource,1,3)
			
			if mok > 0 then
				for intVari = 1 to mok
				returnValue = returnValue&","&Mid(LengthSource,intVari*3+1,3)
				next
			end if
		end if
		
		alterLengthType = returnValue
	end Function