<%
'-------------------------------------------------------------------------------
' 名 称：hanbaihou.asp
' 機 能：登録された特定商取引法の一覧を表示
' 戻り画面：index.asp
'-------------------------------------------------------------------------------
%>
<%option explicit%>
<%'PC版共通定義%>
<%'サイト毎の定義＆既存アプリ定義%>
<%
'on error resume next
'----- 変数宣言
Dim l_objDbClass 'データベース
Dim l_objRSet 'レコードセット
Dim l_strSql 'SQL
Dim l_params 'SQL用配列
Dim Hanbai '販売業者
Dim Daihyou '代表者
Dim Basho '所在地
Dim Tel '電話番号
Dim Fax 'FAX番号
Dim Mail 'MAIL
Dim Houhou '注文方法
Dim Ryokin '必要料金
Dim Kigen '有効期限
Dim Suryou '販売数量
Dim Jiki '引渡時期
Dim Skigen '支払期限
Dim Henpin '返品
Dim Shop 'ACODE
Dim SessionID
Dim l_clsSession
SessionID=Trim(Request("sessionid"))
Set l_objDbClass = new CDb
l_objDbClass.Connect(Session(C_WEBSHOP_CON))
Set l_clsSession = new CSession
Call l_clsSession.SetSessionId(SessionID)
Call l_clsSession.SelectSession
shop=session("Shop")
l_strsql = "select * from HANBAIHO Where ACODE = ?"
Redim l_params(1)
l_params(1) = ACODE
Set l_objRSet = l_objDbClass.doCursolOpen(l_strSql, l_params, 0, adOpenStatic, adLockReadOnly, 0)
if Not l_objRSet.Eof then
Hanbai = trim(l_objRSet("販売業者"))
Daihyou = trim(l_objRSet("代表者"))
Basho = trim(l_objRSet("所在地"))
Tel = trim(l_objRSet("電話番号"))
Fax = trim(l_objRSet("FAX番号"))
Mail = trim(l_objRSet("MAIL"))
Houhou = trim(l_objRSet("注文方法"))
Ryokin = trim(l_objRSet("必要料金"))
Kigen = trim(l_objRSet("有効期限"))
Suryou = trim(l_objRSet("販売数量"))
Jiki = trim(l_objRSet("引渡時期"))
Skigen = trim(l_objRSet("支払期限"))
Henpin = trim(l_objRSet("返品"))
end if
l_objRSet.close
%>
通信販売の法規（特定商取引法）に基づく表示
特定商取引法による表示
- (販売業者)
- 株式会社ヤマハミュージックエンタテインメントホールディングス
- (代表者)
- 押木 正人
- (所在地)
<%=Basho%>
<%if tel <> "" then %>
- Tel:<%=tel%>
<%end if%>
- お問い合わせはこちら
- (商品代金以外の必要料金)
- <%=Ryokin%>
- (ご注文方法)
- <%=Houhou%>
- (ご注文有効期限)
- <%=Kigen%>
- (返品)
<%=Henpin%>
- (販売数量)
- <%=Suryou%>
- (引き渡時期)
- <%=Jiki%>
- (お支払方法)
<% l_strSql = "select 支払方法名 from SHIHARAI where ACODE = ?"
l_strSql = l_strSql & " and 使用区分 = 1"
l_strSql = l_strSql & " order by 支払方法"
Redim l_params(1)
l_params(1) = ACODE
Set l_objRSet = l_objDbClass.doCursolOpen(l_strSql, l_params, 0, adOpenStatic, adLockReadOnly, 0)
Do While Not l_objRSet.EOF%>
<%=(l_objRSet("支払方法名"))%>
<%l_objRSet.MoveNext
Loop
l_objRSet.close %>
- (お支払い期限)
- <%=Skigen%>
戻る
<%
Call l_objDbClass.dberrchk()
set l_objRSet = nothing
set l_objDbClass = nothing
errchk
%>