<% function decimales(a) if a<>"" and a<>"0" then pos=inStr(a,",") if pos<>0 then pos=len(mid(a,pos)) if pos=2 then a=a&"0" end if end if if pos=0 then a=a&",00" end if end if decimales=a end function%>