<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Option Explicit%> <% Dim Util Set Util = New Utility Dim strSql ,Arr ,ArrCount GetNEWS() %> 景観園芸お知らせ詳細|ひょうご景観園芸産業研究会
本文へジャンプ
  • 景観園芸は園芸のスペシャリスト集団です!

<%=Arr(0).Item("title")%> (<%=Arr(0).Item("news_date")%>)

<%if Arr(0).Item("Photo1") <> "" then%> " class="thickbox">" alt="" width="200" /> <%=Arr(0).Item("PhotoComment1")%> <%end if if Arr(0).Item("Photo2") <> "" then %> " class="thickbox">" alt="" width="200" /> <%=Arr(0).Item("PhotoComment2")%> <%end if if Arr(0).Item("Photo3") <> "" then %> " class="thickbox">" alt="" width="200" /><%=Arr(0).Item("PhotoComment3")%> <%end if%>

<%=Arr(0).Item("body")%>

お知らせ 一覧へ戻る

ページ上部に戻る

<% Function GetNEWS() Dim N_id N_id = Request("id") N_id = Util.SqlSafe(N_id) strSql = "" strSql = strSql & "SELECT * FROM TblNews " strSql = strSql & "WHERE id = " & N_id & " " call exeQuery(strSql,Arr,ArrCount) End Function %> <% Set Util = Nothing %>