<%
'-------------------------------------------------------------------------------
'Template
'-------------------------------------------------------------------------------
%>
<%
'-------------------------------------------------------------------------------
'Config
'-------------------------------------------------------------------------------
Public Sub Config()
Page.S = fn.dic("s")
Page.Cate = "1030000"
End Sub
'-------------------------------------------------------------------------------
'Local Function
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'Content
'-------------------------------------------------------------------------------
Public Sub RenderContent()
%>
<%
dim seq,isEvent
seq = fn.dic("seq")
set db = new dbclass
db.sql = "SELECT * FROM Board WHERE QUnique=10703 and QIdx=" & seq & " ;"
db.sql = "UPDATE Board SET QRead=QRead+1 WHERE QUnique=10703 and QIdx=" & seq & " ;"
'db.view
set rs = db.execrs()
if not rs.eof then isEvent=rs("QisEvent")
set db = nothing
%>
<%
set rs=nothing
set db=nothing
%>
<%
if seq=1002763 then
dim arr1, str1, str2, branch
branch = fn.dic("branch")
' 지점목록 생성
set db = new dbclass
db.sql = " select name from branch where delfg=0 AND headfg=0 and approval='Y'"
set rs = db.execrs()
if not (rs.eof or rs.bof) then
arr1 = rs.GetRows()
end if
db.clear()
set db = nothing
if isArray(arr1) then
for i = 0 to ubound(arr1, 2)
str1 = str1 & ""
next
end if
' 강사목록 생성
set db = new dbclass
db.sql = "select a.NAME,a.FULLNAME from teacher a inner join branch b on a.branch=b.idx where b.name ='"&branch&"' and a.state='A' order by a.name "
set rs = db.execrs()
if not (rs.eof or rs.bof) then
arr1 = rs.GetRows()
else
arr1 = ""
end if
db.clear()
set db = nothing
if isArray(arr1) then
for i = 0 to ubound(arr1, 2)
str2 = str2 & ""
next
end if
' 강사추천 등록 중지(작성된 글 view만 되게 처리)
if false then
%>
<%if US.GETS("WEBID") = "" then%>
적절하지 못한 글은 관리자에 의해 삭제될 수 있습니다.
<%else%>
<%end if%>
<%
' 강사추천 등록 중지(작성된 글 view만 되게 처리) - 여기까지
end if
set db = new dbclass
db.sql = "SELECT * FROM BoardComment WHERE qunique=" & seq & " AND CDelFg=0 AND cdetc2=0 order by cdate desc;"
set rs = db.execrs()
set db = nothing
if not (rs.eof or rs.bof) then
%>
▶ <%=rs.recordcount%>개의 추천글이 있습니다.
<%do until rs.eof%>
<%=rs("MID")%>
- <%=rs("CDEtc4")%> <%=rs("CDEtc5")%>
<%if false then ' 강사추천 등록 중지(작성된 글 view만 되게 처리)%>
<%if rs("MID") = US.GETS("WEBID") then%>
x
<%end if%>
<%end if%>
<%=Replace(rs("CContent"), chr(13), " ")%>
작성일 | <%=left(rs("CDate"),10)%>
<%rs.movenext:loop%>
<%end if%>
<%end if%>
<%
'if us.gets("webid")="test000" then isEvent=true
' 와이즈 임시 처리 ( 와이즈 끝난 후 제거 )
if seq="1002992" or seq="1003003" then
%>
<%
end if
%>
<%if isEvent then%>
<%
dim customer, email, hand ', branch
customer = ""
branch = ""
email = ""
hand = ""
set db = new dbclass
db.sql = "SELECT name, branch, "
db.sql = "mobile, email "
db.sql = "FROM webuser WHERE webid<>'' and webid='"&US.GETS("webid")&"';"
set rs = db.execrs : db.clear()
if not rs.eof then
customer = rs("name")
branch = rs("branch")
email = rs("email")
hand = rs("mobile")
if email="@" then email=""
end if
%>
※ 귀하께서는 개인정보 제공 및 활용에 거부할 권리가 있습니다.
○거부에 따른 불이익 : 위 제공사항은 상담예약에 반드시 필요한 사항으로 거부하실 경우 상담이 불가능함을 알려드립니다. 단, 선택항목에 대해서는 동의 거부시에도 서비스 이용에는 제한이 없습니다.
※ 기타 개인정보 취급에 관한 상세한 사항은 저희 홈페이지 (www.themavens.co.kr)에 공개하고 있는 “개인정보 취급방침”을 참조하십시오
마케팅/홍보를 위하여 귀하의 개인정보를 이용하는데 동의 하십니까? 동의 거부시 할인과 다양한 정보 및 각종 서비스가 제한됩니다.
