Save following as dbs_banmail.asp and run from Admin:

Banned Email 1.0

[DROP]
BANNED
[END]

[CREATE]
BANNED

BANNED#VARCHAR(75)###
[END]

Next, in "register.asp", look for the following lines (appx 406-409 after security fixes):

			if Request.Form("Email") <> Request.Form("Email3") then
				Err_Msg = Err_Msg & "<li>Your E-mail Addresses didn't match.</li>"
			end if
		end if


After them, insert the following:


		strSql="SELECT BANNED FROM " & strTablePrefix & "BANNED"
		set rsMailCheck=my_Conn.Execute(strSql)
		if not rsMailCheck.EOF then
			rsMailCheck.MoveFirst
			do until rsMailCheck.EOF
				if Request.Form("Email") = rsMailCheck("Banned") then
					'	Banned Account
					Err_Msg = Err_Msg & "<li>E-mail Address is Banned on this Server.</li>"
				end if
				rsMailCheck.MoveNext
			loop
			rsMailCheck.Close
		end if
		set rsMailCheck=Nothing


Finally, in "admin_accounts_pendng.asp", look for the following line (appx 187):

elseif strAction = "delete" then

After it, insert the following:


	strSql = "SELECT M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS_PENDING WHERE M_STATUS = 0 AND M_LEVEL = -1"
	set rsBanned = my_Conn.Execute(strSql)
	if not rsBanned.EOF then
		rsBanned.MoveFirst
		do until rsBanned.EOF
			strSql = "INSERT INTO " & strTablePrefis & "BANNED (BANNED) VALUES ('" & rsBanned("M_EMAIL") & "')"
			rsFinished=my_Conn.Execute(strSql)
			rsBanned.MoveNext
		loop
		rsBanned.Close
	end if
	set rsBanned=Nothing