<% nCount = "" strSql = "select count(popno) from tbPopup where activeYN='Y'" rs.open strSql,dbConn, 1 nCount = Cint(rs(0)) rs.Close if nCount > 0 then strSql = "select top 1 popno from tbPopup where activeYN='Y'" rs.open strSql,dbConn, 1 nPopno = Cint(rs(0)) rs.Close %> <%end if%>

<% ' ####### 공지사항 ########################## iloop = 1 strSql = "select top 5 sid,signdate,subject from tbNotice where category='N' order by sid desc" rs.open strSql,dbConn, 1 Do until rs.EOF or iloop > 5 subject = Trim(rs("subject")) subject = cutkr(subject,"new",0,25,"yes") %> <% rs.MoveNext loop rs.Close Set rs = Nothing dbConn.Close Set dbConn = Nothing %> ','notice','top=0,left=0,scrollbars=yes,width=555,height=445')"><%=subject%> [<%=Mid(rs("signdate"),1,10)%>]