<% Option Explicit %> <% 'Set the response buffer to true Response.Buffer = True %> BATCH DELETE TOPICS

If you find the forum starts running a bit slow it maybe worth cleaning the database out by deleting topics.
Select the Topics you want deleted by Forum and when a message was last posted in them.

DELETE TOPICS IN	All Forums <% 'Read in the forum name from the database 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Forum.Forum_name, " & strDbTable & "Forum.Forum_ID FROM " & strDbTable & "Category, " & strDbTable & "Forum WHERE " & strDbTable & "Category.Cat_ID = " & strDbTable & "Forum.Cat_ID ORDER BY " & strDbTable & "Category.Cat_ORDER ASC, " & strDbTable & "Forum.Forum_Order ASC;" 'Query the database rsCommon.Open strSQL, adoCon 'Loop through all the froum in the database Do while NOT rsCommon.EOF 'Display a link in the link list to the forum Response.Write vbCrLf & "" & rsCommon("Forum_name") & "" 'Move to the next record in the recordset rsCommon.MoveNext Loop 'Reset server objects rsCommon.Close Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %>
DELETE TOPICS THAT HAVEN'T BEEN POSTED IN FOR	Now 1 Week 2 Weeks 1 Month 2 Months 4 Months 6 Months 9 Months 1 Year 2 Years
SELECT WHICH TYPE OF TOPICS TO DELETE	All Topics Normal Topics Only Sticky Topics Only Announcements Only Announcements (All Forums)