Vendo se ter caracteres invalidos numa string sem RegExp

[ursolouco]

Hum...

Vendo se ter caracteres invalidos numa string sem RegExp!!

OBS: para verificar mais caracteres, basta adiciona-los na variavel 'Invalido'

<%
 Result = Array()

 Palavra = "Sport Club Corinthians Paulista %"

 Invalido = "!,@,#,$,%,¨,&,*,(,),_,+,},{,^,?,:,>,|,Ç,ç,',[,],},{"

 vInvalido = Split(Invalido,",")

 Contador = 0

 For I = LBound(vInvalido) to UBound(vInvalido)
	Contador = Contador + 1
	Redim Preserve Result(Contador)
	Result(i) = Instr(Palavra, vInvalido(i))
 Next

 For I = 0 to UBound(Result)
  If Result(i)>0 Then
	Response.Write("Localizado o Caractere ")
	Response.Write("<b>"& "'" & vInvalido(i) & "'" & "</b>")
	Response.Write(" considerado invalido para o sistema.")
  End If
 Next
%>