|
|
<%
sql = "select top 7 "
sql = sql & " idx,ptype,case when ptype=1 then '[Event]' else '[Notice]' end as head,title,convert(varchar(10),wdate,101) as wdate,convert(varchar(10),dday,101) as dday"
sql = sql & " from korennews_eng"
sql = sql & " where isshow=1 and ismain=1 and ptype IN(1,2)"
sql = sql & " order by dday desc, wdate desc"
set rsNews = Conn.execute(sql)
%>
<%for i=1 to 7
if rsNews.eof then
%>
|
|
|
|
|
<% else
if rsNews("ptype")=2 then
wdate = rsNews("wdate")
else
wdate = rsNews("dday")
end if
title = trim(rsNews("title"))
if len(title)>45 then title = left(title,45)&".."
%>
 |
<%=rsNews("head")%> |
<%=wdate%> |
<%if rsNews("ptype")="1" then%>
"><%=rsNews("title")%>
<%else%>
"><%=rsNews("title")%>
<%end if%>
<%if DateDiff("d", date, rsNews("wdate"))>-7 then%>
<%end if%>
|
|
<% rsNews.movenext
end if
next
set rsNews = nothing
%>
|
|
|
