Evitar que un usuario ingrese más de una vez

[masterboy6666]

Hola, por que en lugar de utilizar una base de datos, por que no utilizan una variable del tipo aplicacion, por ejemplo:

Sub Application_OnStart
'==Visual InterDev Generated - startspan==
'Iniciamos Arreglo de usuarios
Dim Arreglo(1)
Arreglo(0) = "Dummy"
Application("UsuariosAutenticados") = Arreglo
End Sub

Posteriormente en el login.asp (o la pagina que utilizan para autenticar)
'Despues de autenticar
Dim ArregloUsuario
Dim UserLogon
ArregloUsuario = Application("UsuariosAutenticados")'Cargamos nuestro arreglo
UserLogon = Filter(ArrayUser,NombreUsuario) 'Buscamos al usuario
If UBound(UserLogon) > -1 Then
'El usuario ya existe...... no lo dejamos entrar.
Else
'Tenemos que agregar al usuario a nuestro arreglo....
ReDim Preserve ArregloUsuario(UBound(ArregloUsuario) + 1)
ArregloUsuario(UBound(ArregloUsuario)) = NombreUsuario
Application.Lock
Application("UsuariosAutenticados") = ArregloUsuario
Application.UnLock
End if

Es lo que se me ocurre a mi.....