<%@ Language="VBScript"%>
<%
Call fSetDBCon()
Call fSetRs()
dim datalist
dim datalist1
nodata = true
no = ReplaceQueryString(Request("no"))
page = ReplaceQueryString(Request("page"))
keyword = ReplaceQueryString(Request("keyword"))
keyfield = ReplaceQueryString(Request("keyfield"))
strsQL="select no,attfile_no,subject,create_date,content,cnt from board_list where no ="&no
objRs.Open strsQL,objDBCon
if not (objRs.eof or objRs.bof) then datalist = objRs.getRows
if isarray(datalist) then objDBCon.execute("update board_list set cnt = cnt + 1 where no = " & no)
fRsRelease()
objRs.Open "select a.*,(select subject from board_list where no = a.nextno and section='faq' and delete_checkYN='N') as nextsubject from ( select min(no) as nextno from board_list where no > "&no&" and section='faq' and delete_checkYN='N')as a",objDBCon
nextnum = objRs(0) : nextsubject = objRs(1) : fRsRelease()
objRs.Open "select a.*,(select subject from board_list where no = a.nextno and section='faq' and delete_checkYN='N') as nextsubject from ( select max(no) as nextno from board_list where no < "&no&" and section='faq' and delete_checkYN='N')as a",objDBCon
prevnum = objRs(0) : prevsubject = objRs(1) : fRsRelease()
fObjDestroy()
if not isarray(datalist) then response.write "destination data is not exist" : response.end
%>
::: ¼ÛµµÀ¯½ÃƼ :::