<% Response.expires = 0 Response.buffer = true %> <% sSQL = "select top 4 seq, subject, news_date, tag from ( " sSQL = sSQL & "select * from (select top 4 seq, subject, regDate news_date, 'infoNews' tag from TInvestmentInfo " sSQL = sSQL & " order by news_date DESC) t1 " sSQL = sSQL & " union " sSQL = sSQL & "select * from (select top 4 news_id seq, news_subject subject, news_date, 'solid_news' tag from solid_news " sSQL = sSQL & " order by news_date DESC) t1 " sSQL = sSQL & " union " sSQL = sSQL & "select * from (select top 4 news_id seq, news_subject subject, news_date, 'solid_pr' tag from solid_pr " sSQL = sSQL & " order by news_date DESC) t1 " sSQL = sSQL & " ) ut1 " sSQL = sSQL & " order by news_date desc " Set oDB = Server.CreateObject("ADODB.Connection") oDB.open Application("db_info") Set oRS = Server.CreateObject("ADODB.Recordset") oRS.open sSQL, oDB %>

	<% k = 1 Do Until oRs.EOF select case oRs("tag") case "infoNews" linkurl = "/investment/info_news_read.asp?seq=" & oRs("seq") case "solid_news" linkurl = "/news/news_read.asp?page_int=1&news_id=" & oRs("seq") case "solid_pr" linkurl = "/news/pr_read.asp?page_int=1&news_id=" & oRs("seq") end select titleImg = "" if k = 1 then titleImg = "" end if %> <% oRs.MoveNext k = k + 1 Loop %> <%=titleImg%> <%=reLen(reChr(oRS("subject"),"dontHTML","",""),34)%>