<%@ Language=VBScript %>
<%

' set checking on so that we have to dimension our variables before we can use them
Option Explicit

' dimension our variables first
dim amount, rate, value

' get the values passed from the form
amount = Request("amount")
rate = Request("exchangerate")

'calculate the amount in the new currency
value = amount * rate
%>
<HTML>
<HEAD>
<TITLE>Currency Converter</TITLE>
</HEAD>
<BODY>
<p>
You entered <%=amount%>.<br>
The converted amount is <%=value%>.
</p>
</BODY>
</HTML>