<%
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
%>