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