<%
'-------------------------------------------------------------------------------
'Template
'-------------------------------------------------------------------------------
%>
<%
'-------------------------------------------------------------------------------
'Config
'-------------------------------------------------------------------------------
Public Sub Config()
Page.S = fn.dic("s")
Page.Cate = "1030000"
End Sub
'-------------------------------------------------------------------------------
'Local Function
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'Content
'-------------------------------------------------------------------------------
Public Sub RenderContent()
%>
<%
dim seq,fg,lastQidx,isWrite
seq = fn.dic("seq")
fg = 0
lastQidx = 0
isWrite = 0
set db = new dbclass
db.sql = "SELECT fg FROM popup_info WHERE popno=2;"
'db.view
set rs = db.execrs() : db.clear()
if not rs.eof then fg = rs(0) ' fg:1이면 how to say 글쓰기 버튼 show처리
rs.close : set rs = nothing
' 글쓰기여부 가져오기
db.sql = "SELECT isWrite FROM popup_info WHERE popNo=2"
set rs = db.execrs() : db.clear()
if not rs.eof then isWrite = rs(0)
rs.close : set rs = nothing
if fg=1 then
db.sql = "SELECT top 1 qidx FROM Board where QUnique ='40000000' and QDelFg = 0 order by Qidx desc"
set rs = db.execrs() : db.clear()
if not rs.eof then lastQidx = rs(0) ' 현재 진행중인 how to say 번호 가져오기
rs.close : set rs = nothing
end if
db.sql = "SELECT * FROM Board WHERE QUnique=40000000 and QIdx=" & seq & " ;"
db.sql = "UPDATE Board SET QRead=QRead+1 WHERE QUnique=40000000 and QIdx=" & seq & " ;"
'db.view
set rs = db.execrs()
set db = nothing
%>
<%
if rs("qidx")=lastQidx and isWrite=1 then
response.write ""
end if%>
">
<%
set db = new dbclass
db.sql = "SELECT * FROM BoardComment WHERE qunique=" & seq & " AND CDelFg=0 AND cdetc2=0 order by cdate desc;"
'db.view
set rs = db.execrs()
set db = nothing
' Set Listing = new ListClass
' Listing.SetLow = 11
' Listing.Columm = " * "
' Listing.Short = " cidx DESC "
' Listing.Table = " BoardComment "
' Listing.CountSql = "select count(*) from BoardComment where QUnique=" & seq & " AND CDelFg=0 and cdetc2=0 ;"
' Listing.Condition = " QUnique=" & seq & " AND CDelFg=0 and cdetc2=0 "
'Listing.Dbview = true
' Set rs = Listing.execrs()
%>
<%if not (rs.eof or rs.bof) then%>
