< %@ LANGUAGE="VBScript" %> < % '------------------------------------------------------------------------------- ' expN1 Length for padding ' expN2 Value ' expN3 Number of decimals '------------------------------------------------------------------------------- Function Format(tnLength,tnValue,tnDecimal) lcValue=CStr(tnValue) lnPosition=InStr(lcValue,".") If lnPosition=0 Then lcFormat=Space(tnLength-Len(lcValue)-1-tnDecimal)+FormatNumber(tnValue,tnDecimal) Else lcFormat=Space(tnLength-lnPosition-tnDecimal)+FormatNumber(tnValue,tnDecimal) End If Format=lcFormat End Function '------------------------------------------------------------------------------- ' Only used to insert spaces where applicable as per the alignment and the font '------------------------------------------------------------------------------- Function Space(tnLength) lcString="" For lnCompteur=1 To lnField lcString=lcString+" " Next Space=lcString End Function %> < %=Format(6,2.1,2)%>For example, the call to the Format() function here would format the value 2.1 in currency, thus two decimals places.