<% Dim arraylimit, objRS, pgcount, currpage, forumtitle, forumid, pages, foruminfo, rdcount Dim length, dot, mpg, emnotify, tmode, allowpoll,pollCreatePermission, m Dim enableRating, showRateLink, tid, page, appid,arrAllMeg dim smode, key, language, mpage m = request.queryString("m") tid = request.queryString("tid") page = request.queryString("p") appid = request.queryString("appid") key = request.queryString("key") language = request.queryString("language") mpage = request.querystring("mpage") if appid = "" or not isNumeric(appid) then response.redirect("default.asp") response.end end if if memBrowser <> "moz6" then response.end end if tmode = tmodeProcess(request.queryString("tmode")) smode = smodeProcess(request.queryString("smode")) if not isNumeric(page) then page = 1 appid = cint(appid) Dim allForum, rights, Mode allForum = Application(dbName&"foruminfo") forumid = allForum(0,appid) rdcount = allForum(4,appid) Dim objPermission Set objPermission = new PermissionSetting With objPermission .memID = memID .appid = appid .GetPermission(false) rights = .post Mode = .isModerator enableRating = .enableRating End With Set objPermission = nothing if rights = 0 then response.end '============================================ %>