<% Sub ConvertCurrency (iamount, oamount) ' VP-ASP 5.0 Feb 4, 2003 ' ' Convert currency dim ydualconversionrate ydualconversionrate=getconfig("xdualconversionrate") if not isnumeric(ydualconversionrate) then exit sub end if if ydualconversionrate<>"" then ydualconversionrate=cdbl(ydualconversionrate) oamount=iamount*ydualconversionrate else oamount=iamount end if end sub %>