<%
'-------------------------------------------------------------------------------
' 名 称：index.asp
' 機 能：ＷＥＢショップメニュー
' キ ー １：hanbaihou.asp
' ２：default.asp
'-------------------------------------------------------------------------------
%>
<%option explicit%>
<%'PC版共通定義%>
<%'サイト毎の定義＆既存アプリ定義%>
<%
on error goto 0
'クローズ制御
'If Now() > CDate("2007/07/03 23:59:59") Then
' Response.Redirect("end.asp")
'End If
'公式サイトからのリンクかチェック
Dim l_objDbClass
Dim l_objRSet
Dim database
Dim nebikiF
Dim nebikiT
Dim nebikiK
Dim pointShop
Dim l_strSql
Dim l_params
Dim CountNo
Dim Hozon
Dim SessionID
Dim l_clsSession
Set l_objDbClass = new CDb
l_objDbClass.Connect(Session(C_WEBSHOP_CON))
Set l_clsSession = new CSession
If Trim(Request("sessionid")) <> "" Then
SessionID = Trim(Request("sessionid"))
Call l_clsSession.SetSessionId(SessionID)
Call l_clsSession.SelectSession
End If
session("ItemCount") = 0
l_strSql = "select * from INIT where ACODE = ? and ID = '1'"
Redim l_params(1)
l_params(1) = ACODE
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
if l_objRSet.eof or l_objRSet.bof then
else
Call l_clsSession.SetWebemail(l_objRSet("問合せEMAIL"))
if len(l_objRSet("問合せ電話番号"))>0 then
Call l_clsSession.SetWebphone(l_objRSet("問合せ電話番号"))
else
Call l_clsSession.SetWebphone(null)
end if
Call l_clsSession.SetWebname(l_objRSet("会社名"))
DataBase = cint(l_objRSet.Fields("DBTYPE"))
Hozon = cint(l_objRSet("検索結果保存ﾌﾗｸﾞ"))
session("shop") = l_objRSet.Fields("ACODE")
NebikiF = l_objRSet.Fields("値引期間自")
NebikiT = l_objRSet.Fields("値引期間至")
NebikiK = cint(l_objRSet.Fields("値引掛率"))
Pointshop = cint(l_objRSet.Fields("ﾎﾟｲﾝﾄｼｮｯﾌﾟ"))
end if
l_objRSet.close
Set l_objRSet = Nothing
if Hozon > 0 and SessionID="" then
l_strSql = "select MAX(日付) as Mdate from COUNTLOG"
Set l_objRSet = l_objDbClass.doExecuteWithRS(l_strSql)
if l_objRSet.eof or IsNull(l_objRSet.Fields("Mdate")) then
l_strSql = "Insert Into COUNTLOG Values(?, ?, 1, 1)"
Redim l_params(2)
l_params(1) = session("shop")
l_params(2) = date
Call l_objDbClass.doTranzaction(l_strSql, l_params)
CountNo = 1
else
if l_objRSet.Fields("Mdate") = date then
if DataBase = 1 then
l_strSql = "Select * from COUNTLOG Where 日付 = #?#"
Redim l_params(1)
l_params(1) = year4(date)
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
else
l_strSql = "Select * from COUNTLOG Where 日付 = ?"
Redim l_params(1)
l_params(1) = date
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
end if
CountNo = clng(l_objRSet.Fields("累計")) + 1
if DataBase = 1 then
l_strSql = "Update COUNTLOG Set ｶｳﾝﾄ = ｶｳﾝﾄ + 1, 累計 = 累計+ 1 Where 日付 = #?#"
Redim l_params(1)
l_params(1) = year4(date)
Call l_objDbClass.doTranzaction(l_strSql, l_params)
else
l_strSql = "Update COUNTLOG Set ｶｳﾝﾄ = ｶｳﾝﾄ + 1, 累計 = 累計+ 1 Where 日付 = ?"
Redim l_params(1)
l_params(1) = date
Call l_objDbClass.doTranzaction(l_strSql, l_params)
end if
else
if DataBase = 1 then
l_strSql = "Select * from COUNTLOG Where 日付 = #?#"
Redim l_params(1)
l_params(1) = year4(l_objRSet.Fields("Mdate"))
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
else
l_strSql = "Select * from COUNTLOG Where 日付 = ?"
Redim l_params(1)
l_params(1) = l_objRSet.Fields("Mdate")
Set l_objRSet = l_objDbClass.doSelect(l_strSql, l_params)
end if
CountNo = clng(l_objRSet.Fields("累計")) + 1
l_strSql = "Insert Into COUNTLOG Values(?, ?, 1, ?)"
Redim l_params(3)
l_params(1) = session("shop")
l_params(2) = year4(date)
l_params(3) = CountNo
Call l_objDbClass.doTranzaction(l_strSql, l_params)
end if
end if
Session("TIME") = "1"
Session("countno") = CountNo
Session("raiten") = year4(date)
Session("jikan") = now
Session("RIPｱﾄﾞﾚｽ") = request.servervariables("remote_host")
Session("kaijyun") = 0
l_objRSet.close
Set l_objRSet = nothing
elseif Hozon = 0 then
Session("TIME") = "1"
end if
If Trim(Request("sessionid")) <> "" Then
Call l_clsSession.DeleteCart
Call l_clsSession.UpdateSession
Else
'TOPに戻る為のURLを入れ込む
Call l_clsSession.SetPath(request("r"))
'こっちは会員情報（有無）ね。
Call l_clsSession.SetMemName(request("m"))
SessionID = l_clsSession.SetSession
Call l_clsSession.SetSessionId(SessionID)
Call l_clsSession.DeleteSession
Call l_clsSession.InsertSession
End If
%>
YAHｵﾝﾗｲﾝｼｮｯﾌﾟ
ｵﾝﾗｲﾝｼｮｯﾌﾟTOP
【送料改定のお知らせ】
いつもYAH ONLINE SHOPをご利用頂き、誠にありがとうございます。
この度、運送会社の送料値上げに伴い当ｵﾝﾗｲﾝｼｮｯﾌﾟの送料を値上げとさせて頂く事となりました。
改定日：2017年7月21日（金）12：00ご注文分より
改定後の送料：全国一律850円
また、これに伴うｼｽﾃﾑﾒﾝﾃﾅﾝｽの為、下記期間はｵﾝﾗｲﾝｽﾄｱの営業を一時休止させて頂きます。
【ｵﾝﾗｲﾝｽﾄｱ営業休止期間】
2017年7月21日（金）10：00〜7月21日（金）12：00
今後もよりご満足頂ける商品、ｻｰﾋﾞｽの提供に努めてまいります。
何卒、ご理解ご了承頂けますよう、宜しくお願い申し上げます。
ﾔﾏﾊ・ｱｰﾁｽﾄﾊｰﾂ
【電話でのお問い合わせ】
03-6894-0212 (平日10:30〜13:00)
【WEBでのお問い合わせ】
https://inquiry.yamaha.com/contact/?act=2006&lcl=ja_JP
ｵﾝﾗｲﾝｼｮｯﾌﾟTOPへ
<%
Call l_clsSession.dberrchk()
Set l_clsSession = Nothing
Call l_objDbClass.dberrchk()
Set l_objDbClass = nothing
ErrChk
%>