<%@ Language="VBScript" Codepage="949"%> <% Call fSetDBCon() Call fSetRs() dim datalist, datalist1, datalist2, datalist3 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, up_date from board_list where lang_type=1 and 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() strsQL = "select file_ext" strSQL = strSQL & ", mime_type, file_rname" strSQL = strSQL & ", file_fname, file_path" strSQL = strSQL & ", width, height, no" strSQL = strSQL & " from board_attfile" strSQL = strSQL & " where board_no="&no objRs.Open strsQL,objDBCon if not (objRs.eof or objRs.bof) then datalist1 = objRs.getRows fRsRelease() objRs.Open "select a.*,(select subject from board_list where no = a.nextno and section='press' and delete_checkYN='N' and lang_type=1) as nextsubject from ( select min(no) as nextno from board_list where no > "&no&" and section='press' and delete_checkYN='N' and lang_type=1)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='press' and delete_checkYN='N' and lang_type=1) as nextsubject from ( select max(no) as nextno from board_list where no < "&no&" and section='press' and delete_checkYN='N' and lang_type=1)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 %>

Home > Cyber Marketing > Songdo u-Life in the Press Title  <%=datalist(2,0)%> <%if datalist(6,i)<>"" then%> <%=FormatDateTime(datalist(6,i),2)%> <%else%> <%=FormatDateTime(datalist(3,i),2)%> <%end if%> <%if isarray(datalist1) then%> <%for i = 0 to ubound(datalist1,2)%> <%next%> <%End if%>  <%=datalist1(2,i)%>   <%if isarray(datalist1) then%> <%for i = 0 to ubound(datalist1,2)%> <%if datalist1(0,i)="jpg" or datalist1(0,i)="gif" or datalist1(0,i)="jpge" then%> <%end if%> <%next%> <%else%> <%end if%>     <%=replace(Replace(datalist(4,0),"&","&"),chr(13)," ")%>     <%if prevsubject="" then%> <%else%> <%end if%> Before : No Title Before : <%=prevsubject%> <%if nextsubject="" then%> <%else%> <%end if%> After : No Title After : <%=nextsubject%>