2 replies to this topic

[djmark]

Tipos incompatíveis: 'ParaUsuarios'
/chat4/Entrar.asp, line 35

  
<%
'Declaração de variáveis
Dim StrApelido, i, Cont

'Recebe o nome do usuário e limpa para evitar comados HTML
StrApelido = Server.HTMLEncode(Request.Form("Apelido"))

'Verifica se o nome foi enviado e se o usuário não está logado
If Len(StrApelido) = 0 and VarType(Session("Usuario")) = 0 Then Response.Redirect "default.asp"

'Trava a aplicação
Application.Lock 

'Recebe a matriz com nome de todos os usuários
Usuarios = Application("Usuarios")
Mensagens = Application("Mensagens")
ParaUsuario = Application("ParaUsuario")
Exclusiva = Application("Exclusiva")
DeUsuario = Application("DeUsuario")

'Verifica se o usuário já está na sala tentando atualizar a tela
If VarType(Session("Usuario")) = 0 Then 

'Verifica se o usuário está tentando clonar
For i=0 To 19
   If ParaUsuarios(i) = StrApelido Then Response.Redirect "default.asp"

a linha superior póssui um erro, mais nao sei qual? sera na declaracao de variaveis????

[Info_Tec]

Aqui: If ParaUsuarios(i) não seria If ParaUsuario(i)?

[djmark]

mudei isso mais continua dando o mesmo erro, nao sei quase nada de asp mais acho que pode ser a declaracao de uma matriz que deve ta faltando? pq ParaUsuarios(i), o citado ao lado é uma variavelda matriz mais o ParaUsuarios nao ta citado como variavel.

coloquei

Dim Usuarios(20)
Dim Mensagens(20)
Dim ParaUsuarios(20)
Dim Exclusiva(20)
Dim DeUsuario(20)

no lugar de:

Usuarios = Application("Usuarios")
Mensagens = Application("Mensagens")
ParaUsuario = Application("ParaUsuario")
Exclusiva = Application("Exclusiva")
DeUsuario = Application("DeUsuario")

e nao deu erro sera que isso ta certo ou vai fazer falta la na frente?

Edição feita por: LeoB, 01/07/2004, 18:24.