<%@LANGUAGE="VBScript" CODEPAGE=932%> <% Option Explicit %> 購入手続き
<% Dim i Dim nameStr,zipStr,preStr,addStr,eMailStr,messageStr Dim sNameStr,sZipStr,sPreStr,sAddStr,sEMailStr writeHeader %>

購入手続き
<% If IsEmpty(Session("sesSelectProduct")) Then 'カートにデータがないとき Response.Write "カ−トには何も入っていません。

" %>

<% Else 'カートにデータが入っているとき %>
購入者情報
氏名（必須） ">
住所 郵便番号（必須） ">
都道府県（必須）
市区町村番地（必須） ">
電話番号（必須） ">
電子メール（必須） ">
伝言



送付先情報
送付先情報は、送付先が購入者住所と異なる場合のみ入力してください。
氏名 ">
住所 郵便番号 ">
都道府県
市区町村番地 ">
電話番号 ">


<% %> 　

<% End If ' writeFooter() %>