Lo script è interessante solo che fallisce lo scopo nel caso di due utenti che hanno un nome compreso nell'altro, ad es. giancarlo e carlo. Se è già presente in application("users") l'utente giancarlo, quando il sistema verificherà la presenza del nuovo utente carlo fallirà miseramente; ciò è ovviamente dovuto al risultato della funzione instr...
Per risolvere il problema:

InStr(1, Application("Users"), Session("user") & "|" )

sostituire con:

InStr(1, Application("Users"), "|" & Session("user") & "|" )

e nella Sub Application_OnStart

inizializzare così:

Application("Users") = "|"

Non ho provato ma sono sicuro che così funziona.

Roldy