<%@ Language="VBScript" Codepage="949"%> <% Call fSetDBCon() Call fSetRs() dim datalist dim datalist1 const alllistsize = 3 nodata = true Set objStrCut = new StrCut strSQL="select no,subject,create_date from board_list where section='notice' and delete_checkYN='N' and lang_type=1 order by no desc" objRs.Open strSQL,objDBCon if not (objRs.eof or objRs.bof) then datalist = objRs.getRows fRsRelease() strSQL="select no,subject,create_date,up_date from board_list where section='press' and delete_checkYN='N' and lang_type=1 order by no desc" objRs.Open strSQL,objDBCon if not (objRs.eof or objRs.bof) then datalist1 = objRs.getRows %>

Home > Cyber Marketing   <%if isarray(datalist1) then%> <%for i = 0 to ubound(datalist1,2)%> <%if not (i < alllistsize) then exit for %> <%next%> <%End if%> <%=objStrCut.strTitleCut(datalist1(1,i),15)%> <%if datalist1(3,i)<>"" then%> <%=FormatDateTime(datalist1(3,i),2)%> <%else%> <%=FormatDateTime(datalist1(2,i),2)%> <%end if%>   <%if isarray(datalist) then%> <%for i = 0 to ubound(datalist,2)%> <%if not (i < alllistsize) then exit for %> <%next%> <%End if%> <%=objStrCut.strTitleCut(datalist(1,i),18)%> <%=FormatDateTime(datalist(2,i),2)%>

<% Set objStrCut = nothing %>