<% Server.ScriptTimeout = 25000 Dim forumID:forumID = request.form("forumID") Dim lastUpdate:lastUpdate = request.form("lastUpdate") Dim totalReply:totalReply = request.form("totalReply") Dim hits:hits = request.form("hits") Dim mode:mode = request.form("mode") Dim hasSearch:hasSearch = false Dim objRS, objCon , strSQL1, strSQL2, strSQL3, strSQL4, strSQL5 Dim oriTableWidth:oriTableWidth = "550" Dim percentage:percentage = 0 Dim deleteOrLockStatus:deleteOrLockStatus = "" Dim mode2percent:mode2percent = 0 if mode = "1" then 'delete strSQL1 = "DELETE pgd_messages " deleteOrLockStatus = "Deleting Messages....." else strSQL1 = "Update pgd_messages SET Locked = 1 " deleteOrLockStatus = "Locking Messages....." mode2percent = 55 end if strSQL1 = strSQL1 & " WHERE threadID in ( SELECT threadID from pgd_messages WHERE parent = 0 and forumID = "&forumId&" " if lastUpdate <> "" then strSQL1 = strSQL1 & "AND lastupdate < DateADD (dd, "&lastUpdate&", GetDate())" hasSearch = true end if if totalReply <> "" then strSQL1 = strSQL1 & "AND totalreply < "&totalReply&" " hasSearch = true end if if hits <>"" then strSQL1 = strSQL1 & "AND hits < "&hits&" " hasSearch = true end if if mode <> "1" then strSQL1 = strSQL1 & "AND Locked = 0" end if strSQL1 = strSQL1 & ")" strSQL2 = "Update pgd_upfile SET pgd_upfile.messageID = -1 "&_ "FROM pgd_upfile LEFT JOIN pgd_messages ON pgd_messages.messageID = pgd_upfile.messageID "&_ "WHERE pgd_messages.messageID is NULL" if not hasSearch then response.redirect ("admin_m_delete.asp?done=no") response.end end if 'response.write(strSQL1) 'response.end %> Mass Message Pruning <%= OutputCSS() %>
Mass Message Pruning / Locking:       Help


This is a long running process. Please be patient.

>
0% complete


Initializing process... Please wait.
<% response.flush call outputProcess(5,"Shutting down the forum.....") Call DoThis("spTurnOnOff (1)") Application.lock Application(dbName&"boarddown") = 1 Application.unlock call outputProcess(35+mode2percent,deleteOrLockStatus) SET objCon = server.createObject("ADODB.connection") with objCon .open datastore .execute strSQL1, , adExecuteNoRecords + adCmdtext .close end with Set objCon = nothing if mode = "1" then call outputProcess(7,"Recounting forum topics and posts.....") Call DoThis("spRecountAllForums") call updateForum call outputProcess(7,"Recounting user total posts.....") Call DoThis("spUpdatePostCount") call outputProcess(7,"Cleaning up subscription table.....") Call DoThis("spSubCleanUp") call outputProcess(20,"Defragment Index.....") Call DoThis("spdefragfastsort") call outputProcess(14,"Deleting orphan attachments.....") SET objCon = server.createObject("ADODB.connection") with objCon .open datastore .execute strSQL2, , adExecuteNoRecords + adCmdtext .close end with Set objCon = nothing Call DoThis("spCleanAttachment") end if call outputProcess(4,"Turning on the forum.....") Call DoThis("spTurnOnOff (0)") Application.lock Application(dbName&"boarddown") = 0 Application.unlock Call finishedProcess() %>