XML/XSL Portal

Multiple Stylesheet Aware
HideXML Documenting CodeHide
     
  
 
 

Sales_by_Customer.asp

None.
No Comments Found.
Include Files
  • /advworks/Disclaim.inc (1)
  • /advworks/srcform.inc (1)
Session Variables Used
  • ConnectionString (1)
  • ItemCount (1)
Redirections
  • HREF > /advworks/default.asp (1)
  • HREF > /advworks/equipment/check_out.asp (1)
  • HREF > /advworks/equipment/default.asp (1)
  • HREF > /advworks/excursions/default.asp (1)
  • HREF > /advworks/internal/default.asp (1)
  • HREF > /advworks/resources/default.asp (1)
Images Used
Tlc 133
133
Source
<html> <head> <title>Adventure Works Sales by Customer Listing</title></head> <body BACKGROUND="images/back_sub.gif" LINK="#800000" VLINK="#008040"> <font FACE="Verdana, Arial, Helvetica" SIZE="2"> <table WIDTH="600" BORDER="0"> <tr> <td> <img SRC="images/spacer.gif" ALIGN="RIGHT" WIDTH="110" ALT></td> <td COLSPAN="3"> <font SIZE="4" FACE="Verdana, Arial, Helvetica" COLOR="#800000">Sales by Customer</font> <hr SIZE="4"> </td> </tr> <!--BEGIN Navigational Buttons--> <tr> <td ROWSPAN="7" VALIGN="TOP" ALIGN="LEFT"> <a HREF="/advworks/equipment/default.asp"> <img SRC="images/icon_sub_equipment.gif" WIDTH="85" HEIGHT="45" ALIGN="CENTER" BORDER="0" ALT="Order Your Equipment"></a><br> <a HREF="/advworks/excursions/default.asp"> <img SRC="images/icon_sub_excursions.gif" WIDTH="85" HEIGHT="45" ALIGN="CENTER" BORDER="0" ALT="Membership and Excursions"></a><br> <a HREF="/advworks/resources/default.asp"> <img SRC="images/icon_sub_resources.gif" WIDTH="85" HEIGHT="45" ALIGN="CENTER" BORDER="0" ALT="Resources"></a><br> <a HREF="/advworks/internal/default.asp"> <img SRC="images/icon_sub_internal.gif" WIDTH="85" HEIGHT="45" ALIGN="CENTER" BORDER="0" ALT="Internal"></a><br> <a HREF="/advworks/default.asp"> <img SRC="images/icon_sub_home.gif" WIDTH="85" HEIGHT="45" ALIGN="CENTER" BORDER="0" ALT="Home"></a> <br> <!--#include virtual="/advworks/srcform.inc"--> <br> <% If Session("ItemCount")> 0 Then %> <a HREF="/advworks/equipment/check_out.asp"> <img SRC="images/checkout.gif" WIDTH="85" HEIGHT="45" ALT="Check Out" BORDER="O"></a> <% End If %> </td> <td VALIGN="TOP" ALIGN="LEFT" COLSPAN="3"><font SIZE="2"> <form ACTION="/advworks/%20........" METHOD="POST"> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Session("ConnectionString") Set RS = Conn.Execute("{Call SalesByCustomer}") TotalUnits = 0 TotalSales = 0 %> <table COLSPAN="8" CELLPADDING="5" BORDER="0"> <!-- BEGIN column header row --> <tr> <td ALIGN="CENTER" BGCOLOR="#800000"> <font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2">Company Name</font> </td> <td ALIGN="CENTER" BGCOLOR="#800000"> <font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2">Contact Name</font> </td> <td ALIGN="CENTER" BGCOLOR="#800000"> <font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2">City</font> </td> <td ALIGN="CENTER" BGCOLOR="#800000"> <font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2">State/Province</font> </td> <td ALIGN="CENTER" BGCOLOR="#800000"> <font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2">Total Units</font> </td> <td ALIGN="CENTER" BGCOLOR="#800000"> <font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2">Total Sales</font> </td> </tr> <!-- BEGIN first row of inserted product data --> <% Do While Not RS.EOF %> <tr> <td BGCOLOR="f7efde" ALIGN="CENTER"> <font STYLE="Verdana, Arial, Helvetica" SIZE="2"><%=RS("CompanyName")%></font></td> <td BGCOLOR="f7efde" ALIGN="CENTER"> <font STYLE="Verdana, Arial, Helvetica" SIZE="2"><%=RS("ContactLastName") & ", " & RS("ContactFirstName")%></font></td> <td BGCOLOR="f7efde" ALIGN="CENTER"> <font STYLE="Verdana, Arial, Helvetica" SIZE="2"><%=RS("City")%></font></td> <td BGCOLOR="f7efde" ALIGN="CENTER"> <font STYLE="Verdana, Arial, Helvetica" SIZE="2"><%=RS("StateOrProvince")%></font></td> <td BGCOLOR="f7efde" ALIGN="RIGHT"> <font STYLE="Verdana, Arial, Helvetica" SIZE="2"><%=FormatNumber(CDBl(RS("Total Units")),0)%></font></td> <td BGCOLOR="f7efde" ALIGN="RIGHT"> <font STYLE="Verdana, Arial, Helvetica" SIZE="2"><%=FormatCurrency(CDbl(RS("Total Sales")))%></font></td> </tr> <% TotalUnits = TotalUnits + RS("Total Units") TotalSales = TotalSales + RS("Total Sales") RS.MoveNext Loop Conn.Close %> <tr> <td COLSPAN="3"> </td> <td ALIGN="CENTER" BGCOLOR="#800000"> <font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2">Grand Total</font> </td> <td ALIGN="RIGHT" BGCOLOR="#800000"> <font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2"><%=FormatNumber(TotalUnits,0)%></font> </td> <td ALIGN="RIGHT" BGCOLOR="#800000"> <font STYLE="Verdana, Arial, Helvetica" COLOR="#ffffff" SIZE="2"><%=FormatCurrency(TotalSales)%></font> </td> </tr> </table> </td> </tr> </font> <% REM Column Span Value %> <% HTML_CS = 3 %> <% HTML_INDENT = FALSE %> <!--#include virtual="/advworks/Disclaim.inc"--> </table> </body> </html>
 
 
  
     
Open

Delete

View XML
View XSL