List 8-25　クッキーからデータを読み込むようにしたsubmit.asp


  1： <!-- #include file="allproducts.asp" -->
  2： <HTML>
  3： <BODY>
  4： <H1>ご注文内容の確認</H1>
  5： <H2>ご注文された商品</H2>
  6： <%
  7：   Total = 0
  8：   ' 入力された商品の個数をクッキー情報から読みとる
  9：   For i = 0 To UBOUND(Products)
 10：     If IsNumeric(Request.Cookies(CStr(i))) Then
 11：       Num = Request.Cookies(CStr(i))
 12：       If Num <> 0 Then
 13：          Price = Prices(i)
 14： %>
 15：          <%= Products(I)%>：単価　\<%= Price %> × <%= Num %> = <%= Price*Num %><BR>
 16： <%
 17：          Total = Total + Price * Num
 18：       End If
 19：     End If
 20：   Next
 21： %>
 22： <HR>
 23： 合計：\<%= Total %>
 24： <H2>お支払い方法</H2>
 25： <%
 26： Select Case Request("pay") 
 27：   Case "1"
 28：     Response.Write "クレジットカード<BR>"
 29：   Case "2"
 30：     Response.Write "代金引換<BR>"
 31：   Case "3"
 32：     Response.Write "銀行振込<BR>"
 33：   Case Else
 34：     Response.Write "不明<BR>"
 35： End Select
 36： %>
 37： <H2>配送先</H2>
 38： <%= Request("ADDRESS") %>
 39： </BODY>
 40： </HTML>