<% '################################################################################# '## 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 %>

<% =fLang(strLangAdmin_Forums_Schedule00010) %>  <% =fLang(strLangAdmin_Forums_Schedule00020) %>  <% =fLang(strLangAdmin_Forums_Schedule00030) %>

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

"> <% =fLang(strLangAdmin_Forums_Schedule00040) %> <% 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 "     " & fLangN(strLangAdmin_Forums_Schedule00050, reqID(x) & "|" & Request(tmpStr)) & " " next %>

<% =fLang(strLangAdmin_Forums_Schedule00060) %>

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

"> <% =fLang(strLangAdmin_Forums_Schedule00070) %> <% =fLang(strLangAdmin_Forums_Schedule00080) %> <% 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(fLang(strLangAdmin_Forums_Schedule00090)) else response.write "" response.write "" Do until drs.eof if (IsNull(drs("F_L_ARCHIVE"))) or (drs("F_L_ARCHIVE") = "") then archive_date = fLang(strLangAdmin_Forums_Schedule00100) 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") & " " & fLang(strLangAdmin_Forums_Schedule00110) & " " & " " & fLang(strLangAdmin_Forums_Schedule00120) & "

<% End if %>
"><% =fLang(strLangAdmin_Forums_Schedule00140) %>

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