<%@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 strPrevDate Dim strShopID Dim strFairID Dim objFairDataList Dim objFairDateList Dim nWeekDay Dim nIndex Dim strDetailURL Dim strDetailURLEncode Dim strDateList Dim strDefaultDate Dim strReserveParas Dim strReserveParas2 Dim objShopConfigList '店舗設定の一覧 Dim objShopConfig '店舗の設定 Dim strFairImageUrl 'フェア用写真のURL Dim objShopInfoList '店舗情報一覧 Dim objShopInfo '店舗情報オブジェクト strPrevDate = Request.QueryString("PREVIEW_DATE") strShopID = objCommFunc.GetShopIDFromXml(Server.MapPath(SHOP_CONFIG_XML)) strFairID = Request.QueryString("FAIR_ID") objFairDataList = objDbAccess.GetFairData(strShopID, strFairID) objFairDateList = objDbAccess.GetFairDateList(strShopID, strFairID, strPrevDate) strDetailURL = objCommFunc.GetFairDetailURL(strFairID) strDetailURLEncode = Server.URLEncode(strDetailURL) '店舗の設定を取得 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 %> ブライダルフェア|Miel Citron(ミエル シトロン)

<%=objFairDataList(0).strFairTitle %>

<% If objFairDataList(0).strRecommend Then Response.Write "オススメ" %> <%=objCustomizeCommFunc.MakeSubIconSpanHtml(objFairDataList(0).strSubIconText1, objFairDataList(0).strSubIconColor1) %> <%=objCustomizeCommFunc.MakeSubIconSpanHtml(objFairDataList(0).strSubIconText2, objFairDataList(0).strSubIconColor2) %> <%=objCustomizeCommFunc.MakeSubIconSpanHtml(objFairDataList(0).strSubIconText3, objFairDataList(0).strSubIconColor3) %> <%=objCustomizeCommFunc.MakeSubIconSpanHtml(objFairDataList(0).strSubIconText4, objFairDataList(0).strSubIconColor4) %> <%=objCustomizeCommFunc.MakeSubIconSpanHtml(objFairDataList(0).strSubIconText5, objFairDataList(0).strSubIconColor5) %>

<%=objFairDataList(0).strFairText %>

フェア開催日

<%=objFairDataList(0).strFairComment %>

" alt="<%=objFairDataList(0).strFairTitle %>" width="268">

ご予約・お問い合わせ

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

TEL059-351-0077
平日:10:00~19:00    土日祝:9:00~20:00