mah guarda, è tutto sbagliato direi

codice:
dim user, password, blacklist
blacklist=array(...)

user = request.Form..
password = request.form..

for each blk in blacklist

if instr(user,blk)<>0 or instr(password,blk)<> then

response.redirect ..

end if

next

set rs = conn.execute("select .. ")

if not rs.eof then

'loggo utente

else

response.redirect ("utente_errato")

end if