<% '################################################################################# '## Copyright (C) 2000-01 Michael Anderson and Pierre Gorissen '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <% If Session(strCookieURL & "Approval") = "15916941253" Then %>

All Forums  Admin Section  Forum Deletion/Archival

<% strWhatToDo = request("action") if strWhatToDo = "" then strWhatToDo = "default" End if Select Case strWhatToDo Case "updateArchive" %>

"> Administrative Forum Archive Schedule <% reqID = split(Request("id"),",") response.write id for x = 0 to ubound(reqID) tmpStr = "archSched" & trim(reqID(x)) if tmpStr = "" then tmpStr = NULL strSQL = "UPDATE " & strTablePrefix & "FORUM SET F_ARCHIVE_SCHED = " & Request(tmpStr) strSQL = strSQL & " WHERE FORUM_ID = " & reqID(x) my_conn.execute(strSQL) response.write "     forum: " & reqID(x) & " Archive schedule updated to " & Request(tmpStr) & " days. " next %>

Back to Admin Forums

<% Case "default" '################ ARCHIVE %>

"> Administrative Forum Archive Functions Archive Reminder: <% strForumIDN = request("id") If strForumIDN = "" then strsql = "Select CAT_ID, FORUM_ID, F_L_ARCHIVE,F_ARCHIVE_SCHED, F_SUBJECT from " & strTablePrefix & "FORUM ORDER BY CAT_ID, F_SUBJECT DESC" set drs = my_conn.execute(strsql) thisCat = 0 if drs.eof then response.write("No Forums Found!") else response.write "" response.write "" Do until drs.eof if (IsNull(drs("F_L_ARCHIVE"))) or (drs("F_L_ARCHIVE") = "") then archive_date = "Not archived" else archive_date = StrToDate(drs("F_L_ARCHIVE")) end if if thisCat <> drs("CAT_ID") then response.write " " response.write(" " & vbNewline) thisCat = drs("Cat_ID") drs.movenext Loop response.write "" End if set drs = nothing %> " &_ "" & drs("F_SUBJECT") & " archive schedule: " & " days" & "

<% End if %>
">Back to Forums Administration

<% End Select WriteFooter Else scriptname = split(request.servervariables("SCRIPT_NAME"),"/") Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname)) End IF %>