<% Option Explicit %>
<!--#include file="common.asp" -->
<%
'****************************************************************************************
'**  Copyright Notice    
'**
''**  Web Wiz Guide - Web Wiz Guestbook
'**  http://www.webwizguestbook.com
'**                                                              
'**  Copyright 2001-2006 Bruce Corkhill All Rights Reserved.                                
'**
'**  This program is free software; you can modify (at your own risk) any part of it 
'**  under the terms of the License that accompanies this software and use it both 
'**  privately and commercially.
'**
'**  All copyright notices must remain in tacked in the scripts and the 
'**  outputted HTML.
'**
'**  You may use parts of this program in your own private work, but you may NOT
'**  redistribute, repackage, or sell the whole or any part of this program even 
'**  if it is modified or reverse engineered in whole or in part without express 
'**  permission from the author.
'**
'**  You may not pass the whole or any part of this application off as your own work.
'**   
'**  All links to Web Wiz Guide and powered by logo's must remain unchanged and in place
'**  and must remain visible when the pages are viewed unless permission is first granted
'**  by the copyright holder.
'**
'**  This program is distributed in the hope that it will be useful,
'**  but WITHOUT ANY WARRANTY; without even the implied warranty of
'**  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER 
'**  WARRANTIES WHETHER EXPRESSED OR IMPLIED.
'**
'**  You should have received a copy of the License along with this program; 
'**  if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom.
'**    
'**
'**  No official support is available for this program but you may post support questions at: -
'**  http://www.webwizguide.info/forum
'**
'**  Support questions are NOT answered by e-mail ever!
'**
'**  For correspondence or non support questions contact: -
'**  info@webwizguide.info
'**
'**  or at: -
'**
'**  Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom
'**
'****************************************************************************************


'Set the response buffer to true as we maybe redirecting
Response.Buffer = True 

'If the session variable is False or does not exsist then redirect the user to the unauthorised user page
If Session("blnIsUserGood") = False or IsNull(Session("blnIsUserGood")) = True then
	
	'Reset Server Variables
	Set rsCommon = Nothing	
	adoCon.Close
	Set adoCon = Nothing
	
	'Redirect to unathorised user page
	Response.Redirect"unauthorised_user_page.htm"
End If


%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Configure Bad Word Filter</title>

<%
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
Response.Write("<!--//" & _
vbCrLf & "/* *******************************************************" & _
vbCrLf & "Application: Web Wiz Guestbook ver. " & strVersion & "" & _
vbCrLf & "Author: Bruce Corkhill" & _
vbCrLf & "Info: http://www.webwizguestbook.com" & _
vbCrLf & "Available FREE: http://www.webwizguestbook.com" & _
vbCrLf & "Copyright: Bruce Corkhill ©2001-2006. All rights reserved" & _
vbCrLf & "******************************************************* */" & _
vbCrLf & "//-->" & vbCrLf & vbCrLf)
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
%>

</head>
<body bgcolor="#FFFFFF" text="#000000">
<h1 align="center">Configure Bad Word Filter</h1>
<div align="center"> <a href="admin_menu.asp" target="_self">Return to the the Administration Menu</a><br />
  <form name="frmAddNewWords" method="post" action="add_bad_words.asp">
    <table width="550" border="0" cellspacing="0" cellpadding="1" bgcolor="#000000">
      <tr>
        <td>
          <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
            <tr>
              <td align="center"> <b><font size="5">Add New Bad Words To List</font></b><br />
                <br />
                Type any words you would like to add to the Bad Word filter into the boxes below.<br />
                Both the <i>Bad Word</i> and the <i>Replace With</i> boxes must be filled in for each new word.<br />
                You can add between 1 and 3 new bad words at once. <br />
                <br />
                <table width="300" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000">
                  <tr> 
                    <td> 
                      <table width="100%" border="0" cellspacing="1" cellpadding="4">
                        <tr bgcolor="#CCCCCC" align="center"> 
                          <td width="50%"><b>Bad Word</b></td>
                          <td width="50%"><b>Replace With</b></td>
                        </tr>
                        <tr bgcolor="#FFFFFF"> 
                          <td width="50%"> 
                            <input type="text" name="badWord1" maxlength="49">
                          </td>
                          <td width="50%"> 
                            <input type="text" name="replaceWord1" maxlength="49">
                          </td>
                        </tr>
                        <tr bgcolor="#FFFFFF"> 
                          <td width="50%">
                            <input type="text" name="badWord2" maxlength="49">
                          </td>
                          <td width="50%">
                            <input type="text" name="replaceWord2" maxlength="49">
                          </td>
                        </tr>
                        <tr bgcolor="#FFFFFF"> 
                          <td width="50%">
                            <input type="text" name="badWord3" maxlength="49">
                          </td>
                          <td width="50%">
                            <input type="text" name="replaceWord3" maxlength="49">
                          </td>
                        </tr>
                      </table>
                    </td>
                  </tr>
                </table>
                <br />
                <input type="submit" name="Submit" value="Add New Bad Words To List">
                <br />
                <br />
              </td>
            </tr>
          </table>
        </td>
      </tr>
    </table>
    <br />
    <br />
  </form>
  <table width="550" border="0" cellspacing="0" cellpadding="1" bgcolor="#000000">
    <tr>
      <td>
        <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
          <tr>
            <td height="255"> 
              <div align="center"><font size="5"><b>Remove Bad Words From List<br />
                </b></font><br />
                Place a tick in the checkbox for any bad words you wish to remove from the list <br />
                then click on the Delete Bad Words from List button.</div>
              <div align="center"> 
                <form name="frmModerators" method="post" action="delete_bad_words.asp">
                  <table width="300" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000">
                    <tr> 
                      <td bgcolor="#000000"> 
                        <table width="100%" border="0" cellspacing="1" cellpadding="4" height="14">
                          <tr bgcolor="#CCCCCC"> 
                            <td height="2" width="14%" align="center"><b>Delete</b></td>
                            <td height="2" width="46%" align="center"><b>Bad Word</b></td>
                            <td height="2" width="40%" align="center"><b>Replaced With</b></td>
                          </tr>
                          <%       
						
'Initalise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT " & strDbTable & "Smut.* FROM " & strDbTable & "Smut ORDER BY " & strDbTable & "Smut.Smut ASC;"
				
'Query the database
rsCommon.Open strSQL, adoCon

'Display the bad words       		
Do While NOT rsCommon.EOF		
			%>
                          <tr bgcolor="#FFFFFF"> 
                            <td width="14%" align="center" height="24"> 
                              <input type="checkbox" name="chkWordID" value="<% = rsCommon("ID_no") %>">
                            </td>
                            <td width="46%" align="left" height="24"> 
                              <% = rsCommon("Smut") %>
                            </td>
                            <td width="40%" align="left" height="24"> 
                              <% = rsCommon("Word_replace") %>
                            </td>
                          </tr>
                          <%
		
	'Move to the next record in the database
	rsCommon.MoveNext
	
'Loop back round   	
Loop
	


'Reset Server Variables
rsCommon.Close
Set rsCommon = Nothing	
adoCon.Close
Set adoCon = Nothing
%>
                        </table>
                      </td>
                    </tr>
                  </table>
                  <br />
                  <input type="submit" name="Submit" value="Delete Bad Words From List">
                  <br />
                </form>
              </div>
           </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  <br />
</div>
<br />
</body>
</html>

