home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VID / SERVER / ASF / DATA.Z / sale_manager.asp < prev    next >
Text File  |  1996-10-28  |  5KB  |  191 lines
  1. <HTML>
  2.  
  3. <HEAD>
  4. <TITLE>Adventure Works Sale Manager</TITLE>
  5. </HEAD>
  6.  
  7. <BODY BACKGROUND="/AdvWorks/multimedia/images/back_sub.gif" LINK="#800000" VLINK="#008040"> 
  8. <FONT FACE="MS SANS SERIF" SIZE=2>
  9. <BGSOUND SRC="/AdvWorks/multimedia/sounds/cash_register.wav">
  10.  
  11. <%
  12. ' UNDONE -- this whole page needs to be rethought.   How will the updates be applied
  13. '  after exiting the page?
  14.  
  15.   if IsObject(Session("ResultSet")) Then
  16.      Set RScatalog_item = Session("ResultSet")
  17.   else 
  18.     SQLcatalog_item = "SELECT ProductCode, ProductName, ProductDescription, UnitPrice, OnSale FROM Products ORDER BY ProductID"
  19.     Set RScatalog_item = Conn.Execute(SQLcatalog_item,3)
  20.     Set Session("ResultSet") = RScatalog_item
  21.   end if
  22.  
  23. %>
  24.  
  25. <TABLE WIDTH=600 BORDER=0>
  26.  
  27. <TR>
  28.  
  29. <TD WIDTH=100> 
  30. <IMG SRC="/AdvWorks/multimedia/images/spacer.GIF" ALIGN=RIGHT WIDTH=110 ALT="Spacer">
  31. </TD>
  32.  
  33. <TD COLSPAN=5>
  34. <IMG SRC="/AdvWorks/multimedia/images/hd_Sale_Manager.gif" width="251" height="42" ALT="Sale Manager">
  35. <HR SIZE=4>
  36. </TD>
  37.  
  38. </TR>
  39.  
  40. <!-- BEGIN sidebar navigation -->
  41.  
  42. <TR>
  43.  
  44. <TD ROWSPAN=7 VALIGN=TOP ALIGN=LEFT>
  45. <A HREF="/AdvWorks/equipment/default.asp">
  46. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_equipment.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Equipment"></A><BR>
  47.  
  48. <A HREF="/AdvWorks/excursions/default.asp">
  49. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_excursions.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Membership and Excursions"></A><BR>
  50.  
  51. <A HREF="/AdvWorks/resources/default.asp">
  52. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_resources.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Resources"></A><BR>
  53.  
  54. <A HREF="/AdvWorks/internal/default.asp">
  55. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_internal.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Internal"></A><BR>
  56.  
  57. <A HREF="/AdvWorks/default.asp">
  58. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_home.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Home"></A><BR>
  59.  
  60. <%  If Session("iCount") > 0 Then%>
  61.  
  62.      <A HREF="/AdvWorks/equipment/check_out.asp">
  63.      <IMG SRC="/AdvWorks/multimedia/images/checkout.gif" width="85" height="45" ALT="Check Out" BORDER=O></A>
  64.  
  65. <%End If%>
  66.  
  67. </TD>
  68.  
  69.  
  70. <TD>
  71.  
  72. <!-- BEGIN table inserted into table data cell --><!-- BEGIN form with first row of data -->
  73.  
  74. <FORM ACTION="/AdvWorks/internal/sale_manager.asp" METHOD=POST>
  75.  
  76. <Table COLSPAN=8 CELLPADDING=5 BORDER=0>
  77.  
  78. <!-- BEGIN column header row -->
  79.  
  80. <TR>
  81.  
  82. <TD ALIGN=CENTER BGCOLOR="#800000">
  83. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Product Code</FONT>
  84. </TD>
  85. <TD ALIGN=CENTER BGCOLOR="#800000">
  86. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Product Name</FONT>
  87. </TD>
  88. <TD ALIGN=CENTER WIDTH=150 BGCOLOR="#800000">
  89. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Description</FONT>
  90. </TD>
  91. <TD ALIGN=CENTER BGCOLOR="#800000">
  92. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Price</FONT>
  93. </TD>
  94. <TD ALIGN=CENTER BGCOLOR="#800000">
  95. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Sale</FONT>
  96. </TD>
  97.  
  98. </TR>
  99.  
  100. <!-- BEGIN first row of inserted product data -->
  101. <%row=0%>
  102. <%
  103. ' UNDONE:  use page level scrolling in ADO instead of this mess
  104. Rowsetsize = 5
  105.    if Request("prev.x")<>"" and not (RScatalog_item.bof or RScatalog_item.eof) then
  106.       RScatalog_item.Move -(Rowsetsize*2)
  107.       if RScatalog_item.bof then
  108.           RScatalog_item.MoveFirst
  109.       end if
  110.    elseif Request("prev.x")<>"" and RScatalog_item.bof then
  111.       RScatalog_item.MoveFirst
  112.    elseif Request("prev.x")<>"" and RScatalog_item.eof then
  113.       RScatalog_item.MoveLast
  114.       RScatalog_item.Move -Rowsetsize
  115.    elseif Request("next.x")<>"" and RScatalog_item.eof then
  116.       RScatalog_item.MoveLast
  117.    end if
  118.  
  119. while not RScatalog_item.eof and row < Rowsetsize
  120. row=row+1
  121.  
  122. %>
  123.  
  124. <TR>
  125.  
  126. <TD BGCOLOR="f7efde" ALIGN=CENTER>
  127. <FONT STYLE="ARIAL NARROW" SIZE=1><%=RScatalog_item("ProductCode")%></FONT>
  128. </TD>
  129. <TD BGCOLOR="f7efde" ALIGN=CENTER>
  130. <FONT STYLE="ARIAL NARROW" SIZE=1><%=RScatalog_item("ProductName")%></FONT>
  131. </TD>
  132. <TD BGCOLOR="f7efde" ALIGN=LEFT WIDTH=150>
  133. <FONT STYLE="ARIAL NARROW" SIZE=1><%=RScatalog_item("ProductDescription")%></FONT>
  134. </TD>
  135. <TD BGCOLOR="f7efde" ALIGN=RIGHT>
  136. <FONT STYLE="ARIAL NARROW" SIZE=1><%=RScatalog_item("UnitPrice")%></FONT>
  137. <TD ALIGN=CENTER BGCOLOR="f7efde">
  138. <INPUT TYPE="RADIO" NAME="Yes" 
  139. <%if RScatalog_item("OnSale") then%>
  140.    CHECKED>
  141. <%else%>
  142.    >
  143. <%end if%>
  144. <INPUT TYPE="RADIO" NAME="No"
  145. <%if Not RScatalog_item("OnSale") then%>
  146.    CHECKED>
  147. <%else%>
  148.    >
  149. <%end if%>
  150.  
  151. </TD>
  152.  
  153. </TD>
  154.  
  155. </TR>
  156. <%RScatalog_item.MoveNext%>
  157. <%wend%>
  158.  
  159. <TR>
  160. <TD COLSPAN=3 ALIGN=LEFT>
  161. <INPUT NAME="prev" TYPE=IMAGE SRC="/AdvWorks/multimedia/images/bullet.gif">
  162. <INPUT NAME="next" TYPE=IMAGE SRC="/AdvWorks/multimedia/images/bullet.gif">
  163. </TD>
  164. </TR>
  165.  
  166.  
  167. </TABLE>
  168.  
  169. </FORM>
  170.  
  171. <!-- END table inserted into table data cell -->
  172.  
  173.  
  174.  
  175. </TD>
  176.  
  177.  
  178.  
  179. <% REM Column Span Value %>
  180. <% HTML_CS = 5 %>
  181. <% HTML_INDENT = FALSE %>
  182. <!--#include virtual="/AdvWorks/Disclaim.inc"-->
  183.  
  184. </TABLE>
  185.  
  186. <!--#include virtual="/AdvWorks/srcform.inc"-->
  187.  
  188. </BODY>
  189.  
  190. </HTML>
  191.