home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VID / SERVER / ASF / DATA.Z / Sales_by_Customer.asp < prev    next >
Text File  |  1996-10-28  |  4KB  |  160 lines
  1. <!--#include virtual="/AdvWorks/Num2Dolr.inc"-->
  2.  
  3. <HTML>
  4.  
  5. <HEAD>
  6. <TITLE>Adventure Works Sales by Customer Listing</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 Customer</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 SalesByCustomer}")
  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>Company Name</FONT>
  80. </TD>
  81. <TD ALIGN=CENTER BGCOLOR="#800000">
  82. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Contact Name</FONT>
  83. </TD>
  84. <TD ALIGN=CENTER BGCOLOR="#800000">
  85. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>City</FONT>
  86. </TD>
  87. <TD ALIGN=CENTER BGCOLOR="#800000">
  88. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>State/Province</FONT>
  89. </TD>
  90. <TD ALIGN=CENTER BGCOLOR="#800000">
  91. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Total Units</FONT>
  92. </TD>
  93. <TD ALIGN=CENTER BGCOLOR="#800000">
  94. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Total Sales</FONT>
  95. </TD>
  96.  
  97. </TR>
  98.  
  99. <!-- BEGIN first row of inserted product data -->
  100.  
  101. <% Do While Not RS.EOF %>
  102.   <TR>
  103.   <TD BGCOLOR="f7efde" ALIGN=CENTER>
  104.   <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("CompanyName")%></FONT></TD>
  105.   <TD BGCOLOR="f7efde" ALIGN=CENTER>
  106.   <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("ContactLastName") & ", " & RS("ContactFirstName")%></FONT></TD>
  107.   <TD BGCOLOR="f7efde" ALIGN=CENTER>
  108.   <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("City")%></FONT></TD>
  109.   <TD BGCOLOR="f7efde" ALIGN=CENTER>
  110.   <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("StateOrProvince")%></FONT></TD>
  111.   <TD BGCOLOR="f7efde" ALIGN=CENTER>
  112.   <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("Total Units")%></FONT></TD>
  113.   <TD BGCOLOR="f7efde" ALIGN=CENTER>
  114.   <FONT STYLE="ARIAL NARROW" SIZE=1><%=Num2Dollars(RS("Total Sales"))%></FONT></TD>
  115.   </TR>
  116. <%
  117.   TotalUnits = TotalUnits + RS("Total Units")
  118.   TotalSales = TotalSales + RS("Total Sales")
  119.   RS.MoveNext
  120.   Loop
  121. %>
  122.  
  123. <TR>
  124.  
  125. <TD COLSPAN=3>
  126. </TD>
  127. <TD ALIGN=CENTER BGCOLOR="#800000">
  128. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Grand Total</FONT>
  129. </TD>
  130. <TD ALIGN=CENTER BGCOLOR="#800000">
  131. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1><%=TotalUnits%></FONT>
  132. </TD>
  133. <TD ALIGN=CENTER BGCOLOR="#800000">
  134. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1><%=Num2Dollars(TotalSales)%></FONT>
  135. </TD>
  136.  
  137. </TR>
  138.  
  139. </TABLE>
  140.  
  141.  
  142. </TD>
  143.  
  144. </TR>
  145.  
  146.  
  147. </FONT>
  148.  
  149. <% REM Column Span Value %>
  150. <% HTML_CS = 3 %>
  151. <% HTML_INDENT = FALSE %>
  152. <!--#include virtual="/AdvWorks/Disclaim.inc"-->
  153.  
  154. </TABLE>
  155.  
  156. <!--#include virtual="/AdvWorks/srcform.inc"-->
  157.  
  158. </BODY>
  159.  
  160. </HTML>