<%
dim appid, m, allforum,allCat, nailMode, lockMode, FAQMode, threadID,mode, forumID, isRecycled
'appid = request.queryString("appid")
allForum = application(dbName&"foruminfo")
allCat = application(dbName&"Category")
threadID = CDbl(request.querystring("threadID"))
Dim objRS
set objRS = server.createobject("adodb.recordset")
with objRS
.CacheSize = 1
.open "SELECT locked, isTop, isFaq, forumID, r.messageID FROM pgd_messages m left join pgd_RecycleBin r on m.messageID = r.messageID WHERE parent=0 and m.messageID="&Clng(threadID), datastore, , , adCmdText
If not (.EOF or .BOF) then
lockMode = .fields(0).value
nailMode = .fields(1).value
FAQMode = .fields(2).value
forumID = .fields(3).value
isRecycled = iff(isNull(.fields(4).value),false,true)
End if
.close
end with
set objRS=nothing
appid = ForumIdToAppid(forumID)
dim lockPic, nailPic, FAQPic, delPic
if isRecycled then delPic = " " else delPic = " "
if lockMode = 0 then lockPic = " " else lockPic = " "
if nailMode = 0 then nailPic = " " else nailPic = " "
if FAQMode = 0 then FAQPic = " " else FAQPic = " "
Dim objPermission
Set objPermission = new PermissionSetting
With objPermission
.memID = memID
.appid = appid
mode = .moderator()
End With
Set objPermission = nothing
if (isAdmin or mode) and len(appid)>0 then
%>
<%= ttManageDesc %>
<%= OutputCSS() %>
style="margin:0px 0px 0px 0px">
<%
else
response.redirect ("redirect.asp")
end if
%>
" else delPic = "
"
if lockMode = 0 then lockPic = "
" else lockPic = "
"
if nailMode = 0 then nailPic = "
" else nailPic = "
"
if FAQMode = 0 then FAQPic = "
" else FAQPic = "
"
Dim objPermission
Set objPermission = new PermissionSetting
With objPermission
.memID = memID
.appid = appid
mode = .moderator()
End With
Set objPermission = nothing
if (isAdmin or mode) and len(appid)>0 then
%>