<%
dim cntPopup,event_link,event_html
set db = new dbclass
db.sql = "SELECT isPopup,html,link FROM popup_info WHERE fg=1 AND popno BETWEEN 501 AND 505;"
set rs = db.execrs() : db.clear()
cntPopup = rs.recordCount
set db = nothing
do until rs.eof
event_link = replace(rs("link"),"[qtt]","?")
event_link = replace(event_link,"http://www.themavens.co.kr","")
event_link = replace(event_link,"https://www.themavens.co.kr","")
event_html = replace(rs("html"),"[qtt]","?")
event_html = replace(event_html,"http://www.themavens.co.kr","")
event_html = replace(event_html,"https://www.themavens.co.kr","")
event_html = replace(event_html,"http://file.themavens.co.kr","")
event_html = replace(event_html,"
","") event_html = replace(event_html,"
","") if trim(event_link)="" then%>
","") event_html = replace(event_html,"
","") if trim(event_link)="" then%>
<%=event_html%>
<%else%>
<%end if%>
<%rs.movenext : loop%>
앞서가는 1:1 비즈니스 영어교육
21년을 이어온 기업교육 파트너의 이유있는 선택
<%
set db = new dbclass
db.sql = "SELECT isPopup,html,link FROM popup_info WHERE fg=1 AND popno BETWEEN 401 AND 404;"
set rs = db.execrs() : db.clear()
cntPopup = rs.recordCount
set db = nothing
do until rs.eof
event_link = replace(rs("link"),"[qtt]","?")
event_link = replace(event_link,"http://www.themavens.co.kr","")
event_link = replace(event_link,"https://www.themavens.co.kr","")
event_html = replace(rs("html"),"[qtt]","?")
event_html = replace(event_html,"http://www.themavens.co.kr","")
event_html = replace(event_html,"https://www.themavens.co.kr","")
event_html = replace(event_html,"http://file.themavens.co.kr","")
event_html = replace(event_html,"
","") event_html = replace(event_html,"
","") %> <%rs.movenext : loop%>
","") event_html = replace(event_html,"
","") %> <%rs.movenext : loop%>
<%
set db = new dbclass
db.sql = "SELECT TOP 1 qIdx,qtitle,qcontent FROM Board WHERE QDelFg = 0 and QUnique=10702 ;"
set rs = db.execrs()
set db = nothing
if not rs.eof then
tmpContents = rs("QContent")
tmpContents =left(Replace(Replace(rex.Replace(tmpContents,"")," ",""),chr(13)&chr(10),""),40)&"..." ' 태그삭제 및 앞에서 60자만 가져오기
%>
">
<%end if%>
<%=rs("Qtitle")%>
<%=tmpContents%>
<%end if%>
-
<%
set db = new dbclass
db.sql = "SELECT TOP 3 * FROM Board WHERE QDelFg = 0 and QUnique=10703 and QviewArea=0 order by Qfix DESC,Qthread DESC;"
set rs = db.execrs()
set db = nothing
%>
<%do until rs.eof%>
[<%=left(rs("QDate"),10)%>]
<%rs.movenext:loop%>
