<%=dat(0).Row("TOPIC_TITLE")%>｜トピックス詳細｜<%=category %>｜JRタワーホテル日航札幌－JR札幌駅直結リゾートホテル

<% If hotelKbn = 0 Then %> JR HOKKAIDO HOTELS
JRタワーホテル日航札幌
nikko hotels international <% Else %> JR HOKKAIDO HOTELS
ホテル日航ノースランド帯広
nikko hotels international <% End If %>

<%=includeFiles(2)%> <% If hotelKbn = 0 Then %> <%=includeFiles(3)%> <% End If %> <%=includeFiles(4)%>

<% If nCategory.ToString() <> "6" Then %><%=includeFiles(6) %><% Else %>

<% End If %>

<% If hotelKbn = 0 Then %>HOME<% Else %>HOME<% End If If Not chk.chk_null(func_str.DBNullExchange(topURL, "")) Then %> > <%=category %><% End If %> > トピックス一覧 > トピックス詳細

<%=category %> Topics & Information

<% If dat.Count > 0 Then Dim tDate As String = func_str.DBNullExchange(dat(0).Row("UPDATE_DATE"), "") Dim y As Integer = CInt(Mid(tDate, 1, 4)) Dim m As Integer = CInt(Mid(tDate, 5, 2)) Dim d As Integer = CInt(Mid(tDate, 7, 2)) Dim serial As Date = DateSerial(y, m, d) %>

" class="clearFix"> <% If Not chk.chk_null(func_str.DBNullExchange(dat(0).Row("CATEGORY_NAME"), "")) Then %>

【<%=Trim(func_str.DBNullExchange(dat(0).Row("CATEGORY_NAME"), "")) %>】

<% End If %>

<%=String.Format("{0:D}", serial) & "(" & String.Format("{0:ddd}", serial) & ")"%>

<%=func_str.DBNullExchange(dat(0).Row("TOPIC_TITLE"), "")%>

<%=func_str.DBNullExchange(dat(0).Row("TOPIC_DTITLE"), "")%>

<%=func_str.DBNullExchange(cmn.kaigyo_keep_m(dat(0).Row("TOPIC_DTEXT1")), "")%>

<%=func_str.DBNullExchange(cmn.kaigyo_keep_m(dat(0).Row("TOPIC_DTEXT2")), "")%>

<%=func_str.DBNullExchange(cmn.kaigyo_keep_m(dat(0).Row("TOPIC_DTEXT3")), "")%>

<% If dat(0).Row("TOPIC_LINK_KBN") = "1" Then %>

<% If dat(0).Row("TOPIC_TARGET") = "2" Then %>" target="_blank"><% Else %>"><% End If %> <%=func_str.DBNullExchange(dat(0).Row("TOPIC_LTEXT"), "")%>

<% End If %>

<% If Not chk.chk_null(func_str.DBNullExchange(dat(0).Row("TOPIC_DIMG1"), "")) Then %>

&ino=1&kind=1" alt="<%=dat(0).Row("IMG_TITLE1") %>" width="<%=img1_width %>" />

<%=func_str.DBNullExchange(dat(0).Row("IMG_TITLE1"), "")%>

<% End If %>

<% If Not chk.chk_null(func_str.DBNullExchange(dat(0).Row("TOPIC_DIMG2"), "")) Then %>

&ino=2&kind=1" alt="<%=dat(0).Row("IMG_TITLE2") %>" width="<%=img2_width %>" />

<%=func_str.DBNullExchange(dat(0).Row("IMG_TITLE2"), "")%>

<% End If %>

<% If Not chk.chk_null(func_str.DBNullExchange(dat(0).Row("TOPIC_DIMG3"), "")) Then %>

&ino=3&kind=1" alt="<%=dat(0).Row("IMG_TITLE3") %>" width="<%=img3_width %>" />

<%=func_str.DBNullExchange(dat(0).Row("IMG_TITLE3"), "")%>

<% End If %>