|
 |
<%'Start ========================================================================================================================%>
<%
Dim B_Category
B_Category = Trim(Request("B_Category"))
%>
<%
Dim News_ID
News_ID = Trim(Request("News_ID"))
Dim Page
Page = Trim(Request("Page"))
Dim dbConn
Set dbConn = GetDBConn()
Dim sqlVisit
sqlVisit = "UPDATE E3_News_Announcement Set Read_Cnt = Read_Cnt + 1 WHERE B_Category = '"&B_Category&"' AND News_ID = " & News_ID
dbconn.Execute(sqlVisit)
Dim strSQL, arrVal
strSQL = " SELECT Title, Writer, Content, Read_Cnt, Write_Date " &_
" FROM E3_News_Announcement WHERE B_Category = '"&B_Category&"' AND News_ID = "& News_ID
arrVal = arrGetDBResult(dbConn, strSQL)
Dim title, writer, content, read_cnt, createDate
title = arrVal(0,0)
writer = arrVal(1,0)
content = arrVal(2,0)
read_cnt = arrVal(3,0)
createDate = arrVal(4,0)
content = replace(content,chr(13)&chr(10)," ")
Set dbconn = Nothing
%>
Writer <%= writer %>
Date <%= createDate%> |
Access : <%= read_cnt%> |
 |
<%= replace(content, chr(10), " ")%>
|
 |
|
<%'End =========================================================================================================================%>
|
 |
|