Bueno, siguiendo tu lógica yo lo hubiera hecho así:
Código:
<%
carValidos="abcdefghijklmnñopqrstuvwxyz0123456789&-_$@="
Cadena = "Esta cadena es solo para probar"
BanOk = True
For i=1 to Len(Cadena)
if InStr(carValidos, LCase(MID(Cadena,i,1))) = 0 Then
BanOk = False
Exit For
End if
Next
if BanOk Then response.Write "Ok" Else response.write "No Ok" End If
%>
Pero claro que de ser posible, mejor deberías usar
expresiones regulares (no se por qué exactamente, pero se recomienda
.