<% REM Column Span Value %> <% HTML_CS = 3 %> <% HTML_INDENT = FALSE %>

	Sales by Product
<%If Not IsEmpty(Session("ItemCount")) Then iCount = Session("ItemCount") Else iCount = 0 End If If iCount > 0 Then%> <%End If%>	<% Set RS = Conn.Execute("{Call SalesByProduct}") TotalUnits = 0 TotalSales = 0 %> <% Do While Not RS.EOF %> <% TotalUnits = TotalUnits + RS("Total Units") TotalSales = TotalSales + RS("Total Sales") RS.MoveNext Loop %> Product Name Total Units Total Sales <%=RS("ProductName")%> <%=RS("Total Units")%> <%=Num2Dollars(RS("Total Sales"))%> Grand Total <%=TotalUnits%> <%=Num2Dollars(TotalSales)%>