<% exchangerate = .8 canrate = 1.00 function cur(amn) cur = "$" & FormatNumber(amn * exchangerate) end function function cancur(amn) cancur = FormatNumber(amn * canrate) end function function IIfVr(theExp,theTrue,theFalse) if theExp then IIfVr=theTrue else IIfVr=theFalse end function %>