Tipos incompativeis usando array

[marlondesign 0]

E ai Galera, beleza??!!

 

Estou desenvolvendo um chat ultilizando global.asa e gostaria de saber o que pode estar errado na linha que esta acuzando:

 

erro:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis

/marlon/entrar.asp, line 10

 

 

la vai o codigo da pagina entrar.asp

 

ASP [/tr][tr]

<%

dim user, cor, userlist, cheia, existe, y

y=0

existe= "nao"

user= server.HTMLEncode(request.form("user"))

cor= server.HTMLEncode(request.Form("cor"))

numchar = len(user)'le a quantidade de caracteres, nao esta sendo usado aqui

session("apelido")= user

application.lock

userlist= application("usuarios")

for y=1 to 20

if user = userlist(y) then '**esta é a linha de erro**

response.redirect("default.asp?existe=sim")

existe= "sim"

exit for

end if

next

 

if existe <> "sim" then

for x=1 to 20

if userlist(x) = "" then

cheia= "nao"

userlist(x)= session("apelido")

exit for

else

cheia="sim"

end if

next

end if

application("usuarios")= userlist

application.UnLock

if cheia = "sim" then

response.redirect("default.asp?cheia=sim")

end if

%>

[/tr]

 

não sei o que faço mais... por favor se souberem, deem um help...

 

Ate mais..

[BigPaul 0]

Qual o codigo da apllication(usuarios)?