<%
' Set conn = Server.CreateObject("ADODB.Connection")
' conn.Open "worldceramic", "worldceramic", "ceramic1971"
' Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from biennale_board order by idx desc"
objRS.open strSQL, conn
left_menu_notice_count = 1
Do until objRS.eof or left_menu_notice_count > 3
s_idx = objRS("idx")
s_title = objRS("title")
s_wdate = objRS("wdate")
if Len(s_title) > 15 then
s_title = mid(s_title,1,15) & ".."
end if
if Cint(datediff("d",s_wdate,date())) < 3 then 'ÃÖ±Ù2ÀÏ
IsNearWrite = True
else
IsNearWrite = False
end if
%>
