List 8-23　List 8-20，List 8-21，List 8-22内でインクルードされる商品の名前と価格を定義したファイル（allproducts.asp）

---

  1： <%
  2：   ' 商品一覧の定義
  3：   ' 本来ならばリレーショナルデータベースから取得した
  4：   ' データを利用すべきだが，ここでは話を簡単にするため
  5：   ' 単なる配列として扱うことにする
  6：   
  7：   ' 商品名
  8：   Products = Array("ネットワークカード", "ハブ",  _
  9：                    "スイッチングハブ", "プリンタ",_
 10：                    "ルーター", "モデム")
 11：   ' 商品の価格
 12：   Prices = Array(2800, 6000, 10800, 19800, 59800, 14800)
 13： %>