TaxTotal Function:

The TaxTotal function adds sales tax to a US currency value. There are two required arguments: PreTaxAmount and SalesTaxPercentage. PreTaxAmount is a US Dollar value that the calculated tax should be added to. SalesTaxPercentage is the percentage representing sales tax. SalesTaxPercentage should not have the percentage sign (%) even though it represents a percentage. Example: For an 8.5% sales tax rate, SalesTaxPercentage expects the argument 8.5 .

Syntax:
```currency = TaxTotal(PreTaxAmount, SalesTaxPercentage)```
Example Usage:
```<%
Dim BeforeTax, AfterTax, SalesTax

' sales tax is 8.5%
SalesTax = 8.5

' beforeTax is equal to the sum of the five
' items ( the total pre-tax amount )
' BeforeTax is equal to \$6,506.11
BeforeTax = _
FormatCurrency( 300.00 + 25.23 + 5245.94 + 133.94 + 801.00 , 2 )

' afterTax is the total of BeforeTax with the calculated
' 8.5% rate added to the pre-tax amount
AfterTax  = TaxTotal( BeforeTax, SalesTax )

' AfterTax returns: \$7,059.13

Response.Write AfterTax
%>
```
ASP Source Code:
```<%
Private Function TaxTotal(byVal PreTaxAmnt, byVal PercentTax)
Dim pretax, pcttax, strout
pretax = FormatNumber( PreTaxAmnt, 2 )
pcttax = 1 + (PercentTax / 100)
strout = pretax * pcttax
strout = round(strout, 2)
TaxTotal = FormatCurrency( strOut, 2 )
End Function
%>
```