List 8-20　商品選択ページ（products.asp） 


  1： <!-- #include file="allproducts.asp" -->
  2： <HTML>
  3： <BODY>
  4： <H1>商品選択</H1>
  5： <FORM METHOD="POST" ACTION="pay.asp">
  6： <% 
  7：   ' 商品一覧を表示する
  8：   For i = 0 To UBOUND(Products)
  9： %>
 10：     <%= Products(i) %>（価格\<%=Prices(i)%>）:
 11：     <INPUT TYPE="TEXT" SIZE="2" NAME="<%= i %>">個<BR>
 12： <%
 13：   Next
 14： %>
 15： <INPUT TYPE="SUBMIT" VALUE="次のページへ">
 16： </FORM>
 17： </BODY>
 18： </HTML>