<%@ Language=VBScript %>
<%
'
'Tax.asp
'Author: xx
'Date: xx
'Version: 1.0
'Description: Explore the subtypes of variants
'
'
'declare script variables
Dim varTotalPay
'assign a value
varTotalPay = 37000
varTaxableIncome = 37000-4535
varTotalTax = (1880*0.1)+(27777*0.22)+(0.4*(37000-(1880+27777)))
%>
VBScript Data Types
When total income is £37k, taxable income is: <%= FormatCurrency(CCur(varTaxableIncome)) %> and the total tax is: <%= FormatCurrency(CCur(VarTotalTax)) %>