<% @ Language=VBScript %> <% Option Explicit %> <% 'Set the response buffer to true as we maybe redirecting Response.Buffer = True %> BAD WORD FILTER CONFIGURATION

ADD NEW BAD WORDS TO LIST Type any words you would like to add to the Bad Word filter into the boxes below. Both the Bad Word and the Replace With boxes must be filled in for each new word. You can add between 1 and 3 new bad words at once. Bad Word Replace With

REMOVE BAD WORDS FROM LIST Place a tick in the checkbox for any bad words you wish to remove from the list then click on the Delete button. <% '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 %> <% 'Move to the next record in the database rsCommon.MoveNext 'Loop back round Loop 'Reset server variable rsCommon.Close Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %> DELETE BAD WORD REPLACE WITH "> <% = rsCommon("Smut") %> <% = rsCommon("Word_replace") %>