<% 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">
<%= ttManageDesc %>
>'" checked><%= delPic %> <%= iff(isRecycled,adminRestoreDesc,adminDeleteDesc) %>
>'"><%= lockPic %> <% if lockMode=0 then response.write (adminLockDesc) else response.write (adminUnLockDesc) %>
>'"><%= nailPic %> <% if nailMode=0 then response.write (adminPinDesc) else response.write (adminUnPinDesc) %>
>'"><%= FAQPic %> <% if FAQMode=0 then response.write (adminFAQDesc) else response.write (adminUnFAQDesc) %>
> <%= ManageLeaveTraceDesc %>


">
<% else response.redirect ("redirect.asp") end if %>