home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 139 / dpcs0999.iso / Web / CFserver / data1.cab / Examples / store / changequants.cfm < prev    next >
Encoding:
Text File  |  1999-04-12  |  934 b   |  30 lines
  1. <!--- Return the cart to the state it was at when the
  2.       template that called this template was generated --->
  3. <CFSET Session.StoreItems = Form.StoreItems>
  4. <CFSET Session.StoreQuantities = Form.StoreQuantities>
  5.  
  6. <CFLOOP INDEX="CurrVal" FROM="1" TO="#ListLen(Session.StoreItems)#">
  7.     <CFSET NewQuantity = Evaluate("Form.Item" & ListGetAt(Session.StoreItems, CurrVal))>
  8.     <CFSET Session.StoreQuantities = ListSetAt(Session.StoreQuantities, CurrVal, Trim(NewQuantity))>
  9. </CFLOOP>
  10.  
  11. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
  12.  
  13. <HTML>
  14. <HEAD>
  15.     <TITLE>Online Store - Shopping Cart</TITLE>
  16. </HEAD>
  17.  
  18. <BODY BGCOLOR="#FFCC00" LINK="Maroon" background="images/storebg.gif" leftmargin=5 topmargin=0>
  19.  
  20. <SPAN STYLE="position: absolute; left: 205px; top: 15px; width: 350px;">
  21.     <CFINCLUDE TEMPLATE="_showitems.cfm">
  22.     <BR><BR>
  23.     <CF_ShowDoc ID=4>
  24. </SPAN>
  25.  
  26. <CFINCLUDE TEMPLATE="_showcart.cfm">
  27.  
  28. </BODY>
  29. </HTML>
  30.