Semplificare condizione if...then

[[trodat]]

Ciao, come posso semplificare un codice del tipo:

utente = (request.cookies("innovatel.it_accesso")("nome"))
if utente <> 22 and utente <> 80 and utente <> 81 and utente <> 79 and utente <> 76 and utente <> 77 and utente <> 73 and utente <> 49 and utente <> 43 and utente <> 50 and utente <> 53 and utente <> 54 and utente <> 55 and utente <> 56 and utente <> 57 and utente <> 58 and utente <> 59 and utente <> 60 and utente <> 64 and utente <> 61 and utente <> 62 and utente <> 63 and utente <> 65 and utente <> 66 and utente <> 67 and utente <> 68 and utente <> 69 and utente <> 71 and utente <> 72 then

[imente]

questo funziona altrettanto

utente = (request.cookies("innovatel.it_accesso")("nome")) 
Dim objRegExp
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "^(22|43|49|50|53|54|55|56|57|58|59|60|61|62|63|64|65|66|67|68|69|71|72|73|76|77|79|80|81)$" 

if not(objRegExp.Test(utente)) then
	response.write "OK"
end if

set objRegExp = Nothing

ma sinceramente non ne vedo il motivo...
non sarà bello ma quell'IF va benissimo... (e consuma meno risorse delle regexp :P)

al massimo puoi usare dei > e < per gli intervalli completi

utente = (request.cookies("innovatel.it_accesso")("nome")) 
if (utente <> 22 and utente <> 79 and utente <> 80 and utente <> 81 and utente <> 73 and utente <> 76 and utente <> 77 and utente <> 43 and utente <> 49 and utente <> 50 and utente <> 71 and utente <> 72) and (utente < 53 or utente > 69) then

in ogni caso ordina quei numeri in maniera decente