<%@ Page Language="VB" AutoEventWireup="false" CodeFile="topicsDetail.aspx.vb" Inherits="topicsDetail" %> <%=dat(0).Row("TOPIC_TITLE")%>|トピックス詳細|<%=category %>|JRタワーホテル日航札幌 -JR札幌駅直結リゾートホテル- <% If hotelKbn = 0 Then %> <% Else %> <% End If %> <% If hotelKbn = 0 Then %><% Else %><% End If %> <%=includeFiles(0)%>
<%=includeFiles(1)%>

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

このページのトップへ

<%=includeFiles(5)%>
<%---------------------- 共用SQLSourceData ---------------------------%>