<% Sub ConvertCurrency (iamount, oamount) ' VP-ASP 4.0 Nov 17, 2001 ' ' 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 %>