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

Sales by Employee

<%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 SalesByEmployee}") TotalUnits = 0 TotalSales = 0 %> <% Do While Not RS.EOF %> <% TotalUnits = TotalUnits + RS("Total Units") TotalSales = TotalSales + RS("Total Sales") RS.MoveNext Loop %> Employee Name Total Units Total Sales <%=RS("LastName") & ", " & RS("FirstName")%> <%=RS("Total Units")%> <%=Num2Dollars(RS("Total Sales"))%> Grand Total <%=TotalUnits%> <%=Num2Dollars(TotalSales)%>