<%FunctionComma(str)IfNot(IsNumeric(str))Orstr=0Then Result=0ElseIfLen(Fix(str))<4Then Result=strElse Pos=Instr(1,str,".") IfPos>0Then Dec=Mid(str,Pos) Endif Res=StrReverse(Fix(str)) LoopCount=1 WhileLoopCount<=Len(Res) TempResult=TempRes...