View ¡m../sdba/impages/CURRENCY3.im¡n
<% #$fromcurr is pre-defined $NEXTPAGE = "0"; if($INCOMINGMSG eq"1"){ $tocurr = "dollars"; $goodinput = 1; %conv = ('dollars' => 1, 'euros' => 1.066105, 'yen' => 0.008485)} elsif ($INCOMINGMSG eq"2"){ $tocurr = "euros"; $goodinput = 1; %conv = ('dollars' => 0.945921, 'euros' => 1, 'yen' => 0.007959)} elsif ($INCOMINGMSG eq"3"){ $tocurr = "yen"; $goodinput = 1; %conv = ('dollars' => 117.9642, 'euros' => 125.6401, 'yen' => 1)} else { $goodinput = 0;} if ($goodinput){ imecho "The exchange rate for $fromcurr to $tocurr is $conv{$fromcurr}"; } else { %> Please choose from one of the options below: <% include (CURRENCY2.first);} %>