エンタープライズ：

List 8-22　最終確認ページ（`submit.asp`）


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

List 8-22 最終確認ページ（submit.asp）

List 8-22　最終確認ページ（`submit.asp`）