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