<% tb = "inno_3" SQL = "SELECT * FROM "&tb&" order by re DESC, reid ASC, num DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.PageSize = 4 rs.Open SQL,db,1 %> <% i=1 Do until rs.EOF or i>rs.pagesize id=rs("id") title=rs("title") content=rs("content") filename=rs("filename") content=mid(content,1,70)&".." tag=rs("tag") writeday=left(rs("writeday"),8) if tag="tag_ok" then title=CheckWord(title) if Len(title) > 17 then title=mid(title,1,18)&".." end if else if Len(title) > 13 then title=mid(title,1,14)&".." end if title=replace(title,""","'") end if %> <% if i=1 then Response.Write "" end if %> <% rs.movenext i=i+1 Loop rs.Close Set rs = nothing %> <%=title%> [<%=writeday%>]   " & content & "         <% tb = "inno_4" SQL = "SELECT * FROM "&tb&" order by re DESC, reid ASC, num DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.PageSize = 4 rs.Open SQL,db,1 %> <% i=1 Do until rs.EOF or i>rs.pagesize id=rs("id") title=rs("title") content=rs("content") filename=rs("filename") content=mid(content,1,70)&".." tag=rs("tag") writeday=left(rs("writeday"),8) if tag="tag_ok" then title=CheckWord(title) if Len(title) > 17 then title=mid(title,1,18)&".." end if else if Len(title) > 13 then title=mid(title,1,14)&".." end if title=replace(title,""","'") end if %> <% if i=1 then Response.Write "" end if %> <% rs.movenext i=i+1 Loop rs.Close Set rs = nothing %> <%=title%> [<%=writeday%>]   " & content & "       고려대구로병원 [2002/06]   VIDAR SCANNER 사용