<% DIM GRP_WHERE DIM TMP_MONTH DIM COUNT_NO DIM I2 Dim ID ID=request("ID") dim PIC_PATH PIC_PATH="./LOGIN/PIC/" TMP_MONTH = RIGHT("0000" & YEAR(DATE),4) & "/" & RIGHT("00" & MONTH(DATE),2) if request("next_before")<>"" then session("TMP_MONTH") = left(dateadd("m",request("next_before"),session("TMP_MONTH") & "/01"),7) else session("TMP_MONTH")=RIGHT("0000" & YEAR(DATE),4) & "/" & RIGHT("00" & MONTH(DATE),2) end if '------------------------------------------------------- ConnectDB '------------------------------------------------------- i = 0 DIM DictTmp1 redim DictTmp1(22) 'ニューストピックス SQL = "SELECT * FROM T_NEWS" SQL = SQL & " WHERE 表示区分=0" SQL = SQL & " AND 記事ID =" & ID Set rst =Session("conObj").Execute( sql ) if not rst.eof then i = i + 1 Redim Preserve DictTmp1(22) DictTmp1(0) = 1 DictTmp1(1) = rst("記事ID") DictTmp1(2) = rst("情報分類ID") DictTmp1(3) = rst("掲載日時") DictTmp1(4) = "" DictTmp1(5) = rst("タイトル") 'if funcLenB(DictTmp1(6))>=30 then ' DictTmp1(6) =bytecut(DictTmp1(6),30) & "..." 'end if DictTmp1(7) = rst("コメント") DictTmp1(8) = rst("日付") DictTmp1(9) = rst("時間") DictTmp1(10) = rst("場所") DictTmp1(11) = rst("詳細") DictTmp1(12) = rst("その他") DictTmp1(13) = rst("問い合せ先") DictTmp1(14) = rst("報告者名") DictTmp1(15) = rst("EMAIL") DictTmp1(16) = rst("URL外部") DictTmp1(17) = rst("URL内部") DictTmp1(18) = rst("画像1") DictTmp1(19) = rst("画像2") DictTmp1(20) = rst("終了区分") DictTmp1(21) = rst("終了コメント") end if rst.close set rst = nothing '------------------------------------------------------- Dis_ConnectDB '------------------------------------------------------- %> Ewing|恵那商工会議所 Ena Chamber Of Commerce & Industry

トップページ > <%=News_Kbn(BUNID)%>詳細


記事掲載日:<%=DictTmp1(3)%>
<%=DictTmp1(5)%>
<%if DictTmp1(14)<>"" then%>
<%=DictTmp1(14)%>より
<%end if%> <%if DictTmp1(18) <> "" Then%>
<%end if%> <%if DictTmp1(19) <> "" Then%>
<%end if%>
<%if DictTmp1(20)=1 Then%>
こちらの情報は終了致しました。
<%END IF%> <%if DictTmp1(20)=1 AND DictTmp1(21)<> "" Then%> <%END IF%> <%IF DictTmp1(7) <> "" Then%> <%END IF%> <%IF DictTmp1(8) <> "" Then%> <%END IF%> <%IF DictTmp1(9) <> "" Then%> <%END IF%> <%IF DictTmp1(10) <> "" Then%> <%END IF%> <%IF DictTmp1(11) <> "" Then%> <%END IF%> <%IF DictTmp1(12) <> "" Then%> <%END IF%> <%IF DictTmp1(13) <> "" Then%> <%END IF%> <%IF DictTmp1(16) <> "" Then%> <%END IF%> <%IF DictTmp1(17) <> "" Then%> <%END IF%> <%IF DictTmp1(15) <> "" Then%> <%END IF%>
結果報告: <%=DictTmp1(21)%>
コメント: <%=Replace(DictTmp1(7),vbcrlf,"
")%>
日時: <%=DictTmp1(8)%>
時間: <%=DictTmp1(9)%>
場所: <%=DictTmp1(10)%>
詳細: <%=Replace(DictTmp1(11),vbcrlf,"
")%>
その他: <%=DictTmp1(12)%>
お問合せ: <%=DictTmp1(13)%>
関連URL: <%=DictTmp1(16)%>
関連URL: <%=DictTmp1(17)%>
お問合せ: <%=DictTmp1(15)%>