<% Dim quandbc Sub CalculateUserPrice (Price, quantity, discountPrice, Array, ArrayIndex) '************************************************************************* ' Not in lite Version ' Version 5.00 '*************************************************************************** dim categoryid, catalogid end sub %>