<% Dim status, info1, info2, fStatus mlev = request("mlev") status = Application("down") fStatus = request.form("status") DMessage = request.Form("DownMessage") if DMessage = "" then DMessage = Application("DownMessage") end if if status = "" then status = false end if if (not isEmpty(fStatus)) and (Session(strCookieURL & "Approval") = "15916941253") then if status then Application.lock Application("down") = false Application("DownMessage") = DMessage Application.unlock status = false else Application.lock Application("down") = true Application("DownMessage") = DMessage Application.unlock status = true end if end if if status then info1 = "down" info2 = "Start" else info1 = "running" info2 = "Stop" end if if request.form("location") <> "" then response.redirect(request.form("location")) If Session(strCookieURL & "Approval") = "15916941253" Then %>
 All Forums
 Admin Section
 Forum Maintenance

Welcome Administrator. The current status of the boards is <%= info1 %>.

would you like to :

" name="location">

The message below will appear when the board is closed..


<% Else if mlev = 4 then Response.Redirect "admin_login.asp?target=down.asp?mlev=" & mLev elseif not Application("down") then response.redirect("default.asp") end if%>

 

 

<%= Application("DownMessage") %>
<% end if %>