<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Option Explicit%> <% Dim Util Set Util = New Utility Dim strSql Dim CArr,CArrCount ,Ccnt Dim Arr,ArrCount ,cnt strSql = "" strSql = strSql & "SELECT * FROM TblLinkCategory ORDER BY SortNo" call exeQuery(strSql,CArr,CArrCount) 'リンク用 Dim sql Dim Lcnt Dim LArr,LArrCount %> 景観園芸リンク集|ひょうご景観園芸産業研究会
本文へジャンプ
  • 景観園芸は園芸のスペシャリスト集団です!

リンク集

<% FOR Ccnt = 0 to CArrCount - 1 sql = "" sql = sql & "SELECT * FROM TblLink " sql = sql & "WHERE category_id = " & CArr(Ccnt).Item("id") & " " sql = sql & "ORDER BY SortNo " if exeQuery(sql,LArr,LArrCount) = true then%> <% end if NEXT%>