home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VID / SERVER / ASF / DATA.Z / Sales_by_Product.asp < prev    next >
Text File  |  1996-10-28  |  4KB  |  164 lines
  1. <!--#include virtual="/AdvWorks/Num2Dolr.inc"-->
  2.  
  3. <HTML>
  4.  
  5. <HEAD>
  6. <TITLE>Adventure Works Sales by Product</TITLE>
  7. </HEAD>
  8.  
  9. <BODY BACKGROUND="/AdvWorks/multimedia/images/back_sub.gif" LINK="#800000" VLINK="#008040"> 
  10. <FONT FACE="MS SANS SERIF" SIZE=2>
  11. <BGSOUND SRC="/AdvWorks/multimedia/sounds/windfin4.wav">
  12.  
  13. <TABLE WIDTH=600 BORDER=0>
  14.  
  15. <TR>
  16. <TD>
  17. <IMG SRC="/AdvWorks/multimedia/images/spacer.GIF" ALIGN=RIGHT WIDTH=110 ALT="Spacer">
  18. </TD>
  19. <TD COLSPAN=3>
  20.  
  21. <FONT SIZE=4 FACE="ARIAL NARROW" COLOR="#800000">Sales by Product</FONT>
  22.  
  23. <HR SIZE=4>
  24. </TD>
  25. </TR>
  26.  
  27. <TR>
  28. <TD ROWSPAN=7 VALIGN=TOP ALIGN=LEFT>
  29. <A HREF="/AdvWorks/equipment/default.asp">
  30. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_equipment.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Equipment"></A><BR>
  31.  
  32. <A HREF="/AdvWorks/excursions/default.asp">
  33. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_excursions.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Membership and Excursions"></A><BR>
  34.  
  35. <A HREF="/AdvWorks/resources/default.asp">
  36. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_resources.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Resources"></A><BR>
  37.  
  38. <A HREF="/AdvWorks/internal/default.asp">
  39. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_internal.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Internal"></A><BR>
  40.  
  41. <A HREF="/AdvWorks/default.asp">
  42. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_home.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Home"></A><BR>
  43.  
  44. <%If Not IsEmpty(Session("ItemCount")) Then
  45.      iCount = Session("ItemCount")
  46.   Else
  47.      iCount = 0
  48.   End If
  49.  
  50.   If iCount > 0 Then%>
  51.  
  52.      <A HREF="/AdvWorks/equipment/check_out.asp">
  53.      <IMG SRC="/AdvWorks/multimedia/images/checkout.gif" width="85" height="45" ALT="Check Out" BORDER=O></A>
  54.  
  55. <%End If%>
  56.  
  57. </TD>
  58.  
  59. <TD VALIGN=TOP ALIGN=LEFT COLSPAN=3><FONT SIZE=2>
  60.  
  61.  
  62. <FORM ACTION="/AdvWorks/ ........ " METHOD=POST>
  63.  
  64. <%
  65.   Set RS = Conn.Execute("{Call SalesByProduct}")
  66.  
  67.   TotalUnits = 0
  68.   TotalSales = 0
  69.  
  70. %>
  71.  
  72. <TABLE COLSPAN=8 CELLPADDING=5 BORDER=0>
  73.  
  74. <!-- BEGIN column header row -->
  75.  
  76. <TR>
  77.  
  78. <TD ALIGN=CENTER BGCOLOR="#800000">
  79. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Product Name</FONT>
  80. </TD>
  81. <TD ALIGN=CENTER BGCOLOR="#800000">
  82. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Total Units</FONT>
  83. </TD>
  84. <TD ALIGN=CENTER BGCOLOR="#800000">
  85. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Total Sales</FONT>
  86. </TD>
  87.  
  88. </TR>
  89.  
  90. <!-- BEGIN first row of inserted product data -->
  91.  
  92. <% Do While Not RS.EOF %>
  93.   <TR>
  94.   <TD BGCOLOR="f7efde" ALIGN=CENTER>
  95.   <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("ProductName")%></FONT></TD>
  96.   <TD BGCOLOR="f7efde" ALIGN=CENTER>
  97.   <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("Total Units")%></FONT></TD>
  98.   <TD BGCOLOR="f7efde" ALIGN=CENTER>
  99.   <FONT STYLE="ARIAL NARROW" SIZE=1><%=Num2Dollars(RS("Total Sales"))%></FONT></TD>
  100.   </TR>
  101. <%
  102.   TotalUnits = TotalUnits + RS("Total Units")
  103.   TotalSales = TotalSales + RS("Total Sales")
  104.   RS.MoveNext
  105.   Loop
  106. %>
  107.  
  108. <TR>
  109.  
  110. <TD ALIGN=CENTER BGCOLOR="#800000">
  111. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Grand Total</FONT>
  112. </TD>
  113. <TD ALIGN=CENTER BGCOLOR="#800000">
  114. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1><%=TotalUnits%></FONT>
  115. </TD>
  116. <TD ALIGN=CENTER BGCOLOR="#800000">
  117. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1><%=Num2Dollars(TotalSales)%></FONT>
  118. </TD>
  119.  
  120. </TR>
  121.  
  122. </TABLE>
  123. <BR>
  124. <OBJECT
  125.     classid="clsid:FC25B780-75BE-11CF-8B01-444553540000"
  126.         CODEBASE="/AdvWorks/Controls/iechart.ocx"
  127.     id=chart1
  128.     width=500
  129.     height=200
  130.     align=center
  131.     hspace=0
  132.     vspace=0
  133. >
  134. <param name="hgridStyle" value="3">
  135. <param name="vgridStyle" value="0">
  136. <param name="colorscheme" value="0">
  137. <param name="DisplayLegend" value="1">
  138. <param name="BackStyle" value="1">
  139. <param name="BackColor" value="#800000">
  140. <param name="ForeColor" value="#ffffff">
  141. <param name="Scale" value="100">
  142. <param name="url" value="/AdvWorks/internal/sales_by_product_graph.asp">
  143.  
  144. </OBJECT>
  145.  
  146. </TD>
  147.  
  148. </TR>
  149.  
  150.  
  151. </FONT>
  152.  
  153. <% REM Column Span Value %>
  154. <% HTML_CS = 3 %>
  155. <% HTML_INDENT = FALSE %>
  156. <!--#include virtual="/AdvWorks/Disclaim.inc"-->
  157.  
  158. </TABLE>
  159.  
  160. <!--#include virtual="/AdvWorks/srcform.inc"-->
  161.  
  162. </BODY>
  163.  
  164. </HTML>