<% Sub CalculateDiscount (subtotal, total, shippingcost, discpercent, discount) ' Dummy Demo VP-ASP 5.0 Jan 20, 2003 end sub %>