<%@LANGUAGE="VBScript" CODEPAGE=932%> <% Option Explicit 'Response.Expires = 0 %> 注文内容の確認
<% Dim preStr,sPreStr,total Dim i Dim ret writeHeader %>

注文内容の確認
<% If IsEmpty(Session("sesSelectProduct")) Then 'カートにデータがないとき Response.Write "カ−トには何も入っていません。

" Else 'カートにデータが入っているとき 'If Session("name") = "" Then '最初の一回目 Session("name") = Request.Form("name") Session("zip") = Request.Form("zip") Session("prefecture") = Request.Form("prefecture") Session("add") = Request.Form("add") Session("tel") = Request.Form("tel") Session("email") = Request.Form("email") Session("message") = Request.Form("message") Session("sName") = Request.Form("sName") Session("sZip") = Request.Form("sZip") Session("sPrefecture") = Request.Form("sPrefecture") Session("sAdd") = Request.Form("sAdd") Session("sTel") = Request.Form("sTel") Session("prefectureName") = prefecArray(CInt(Session("prefecture"))-1) If Session("sName") = "" Then '送付先氏名が未入力だと全未入力 Session("sPrefectureName") = "" Else If Session("sPrefecture") = "" or Session("sPrefecture") = "99" Then Else Session("sPrefectureName") = prefecArray(CInt(Session("sPrefecture"))-1) End If End If %>
注文明細
<% For i=0 to UBound(Session("sesSelectProduct"))-1 %> <% '合計の計算（送料抜き） total = total + Session("sesSelectProduct")(i,4) Next '送料を求める ret = getSipCost() Session("total") = total Session("shipCost") = ret Session("totalAmount") = Session("total") + Session("shipCost") %>
商品番号商品名単価数量小計
<%=Session("sesSelectProduct")(i,0)%> <%=Session("sesSelectProduct")(i,1)%> \<%=FormatNumber(Session("sesSelectProduct")(i,2),0)%> <%=Session("sesSelectProduct")(i,3)%> \<%=FormatNumber(Session("sesSelectProduct")(i,4),0)%>
合計\<%=FormatNumber(Session("total"),0)%>
送料\<%=FormatNumber(Session("shipCost"),0)%>
支払金額合計\<%=FormatNumber(Session("totalAmount"),0)%>
購入者情報
氏名 <%=Server.HTMLEncode(Session("name"))%>
住所 郵便番号 <%=Server.HTMLEncode(Session("zip"))%>
都道府県 <%=Server.HTMLEncode(Session("prefectureName"))%>
市区町村番地 <%=Server.HTMLEncode(Session("add"))%>
電話番号 <%=Server.HTMLEncode(Session("tel"))%>
電子メール <%=Server.HTMLEncode(Session("email"))%>
伝言 <%=Server.HTMLEncode(Session("message"))%>


送付先情報
<% Dim sName sName = Server.HTMLEncode(Session("sName")) if sName <> "" then %>
氏名 <%=sName%>
住所 郵便番号 <%=Server.HTMLEncode(Session("sZip"))%>
都道府県 <%=Server.HTMLEncode(Session("sPrefectureName"))%>
市区町村番地 <%=Server.HTMLEncode(Session("sAdd"))%>
電話番号 <%=Server.HTMLEncode(Session("sTel"))%>
<% else %>
--- 同上 ---
<% end if %>

　

<% End If ' writeFooter() %>