<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Option Explicit%> <% Dim strSql Dim dbArr,dbArrCount,iLoop1 strSql = "" strSql = strSql & "SELECT * FROM TblSeminer WHERE Disp_flag=1 AND (start_flg = 1 OR (start_flg = 0 AND start_date <= GETDATE())) ORDER BY UpdatedDay DESC" Dim file_path, fso call exeQuery(strSql,dbArr,dbArrCount) %> 景観園芸セミナー・イベントのご案内|ひょうご景観園芸産業研究会
本文へジャンプ
  • 景観園芸は園芸のスペシャリスト集団です!

セミナー・イベントのご案内

<% For iLoop1 = 0 to dbArrCount - 1 %>
<%=LEFT(dbArr(iLoop1).Item("Disp_date"),10)%>
">"><%=dbArr(iLoop1).Item("Title")%>
<% Next %>

ページ上部に戻る