Bridal Fairブライダルフェア

<% 'オススメフェアの表示 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) %>

" alt="<%=objRecommendFairDateList(0).strFairTitle %>" class="fluid-image">

<%=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 %>

ご予約・お問い合わせ

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

059-228-9922 059-228-9922 平日 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) %>

" alt="<%=objFairDataList(nIndex).strFairTitle %>" class="fluid-image">

<%=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 %>

ご予約・お問い合わせ

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

059-228-9922 059-228-9922 平日 10:00~19:00、土・日・祝日 9:00~20:00

<% Next End If %>