Spärra vissa namn

arr = array("Fula", "Ord")
usr = request.form("username")

for i = 0 to ubound(arr)
    if instr(1, usr, arr(i), 1) > 0 then
	' Användarnamnet innehåller "Fula" eller "Ord" (case insensitive)
	exit for
    end if
next

Samma sak med en annan metod :)

function HasBadUsername( strUsername )
  dim objRX
  set objRX = new RegExp

  strPattern = "Fula|ord|som|inte|får|vara|med"

  objRX.IgnoreCase = true
  objRX.Global = true
  objRX.Pattern = strPattern

  HasBadUsername = objRX.Test( strUsername )
end function

if( HasBadUsername( "Fulaord" ) ) then
  [blue]' icke tillåtet[/blue]
end if

Men det känns onödigt att sätta Global = true när du använder metoden Test(), eftersom det räcker med en träff för att användarnamnet skall vara ogiltigt.

Tjena!
Använda mig av de som Peter S föreslog men jag får ett felmess

Type mismatch: 'namn'

arr = array("Lunarstorm", "Playahead")
namn = request.form("namn")

for i = 0 to ubound(arr)
    if instr(namn, arr(i), 1) > 0 then
	response.Redirect("http://www.aftonbladet.se")
	exit for
    end if
next

Kan det vara att namn inte innehåller någon data?
namn = request.form("namn") &""

namn innehåller data.. samma variabel som när jag lagrar den i databasen och då funkar de kanon..

Vilken rad är det den ger fel på? är det i for satsen?

jag får fel på rad:

    if instr(namn, arr(i), 1) > 0 then

vad hände om du skriver response.write namn

Hm, vi måste ange ett värde för start-parametern som första argument om det fjärde compare är specificerat. Så

if instr(1, namn, arr(i), 1) > 0 then