%
Option Explicit
'===========================================
'設定項目
'===========================================
Const cMailTo = "tosyo@nichizeiwest.com" '注文を受けるアドレス
'Const cMailTo = "esaki@nichizeiwest.com" '注文を受けるアドレス
Const cMailSV = "smtp.po-jp.com" 'メールサーバ
Const cShopName = "九北税協・南九税協の日税ネット書店" 'ショップ名
Const cPage = 20 '1ページ表示数
'===========================================
' 変数定義
'===========================================
Dim act,kbn,page
Dim ObjConn,ObjRS,StrSQL
'商品情報
Dim prodid
Dim cateid
Dim prodname
Dim price
Dim img
Dim keyword
Dim suuryou
'nk追加情報
Dim wwcateid 'ついか
Dim catename
Dim sypan
Dim cyosya
Dim pagesa
Dim setumei
Dim hakouymd
Dim suryo
Dim newukubun
'お客様情報
Dim name
Dim yuubin
Dim juusho
Dim tel
Dim mail
'===========================================
' パラメータの取得
'===========================================
act = Request("act") 'ページ区分
kbn = Request("kbn") 'DB操作区分(追加、修正、削除)
prodid = Request("prodid")
cateid = Request("cateid")
wwcateid = Request("cateid") 'ついか
prodname = Request("prodname")
price = Request("price")
keyword = Request("keyword")
suuryou = Request("suuryou")
name = Request("name")
yuubin = Request("yuubin")
juusho = Request("juusho")
tel = Request("tel")
mail = Request("mail")
'=================================================
' 処理開始
'=================================================
%>
<% Call ConnDB %>
このネット書店は、九州北部税理士協同組合及び南九州税理士協同組合の会員の皆様限定で、図書の情報をお届けし、注文をお受けいたします。
<送料は福岡県内は5kgまで594円(税込)となります。また、重量超過の場合はお問い合わせ下さい。なお、離島および沖縄県は別料金となります。>
<%
'-- ページ内容の表示
Select Case act
Case "ent" 'お客様情報入力
Call Gamen_ent
Case "entconf" '注文内容確認
Call Gamen_entconf
Case "prod" '商品表示
Call Gamen_prod
Case "dispcart" 'カート表示
Call Gamen_dispcart
Case "kan" '処理完了
Call Gamen_kan
Case else '商品検索画面
Call Gamen_src
end select
%>