<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Option Explicit Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 Response.Buffer=true Session.CodePage = "65001" Server.ScriptTimeout = 1800 %> [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] <% 'クルヴェット名古屋の共通処理 %> [an error occurred while processing this directive] <% '****************************************** '主処理 START '****************************************** Const SHOP_CONFIG_XML = "../../brass_include/Shop.Xml" Const HEAD_META_TAG = "" Const HEAD_META_TAG_VER = "" Const FAIR_NO_IMAGE = "http://www.brass.ne.jp/manage/admin/images/no_image.gif" Dim objDbAccess Dim objCommFunc Dim objCustomizeCommFunc Set objDbAccess = New DbAccess Set objCommFunc = New CommFunc Set objCustomizeCommFunc = New CustomizeCommFunc Dim strShopID Dim strTelNo Dim strPrevDate Dim nIndex Dim nEventDateIndex Dim strOutput Dim objRecommendFairDateList Dim objFairDataList Dim objFairEventDateList Dim strDateList Dim strDefaultDate Dim strReserveParas Dim strReserveParas2 Dim strFileExt 'ファイルの拡張子 Dim objShopConfigList '店舗設定の一覧 Dim objShopConfig '店舗の設定 Dim strFairImageUrl 'フェア用写真のURL Dim objShopInfoList '店舗情報一覧 Dim objShopInfo '店舗情報オブジェクト strShopID = objCommFunc.GetShopIDFromXml(Server.MapPath(SHOP_CONFIG_XML)) 'strShopID = "201408130000000001" strPrevDate = Request.QueryString("PREVIEW_DATE") strTelNo = objCommFunc.GetTelNoFromXml(Server.MapPath(SHOP_CONFIG_XML)) 'strTelNo = "052-562-5528" objRecommendFairDateList = objDbAccess.GetRecommendFairDateList(strShopID, strPrevDate) objFairDataList = objDbAccess.GetFairDataList(strShopID, strPrevDate) objFairEventDateList = objDbAccess.GetFairEventDateList(strShopID, strPrevDate) 'ファイルの拡張子を取得 strFileExt = objCommFunc.GetFileExt(Request.ServerVariables("URL")) '店舗の設定を取得 objShopConfigList = objCommFunc.GetShopConfigFromXml(Server.MapPath(SHOP_CONFIG_XML)) If IsEmpty(objShopConfigList) = False Then Set objShopConfig = objShopConfigList(0) 'フェア用写真のURLを取得 strFairImageUrl = objShopConfig.m_FairImageUrl End If '店舗情報の取得 objShopInfoList = objDbAccess.GetShopInfoList(strShopID) If IsEmpty(objShopInfoList) = False Then Set objShopInfo = objShopInfoList(0) End If Dim strDebug strDebug = ":::::::::::::::::::TRACE
" 'Response.Write strDebug %> <%=HEAD_META_TAG & vbCrLf & HEAD_META_TAG_VER %> ブライダルフェア|クルヴェット名古屋

" class="tab-link">カレンダーから選ぶ " class="active tab-link">フェアから選ぶ

<% 'オススメフェアの表示 If IsEmpty(objRecommendFairDateList) = False Then %>

<%=objRecommendFairDateList(0).strFairTitle %>

オススメ<%=objCustomizeCommFunc.MakeSubIconSpanHtml(objRecommendFairDateList(0).strSubIconText1, objRecommendFairDateList(0).strSubIconColor1) %> <%=objCustomizeCommFunc.MakeSubIconSpanHtml(objRecommendFairDateList(0).strSubIconText2, objRecommendFairDateList(0).strSubIconColor2) %> <%=objCustomizeCommFunc.MakeSubIconSpanHtml(objRecommendFairDateList(0).strSubIconText3, objRecommendFairDateList(0).strSubIconColor3) %> <%=objCustomizeCommFunc.MakeSubIconSpanHtml(objRecommendFairDateList(0).strSubIconText4, objRecommendFairDateList(0).strSubIconColor4) %> <%=objCustomizeCommFunc.MakeSubIconSpanHtml(objRecommendFairDateList(0).strSubIconText5, objRecommendFairDateList(0).strSubIconColor5) %>

<%=objRecommendFairDateList(0).strFairText %>

フェア開催日

    <% '全部の開催日を取得 strDateList = "" For nIndex = 0 To UBound(objRecommendFairDateList) 'strDateList = strDateList & Month(objRecommendFairDateList(nIndex).EventDate) & "/" & Day(objRecommendFairDateList(nIndex).EventDate) & "," If nIndex = UBound(objRecommendFairDateList) Then strDateList = strDateList & Year(objRecommendFairDateList(nIndex).EventDate) & "年" & Right("0" & Month(objRecommendFairDateList(nIndex).EventDate), 2) & "月" & Right("0" & Day(objRecommendFairDateList(nIndex).EventDate), 2) & "日" Else strDateList = strDateList & Year(objRecommendFairDateList(nIndex).EventDate) & "年" & Right("0" & Month(objRecommendFairDateList(nIndex).EventDate), 2) & "月" & Right("0" & Day(objRecommendFairDateList(nIndex).EventDate), 2) & "日@" End If Next For nIndex = 0 To UBound(objRecommendFairDateList) 'デフォールト開催日を取得 'strDefaultDate = Month(objRecommendFairDateList(nIndex).EventDate) & "/" & Day(objRecommendFairDateList(nIndex).EventDate) strDefaultDate = Year(objRecommendFairDateList(nIndex).EventDate) & "年" & Right("0" & Month(objRecommendFairDateList(nIndex).EventDate), 2) & "月" & Right("0" & Day(objRecommendFairDateList(nIndex).EventDate), 2) & "日" '問い合わせフォームのパラメータを作成 strReserveParas = "?title=" & Server.URLEncode(objRecommendFairDateList(0).strFairTitle) & "&DAY=" & Server.URLEncode(strDateList) & "&sDAY=" & Server.URLEncode(strDefaultDate) strReserveParas2 = "?title=" & Server.URLEncode(objRecommendFairDateList(0).strFairTitle) & "&DAY=" & Server.URLEncode(strDateList) strOutput = "
  • " strOutput = strOutput & "" strOutput = strOutput & Month(objRecommendFairDateList(nIndex).EventDate) & "月" strOutput = strOutput & Day(objRecommendFairDateList(nIndex).EventDate) & "日(" strOutput = strOutput & objCommFunc.GetJapaneseWeek(objRecommendFairDateList(nIndex).EventDate) & ")" strOutput = strOutput & "
  • " strOutput = strOutput & vbCrLf Response.Write strOutput Next %>

<%=objRecommendFairDateList(0).strFairComment %>

    <% If objShopInfo.m_EnableTwitter Then %>
  • <% End If %> <% If objShopInfo.m_EnableFacebook Then %>
  • <% End If %> <% If objShopInfo.m_EnableMixi Then %>
  • <% End If %>
" width="267" alt="<%=objRecommendFairDateList(0).strFairTitle %>" class="f_right">

ご予約・お問い合わせ

当日のご来館をご希望の方は、お電話にてご相談ください。

052-562-5528

平日 10:00~19:00、土・日・祝日 9:00~20:00
※定休日:火曜日、水曜日(祝日を除く)

見学予約お問い合わせ
<% End If %> <% 'ブライダルフェア一覧の表示 If IsEmpty(objFairDataList) = False Then For nIndex = 0 To UBound(objFairDataList) %>

<%=objFairDataList(nIndex).strFairTitle %>

<%=objCustomizeCommFunc.MakeSubIconSpanHtml(objFairDataList(nIndex).strSubIconText1, objFairDataList(nIndex).strSubIconColor1) %> <%=objCustomizeCommFunc.MakeSubIconSpanHtml(objFairDataList(nIndex).strSubIconText2, objFairDataList(nIndex).strSubIconColor2) %> <%=objCustomizeCommFunc.MakeSubIconSpanHtml(objFairDataList(nIndex).strSubIconText3, objFairDataList(nIndex).strSubIconColor3) %> <%=objCustomizeCommFunc.MakeSubIconSpanHtml(objFairDataList(nIndex).strSubIconText4, objFairDataList(nIndex).strSubIconColor4) %> <%=objCustomizeCommFunc.MakeSubIconSpanHtml(objFairDataList(nIndex).strSubIconText5, objFairDataList(nIndex).strSubIconColor5) %>

<%=objFairDataList(nIndex).strFairText %>

フェア開催日

    <% '全部の開催日を取得 strDateList = "" For nEventDateIndex = 0 To UBound(objFairEventDateList) If objFairDataList(nIndex).strFairID = objFairEventDateList(nEventDateIndex).FairID Then 'strDateList = strDateList & Month(objFairEventDateList(nEventDateIndex).EventDate) & "/" & Day(objFairEventDateList(nEventDateIndex).EventDate) & "," strDateList = strDateList & Year(objFairEventDateList(nEventDateIndex).EventDate) & "年" & Right("0" & Month(objFairEventDateList(nEventDateIndex).EventDate), 2) & "月" & Right("0" & Day(objFairEventDateList(nEventDateIndex).EventDate), 2) & "日@" End If Next '開催日パラメータ最後の@を削除する If Right(strDateList, 1) = "@" Then strDateList = Mid(strDateList, 1, Len(strDateList) - 1) End If For nEventDateIndex = 0 To UBound(objFairEventDateList) If objFairDataList(nIndex).strFairID = objFairEventDateList(nEventDateIndex).FairID Then 'デフォールト開催日を取得 'strDefaultDate = Month(objFairEventDateList(nEventDateIndex).EventDate) & "/" & Day(objFairEventDateList(nEventDateIndex).EventDate) strDefaultDate = Year(objFairEventDateList(nEventDateIndex).EventDate) & "年" & Right("0" & Month(objFairEventDateList(nEventDateIndex).EventDate), 2) & "月" & Right("0" & Day(objFairEventDateList(nEventDateIndex).EventDate), 2) & "日" '問い合わせフォームのパラメータを作成 strReserveParas = "?title=" & Server.URLEncode(objFairDataList(nIndex).strFairTitle) & "&type=2" & "&DAY=" & Server.URLEncode(strDateList) & "&sDAY=" & Server.URLEncode(strDefaultDate) strReserveParas2 = "?title=" & Server.URLEncode(objFairDataList(nIndex).strFairTitle) & "&type=2" & "&DAY=" & Server.URLEncode(strDateList) strOutput = "
  • " strOutput = strOutput & "" strOutput = strOutput & Month(objFairEventDateList(nEventDateIndex).EventDate) & "月" strOutput = strOutput & Day(objFairEventDateList(nEventDateIndex).EventDate) & "日(" strOutput = strOutput & objCommFunc.GetJapaneseWeek(objFairEventDateList(nEventDateIndex).EventDate) & ")" strOutput = strOutput & "
  • " & vbCrlf strOutput = strOutput & vbCrLf Response.Write strOutput End If Next %>

<%=objFairDataList(nIndex).strFairComment %>

    <% If objShopInfo.m_EnableTwitter Then %>
  • <% End If %> <% If objShopInfo.m_EnableFacebook Then %>
  • <% End If %> <% If objShopInfo.m_EnableMixi Then %>
  • <% End If %>
" width="267" alt="<%=objFairDataList(nIndex).strFairTitle %>" class="f_right">

ご予約・お問い合わせ

当日のご来館をご希望の方は、お電話にてご相談ください。

052-562-5528

平日 10:00~19:00、土・日・祝日 9:00~20:00

見学予約お問い合わせ
<% Next End If %>