<%
if request.form<>"" then
Dim objCon
Application.lock
Application(dbName&"wordFilter") = left(""&HTMLEncode(""&replace(request.form("wordList"),", ","|")),1000)
Application(dbName&"bannedIP") = left(""&HTMLEncode(""&replace(request.form("ipList"),", ","|")),1000)
Application(dbName&"domainFilter") = left(""&replace(request.form("domainList"),", ","|"),1000)
Application(dbName&"namefilter") = left(""&replace(request.form("nameList"),", ","|"),1000)
Application.unlock
SET objCon = server.createObject("ADODB.connection")
with objCon
.open datastore
.execute "UPDATE pgd_config SET BannedIP='"& SQLAccessInput(Application(dbName&"bannedIP")) &"', WordFilter='"& SQLAccessInput(Application(dbName&"wordFilter")) &_
"', DomainFilter='"&SQLAccessInput(Application(dbName&"domainFilter"))&"', namefilter='"&SQLAccessInput(Application(dbName&"namefilter"))&"'", , adCmdtext + adExecuteNoRecords
.close
end with
Set objCon = nothing
response.clear
response.redirect ("admin_banned.asp?done=yes")
response.end
end if
Dim wordFilter, bannedIP, arrWord, arrIP, i, namefilter,domainfilter
wordFilter = Application(dbName&"wordFilter")
bannedIP = Application(dbName&"bannedIP")
namefilter = Application(dbName&"namefilter")
domainfilter = Application(dbName&"domainFilter")
%>
Forum Management
<%= OutputCSS() %>
Forum Filters :
<%
if request("done")="yes" then
response.write " Forum Filters Set Up Successfully."
end if
%>
