<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="common.asp" -->
<%
'Set the response buffer to true as we maybe redirecting
Response.Buffer = True

'Dimension variables
Dim iaryBadWordID	'Array to hold the ID number for each comment to be deleted

'Run through till all checked bad words are deleted
For each iaryBadWordID in Request.Form("chkWordID")
	'Initalise the strSQL variable with an SQL statement
	strSQL = "DELETE FROM " & strDbTable & "Smut WHERE (ID_no ="  & CInt(iaryBadWordID) & ");"
	'Write the updated date of last post to the database
	adoCon.Execute(strSQL)	
Next
'Reset server variable
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing
'Return to the bad word admin page
Response.Redirect "bad_word_filter_configure.asp"
%>