<% dim Menu dim DictTmp1,DictTmp2 Dim BUNID BUNID = Request("DKBN") '------------------------------------------------------- ConnectDB '------------------------------------------------------- dim list redim list(5,0) SQL = "SELECT * FROM T_NEWS" SQL = SQL & " WHERE 情報分類ID = " & BUNID SQL = SQL & " AND 表示区分=0 " SQL = SQL & " ORDER BY 掲載日時 DESC,タイトル" Set RST= Session("conObj").Execute( SQL ) j=0 i=0 dim k k=0 Set rst =Session("conObj").Execute( sql ) dim nen redim DictTmp1(20,1) redim DictTmp2(0) if not rst.eof then nen=rst("掲載日時") do until rst.eof if nen<>left(rst("掲載日時"),7) then j=j+1 Redim Preserve DictTmp2(j) nen=rst("掲載日時") DictTmp2(j)=DictTmp1 Redim DictTmp1(20,0) i=0 end if i = i + 1 Redim Preserve DictTmp1(20,i) DictTmp1(0,i) = 1 DictTmp1(1,i) = rst("記事ID") DictTmp1(2,i) = rst("掲載日時") nen= left(rst("掲載日時"),7) DictTmp1(3,i) = rst("タイトル") 'if funcLenB(DictTmp1(3,i))>=30 then ' DictTmp1(3,i) =bytecut(DictTmp1(3,i),30) & "..." 'end if DictTmp1(4,i) = rst("更新日時") DictTmp1(19,i) = "" DictTmp1(20,i) = "" k= k + 1 rst.movenext loop j=j+1 Redim Preserve DictTmp2(j) DictTmp2(j)=DictTmp1 end if RST.CLOSE SET RST = NOTHING '------------------------------------------------------- Dis_ConnectDB %> Ewing|恵那商工会議所 Ena Chamber Of Commerce & Industry

トップページ > <%=News_Kbn(BUNID)%>一覧



<%for j=1 to ubound(DictTmp2,1)%> <%if DictTmp2(j)(2,1)<>"" then%>
<% dim temp temp=DictTmp2(j) %> <%for i=1 to ubound(temp,2)%> <%next%>    
<%=left(DictTmp2(j)(2,1),4) %>年<%=MID(DictTmp2(j)(2,1),6,2) %>月掲載
<%=temp(3,i)%>
<%end if%> <%next%> <%if ubound(DictTmp2,1)=0 then%>
現在情報はありません。 <%end if%>