%
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
'-------------------------------------------------------
%>
トップページ > <%=News_Kbn(BUNID)%>詳細
記事掲載日:<%=DictTmp1(3)%> |
<%=DictTmp1(5)%> |
|
<%if DictTmp1(14)<>"" then%>
<%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%>
結果報告: |
<%=DictTmp1(21)%> |
<%END IF%>
<%IF DictTmp1(7) <> "" Then%>
コメント: |
<%=Replace(DictTmp1(7),vbcrlf," ")%> |
<%END IF%>
<%IF DictTmp1(8) <> "" Then%>
日時: |
<%=DictTmp1(8)%> |
<%END IF%>
<%IF DictTmp1(9) <> "" Then%>
時間: |
<%=DictTmp1(9)%> |
<%END IF%>
<%IF DictTmp1(10) <> "" Then%>
場所: |
<%=DictTmp1(10)%> |
<%END IF%>
<%IF DictTmp1(11) <> "" Then%>
詳細: |
<%=Replace(DictTmp1(11),vbcrlf," ")%> |
<%END IF%>
<%IF DictTmp1(12) <> "" Then%>
その他: |
<%=DictTmp1(12)%> |
<%END IF%>
<%IF DictTmp1(13) <> "" Then%>
お問合せ: |
<%=DictTmp1(13)%> |
<%END IF%>
<%IF DictTmp1(16) <> "" Then%>
関連URL: |
<%=DictTmp1(16)%> |
<%END IF%>
<%IF DictTmp1(17) <> "" Then%>
関連URL: |
<%=DictTmp1(17)%> |
<%END IF%>
<%IF DictTmp1(15) <> "" Then%>
お問合せ: |
<%=DictTmp1(15)%> |
<%END IF%>
|