<% 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 %> <%= Application(dbName&"forumtitle") %> <%= NoScript() %> <%= OutputCSS() %> >
<% if isArray(arrRevList) then%> <% ub = ubound(arrRevList,2) %> <% For iList = 0 to ub %> <% next %> <% Else %> <% End If %>
<%= tmRevision %>
class="c2"> <%= tmRevision & "("&(ub-ilist+1)&") " &SQLDate(arrRevList(1,iList),timeoffset,true)&" -- "& arrRevList(2,iList) &""%>
class="subhead">
<% If len(revID)<>0 and isArray(arrRevBody) then %> <% body = SQLOut(arrRevBody(0,0)) Dim objPGDCode Set objPGDCode = New RegExp objPGDCode.global = true objPGDCode.ignorecase = true %>

<%= RevisionDesc %> (<%= serial %>)
class="msg"> <%= (PGDCodeResolution(objPGDCode,body,pgdCode))%>
<%= arrRevBody(2,0) %>
<% Set objPGDCode = nothing %> <% End If %>
<% If len(body)<>0 and (isAdmin or mode) then %> <% End If %>