% Dim repost, formpost, body, key, language, msgIcons Dim objRS, objCon, appid, m, mode, allforum, revID, arrRevList, arrRevBody Dim iList,pgdCode, ub, serial, rights,timeoffset appid = request("appid") m = request("m") revID = request("revID")&"" serial = request.querystring("serial")&"" allforum = Application(dbName&"foruminfo") timeoffset = Application(dbName&"TimeOffset") if len(m) = 0 or len(appid) = 0 then response.redirect ("redirect.asp") pgdCode = allforum(13,appid) Dim objPermission Set objPermission = new PermissionSetting With objPermission .memID = memID .appid = appid .GetPermission(false) rights = .post Mode = .isModerator End With Set objPermission = nothing if request.form<>"" then if isAdmin or mode then SET objCon = server.createObject("ADODB.connection") with objCon .open datastore .execute dbOwnerPrefix&"spDelRevision("&revID&","&m&")", , adExecuteNoRecords + adCmdStoredProc .close end with Set objCon = nothing end if response.redirect ("revision.asp?m="&m&"&appid="&appid) response.end end if if rights>0 then Dim NoIMGinPosts:NoIMGinPosts = allforum(25,appid) if NoIMGinPosts&"" = "1" then NoImage = "1" NoImageRes = NoImage set objRS = server.createobject("adodb.recordset") with objRS .CacheSize = 150 .open dbOwnerPrefix&"spReadRevision ("&m&", "&allforum(0,appid)&", '"&revID&"')", datastore, , , adcmdStoredProc If not (.EOF or .BOF) then arrRevList = .getrows End if Set objRS = .nextrecordset If not (objRS.EOF or objRS.BOF) then arrRevBody = objRS.getrows End if if objRS.state <> adStateClosed then objRS.close end with set objRS=nothing end if %>