<%Response.Expires = 0%> <%Response.Buffer = true %>

おかいものかご <% If Request.Form="" Then %><% Set db=Server.CreateObject("ADODB.Connection") db.Open "daido" cnt=1 %> <% For Each Key In Session.Contents If Session(Key)<>0 Then SQL="SELECT * FROM pmaster WHERE((pmaster.code)=" & Key & ")" Set rs=db.Execute(SQL) %> "> "> <% ' sum2=sum+CCur(rs("pric"))*CCur(Session(key))*(5/100) ' sum=FormatCurrency((sum * (5/100)+sum+CCur(rs("pric"))*CCur(Session(key)))) sum =FormatCurrency(sum+CCur(rs("pric"))*CCur(Session(key))) tax = FormatCurrency(Round(sum * (5/100))) sum2=FormatCurrency(sum + sum * (5/100)) cnt=cnt+1 End If Next %> 商品名 単価 数量 金額 <%=rs("nam") %> <%=FormatCurrency(rs("pric")) %> <%=Session(key) %> <%=FormatCurrency(CCur(rs("pric"))*CCur(Session(key))) %> 小　計 <%=sum %> 消費税 <%=tax %> 合　計 <%=sum2 %> ご注文内容をご確認の上、ご注文者、お届け先をご記入して下さい。 お名前 郵便番号 住所(都道府県) 北海道 青森県 秋田県 岩手県 山形県 宮城県 福島県 新潟県 群馬県 栃木県 茨城県 埼玉県 東京都 千葉県 神奈川県 山梨県 静岡県 愛知県 長野県 石川県 富山県 岐阜県 福井県 滋賀県 京都府 大阪府 三重県 奈良県 和歌山県 兵庫県 鳥取県 岡山県 島根県 広島県 山口県 愛媛県 香川県 高知県 徳島県 長崎県 佐賀県 福岡県 大分県 宮崎県 熊本県 鹿児島県 沖縄県 住所(市町村番地) 電話番号 E-mail メッセージ お支払い方法 代金引換：商品配達時に商品と引き換えにお支払い下さい。 代引手数料はお客様ご負担でお願いいたします。 商品代金合計が５万円以下：２５０円、５万円〜３０万円以下：３６０円 配送について ご注文受付後、７日以内に発送いたします。 配送料金：商品代金合計が３,０００円以上の場合は送料無料 本州・四国・九州　５００円(消費税込) 北海道・沖縄　７００円(消費税込) 返品について 商品の返品、交換をご希望の場合は商品到着後７日以内にご連絡して下さい。 お客様のご都合による返品の場合、送料はお客様のご負担でお願いします。 お問合せ 大同製薬株式会社 富山県高岡市三女子１１３番地 E-mail:eigyo@big-do.com ご記入内容を確認の上、[送信]ボタンを押して下さい。 <% Else If Request.Form("change")="" Then 'rs.close 'db.close Response.Cookies("form")("name")=Request.Form("f_name") Response.Cookies("form")("yubin")=Request.Form("f_yubin") Response.Cookies("form")("ken")=Request.Form("f_ken") Response.Cookies("form")("address")=Request.Form("f_address") Response.Cookies("form")("tel")=Request.Form("f_tel") Response.Cookies("form")("email")=Request.Form("f_email") Response.Cookies("form")("message")=Request.Form("f_message") Response.Redirect "kakunin.php" Response.Write "毎度ありがとうございました、またのご来店をお待ちしております。" Else Response.Redirect "change.php" End If End If %>