%@ 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=0 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=0 order by no desc" objRs.Open strSQL,objDBCon if not (objRs.eof or objRs.bof) then datalist1 = objRs.getRows %>