<%session.codepage=949%> <% set db = server.createobject("adodb.connection") '디비에 연결 db.open (strConnect) set rs = server.createobject("adodb.recordset") %>

<% sql = "SELECT TOP 4 * FROM intragongi WHERE gubun='up' ORDER BY num DESC" rs.open sql,db,1 listcount = rs.RecordCount if listcount = 4 then '게시물 4 개일때 while not rs.eof title = rs("title") '긴 제목 처리 if Len(title) >= 24 then title = left(title, 15) & "..." end if %> <% rs.movenext Wend rs.Close elseif listcount < 4 then '게시물이 4 개 보다 적을때 while not rs.eof title = rs("title") '긴 제목 처리 if Len(title) >= 24 then title = left(title, 15) & "..." end if %> <% rs.movenext Wend rs.Close do ' 게시물 4 개를 맞추기 위해 빈공간 생성 %> <% listcount = listcount + 1 loop while listcount < 4 %> <% end if %> - "><%=title%> - "><%=title%>.