<%
dim bno : bno = "10005" ' 공지(10005),
dim compNo : compNo = "0" ' 전화영어수강생(회사번호) -> 0인경우 지점공지사항으로 처리
if US.GETS("LECTYPE") = "TELENG" then
set db = new dbclass
db.sql = " select top 1 이회사_번호 from vi_전화영어_수강목록 where 유저코드="&us.gets("WEBIDX")& " ORDER BY 종료일 DESC"
set rs = db.execrs()
set db = nothing
if not rs.eof then compNo = rs(0)
rs.close : set rs=nothing
end if
dim pg : pg=fn.dic("curpage") : if pg="" then pg=1
Set Listing = new ListClass
Listing.SetLow = 11
Listing.Columm = " * "
Listing.Short = " Qfix DESC, QThread DESC "
Listing.Table = " Board "
Listing.CountSql = "select count(*) from Board where QDelFg = 0 and Qbranch="&US.GETS("Branch")&" and QUnique='"&bno&"' and QcompNo='"&compNo&"';"
Listing.Condition = "QDelFg = 0 and Qbranch="&US.GETS("Branch")&" and QUnique="&bno&" and QcompNo="&compNo
'Listing.Dbview = true
Set rs = Listing.execrs()
response.cookies("searchKeyWords") = "?curpage="&pg
'US.SETS "PageName", Listing.Target
%>
<%
i = 0
dim branchName
dim cssFix : cssFix=""
i = 0
Do until rs.eof
if rs("Qfix")=0 then cssFix="" else cssFix="fix"
if rs("Qbranch")=10006 then
branchName = "시청센터"
elseif rs("Qbranch")=10022 then
branchName = "분당센터"
else
branchName = "센터"
end if
%>
| <%=(Listing.ListCount)-(pg-1)*11 - i%> |
"><%=rs("QTitle")%><%if left(rs("Qdate"),10) >= trim(date()-5) then%> <%end if%>
<%if int(rs("QFileNum")) > 0 then%> <%end if%>
|
 |
<%=left(rs("QDate"),10)%> |
|
<%
i = i + 1
rs.movenext
loop
%>
|
<%
Set Listing = Nothing
%>
