FUNCTION OrderProduct
Dim iTax
    currTotal = currTotal + currPrice
    iTax = currTotal * .07
    iTax = FormatNumber(iTax, 2)
    currTotal = currTotal + iTax
    currTotal = FormatNumber(currTotal, 2)

    tdOrders.innerhtml = tdOrders.innerhtml 
                         & lstProducts.options(lstProducts.selectedindex).text & "<br>"
    tdPrices.innerhtml = tdPrices.innerhtml & FormatNumber(currPrice,2) & "<br>"
    tdTotal.innerhtml = "$ " & currTotal
    tdTax.innerHTML = "$ " & iTax
    
END FUNCTION