Almacenar un vector en Application!!!

[jotamarios]

Le he hecho un par de pruebas y estoy mas confundido aun :D

Borre el contenido de Application("usuarios") asignandole null.
Luego entre y el guarda lo que le digo, pero no lo ve como un array(use isarray(applcation("usuarios")). Y cuando intenta asignarle la variable de application("usuarios") a un vector me sale este error:
"

estoy en el else
contenido de application:
dad

Microsoft VBScript runtime error '800a000d'

Type mismatch
"
Lo que escribe es por este codigo:

dim shopper_email,shopper_password,uno
dim usuarios()

'Email
shopper_email = Request("shopper_email")

Application.Unlock


'Application("usuarios")=null
If Not IsArray(Application("usuarios"))Then
Response.Redirect("prueba.asp")
End If
If IsNull(Application("usuarios")) Then
ReDim usuarios(1)
usuarios(0)=shopper_email
Application("usuarios")=usuarios
Response.Write("<br>contenido de application:<br>"&Application("usuarios")(0))
Else
Response.Write("<br>estoy en el else")
Response.Write("<br>contenido de application:<br>"&Application("usuarios")(0))
Redim usuarios(1)
usuarios=Application("usuarios")
Response.Redirect("prueba.asp")
'Response.Write("<br>Ahora el valor de usuario es:"&Application("usuarios")(0))
End If
Application.Lock

Alguien que vea el error?? Gracias!