home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VID / SERVER / ASF / DATA.Z / equip.asp < prev    next >
Text File  |  1996-10-28  |  6KB  |  170 lines
  1. <!--#include virtual="/AdvWorks/Num2Dolr.inc"-->
  2.  
  3. <%
  4.     SELECT CASE Request.QueryString("EquipmentType")
  5.    CASE "Camping"
  6.     EquipmentType = "Camping Equipment"
  7.     TitleGIF = "camping"
  8.    CASE "Climbing"
  9.     EquipmentType = "Climbing Equipment"
  10.     TitleGIF = "climbing"
  11.    CASE "Clothing"
  12.     EquipmentType = "Clothing"
  13.     TitleGIF = "clothing"
  14.    CASE ELSE
  15.     Response.Redirect("/AdvWorks/Equipment/default.asp")
  16.   END SELECT
  17.   SQL = "{call " & Request.QueryString("EquipmentType") & "TopSales}"
  18.   Set RScatalog_item = Conn.Execute(SQL)
  19. %>
  20.  
  21. <HTML>
  22.  
  23. <HEAD>
  24. <TITLE>Adventure Works Catalog - <%=EquipmentType%></TITLE>
  25. </HEAD>
  26.  
  27. <BODY BACKGROUND="/AdvWorks/multimedia/images/back_sub.gif" LINK="#800000" VLINK="#008040"> 
  28. <FONT FACE="MS SANS SERIF" SIZE=2>
  29.  
  30. <TABLE BORDER=0>
  31.  
  32. <TR>
  33.  
  34. <TD> 
  35. <IMG SRC="/AdvWorks/multimedia/images/spacer.GIF" ALIGN=RIGHT WIDTH=100 ALT="Space">
  36. </TD>
  37.  
  38. <TD COLSPAN=5>
  39. <IMG SRC="/AdvWorks/multimedia/images/title_<%=TitleGIF%>.GIF" ALIGN=CENTER BORDER=0 ALT="<%=EquipmentType%>">
  40. <BR>
  41. <HR SIZE=4>
  42. </TD>
  43.  
  44. </TR>
  45.  
  46. <!-- BEGIN sidebar navigation -->
  47.  
  48. <TR>
  49.  
  50. <TD ROWSPAN=4 ALIGN=LEFT VALIGN=TOP>
  51.  
  52. <A HREF="/AdvWorks/equipment/default.asp">
  53. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_equipment.GIF" width="85" height="45" BORDER=0 ALT="Equipment"></A>
  54.  
  55. <BR>
  56.  
  57. <IMG SRC="/AdvWorks/multimedia/images/sidebar_text.gif" width="122" height="202" BORDER=0 USEMAP="#SIDEBAR" ALT="Items for Sale">
  58.  
  59. <BR>
  60.  
  61. <MAP NAME="SIDEBAR">
  62. <AREA SHAPE="RECT" COORDS="0,0, 99,19"     HREF="/AdvWorks/equipment/catalog_type.asp?ProductType=carabiner">
  63. <AREA SHAPE="RECT" COORDS="0,19, 101,35"   HREF="/AdvWorks/equipment/catalog_type.asp?ProductType=crampon">
  64. <AREA SHAPE="RECT" COORDS="0,36, 101,51"   HREF="/AdvWorks/equipment/catalog_type.asp?ProductType=harness">
  65. <AREA SHAPE="RECT" COORDS="0,52, 100,66"   HREF="/AdvWorks/equipment/catalog_type.asp?ProductType=rock+shoes">
  66. <AREA SHAPE="RECT" COORDS="0,67, 101,82"   HREF="/AdvWorks/equipment/catalog_type.asp?ProductType=backpack">
  67. <AREA SHAPE="RECT" COORDS="0,83, 99,99"    HREF="/AdvWorks/equipment/catalog_type.asp?ProductType=sleeping+bag">
  68. <AREA SHAPE="RECT" COORDS="0,100, 100,113" HREF="/AdvWorks/equipment/catalog_type.asp?ProductType=supplies">
  69. <AREA SHAPE="RECT" COORDS="0,114, 101,130" HREF="/AdvWorks/equipment/catalog_type.asp?ProductType=tent">
  70. <AREA SHAPE="RECT" COORDS="0,131, 100,147" HREF="/AdvWorks/equipment/catalog_type.asp?ProductType=boot">
  71. <AREA SHAPE="RECT" COORDS="0,148, 102,162" HREF="/AdvWorks/equipment/catalog_type.asp?ProductType=parka">
  72. <AREA SHAPE="RECT" COORDS="0,163, 101,179" HREF="/AdvWorks/equipment/catalog_type.asp?ProductType=pants">
  73. <AREA SHAPE="RECT" COORDS="0,180, 101,198" HREF="/AdvWorks/equipment/catalog_type.asp?ProductType=shirt">
  74. </MAP>
  75.  
  76. <A HREF="/AdvWorks/default.asp">
  77. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_home.GIF" width="85" height="45" BORDER=0 ALT="Home"></A>
  78.  
  79. <BR>
  80.  
  81. <%
  82. iCount = Session("ItemCount")
  83. If iCount > 0 Then
  84. %>
  85.  
  86.      <A HREF="/AdvWorks/equipment/check_out.asp">
  87.      <IMG SRC="/AdvWorks/multimedia/images/checkout.gif" width="85" height="45" ALT="Check Out" BORDER=O></A>
  88.  
  89. <%End If%>
  90.  
  91. </TD>
  92.  
  93. <!-- BEGIN data into interface -->
  94.  
  95. <% ProductNumber = 1
  96.    Do While Not RScatalog_item.EOF
  97.    If prodtype <> RScatalog_item("ProductType") Then
  98.      prodtype = RScatalog_item("ProductType")
  99.      ProductNumber = ProductNumber + 1
  100. %>
  101.  
  102.      <TD ALIGN=RIGHT VALIGN=TOP>
  103.      <IMG SRC="<%=RScatalog_item("ProductImageURL")%>" ALT="<%=RScatalog_item("ProductName")%>">
  104.      <CENTER>
  105.      <A HREF="/AdvWorks/equipment/catalog_type.asp?ProductType=<%=prodtype%>">
  106.      <IMG SRC="/AdvWorks/multimedia/images/more.gif" width="67" height="21" ALT="More <%=prodtype%>" BORDER=0></A>
  107.      </CENTER>
  108.      </TD>
  109.  
  110.      <TD ALIGN=LEFT VALIGN=TOP>
  111.      <%If MONTH(RScatalog_item("ProductIntroductionDate")) > (MONTH(NOW)-1) then%>
  112.        <FONT COLOR="#800080" SIZE=1><B>New!</B></FONT><BR> 
  113.      <%end if%>
  114.  
  115.      <FONT SIZE=1><B><%=RScatalog_item("ProductName")%></B>,
  116.      <%=RScatalog_item("ProductDescription")%><BR>
  117.  
  118.      <%If Not IsNull(RScatalog_item("ProductSize")) Then %>
  119.        sizes <%=RScatalog_item("ProductSize")%>
  120.      <%End If%>
  121.      <BR>
  122.      <%=RScatalog_item("ProductCode")%><BR><BR>
  123.  
  124.      <%
  125.        If RScatalog_item("OnSale") Then
  126.          bOnSale = TRUE
  127.          Price = (RScatalog_item("UnitPrice")-(RScatalog_item("UnitPrice") / 10))
  128.        Else
  129.          Price = (RScatalog_item("UnitPrice"))
  130.        End If
  131.      %>
  132.  
  133.      <!-- Display number in currency format -->
  134.      <B><%= Num2Dollars(Price)%></B>
  135.  
  136.      <%If (bOnSale) Then%>
  137.        <IMG SRC="/AdvWorks/multimedia/images/saleTag1.gif" width="57" height="32" ALIGN=CENTER ALT="On Sale"><BR>
  138.        <% bOnSale = FALSE %>
  139.      <%End If%>
  140.  
  141.      <A HREF="/AdvWorks/equipment/check_out.asp?ProductCode=<%=RScatalog_item("ProductCode")%>">
  142.      <IMG SRC="/AdvWorks/multimedia/images/order.gif" width="55" height="15" ALT="Order" BORDER=0></A>
  143.      </FONT>
  144.      </TD>
  145.  
  146.      <% if (ProductNumber MOD 2) then
  147.           Response.Write "</TR><TR><TD HEIGHT=10></TD></TR>"  'break the row
  148.         End If
  149.      %>
  150.   
  151.    <%End If%>
  152.  
  153.    <%RScatalog_item.MoveNext
  154.      Loop%>
  155.  
  156. <!-- END data into interface -->
  157.  
  158. <% REM Column Span Value %>
  159. <% HTML_CS = 5 %>
  160. <% HTML_INDENT = TRUE %>
  161. <!--#include virtual="/AdvWorks/Disclaim.inc"-->
  162.  
  163. </TABLE>
  164.  
  165. <!--#include virtual="/AdvWorks/srcform.inc"-->
  166.  
  167. </BODY>
  168.  
  169. </HTML>
  170.