Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis: 'Usuarios'
/chatmaestri/Entrar.asp, line 35
<%@ Language=VBScript %> <%Response.Buffer=true%> <% Response.CacheControl = "no-cache" Response.AddHeader "pragma", "no-cache" Response.Expires = -1 %> <% '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 CStr(Usuarios(i)) = CStr(StrApelido) Then Response.Redirect "default.asp" Next 'Varre a matriz de usuários para encontrar uma variável vazia For i=1 To 19 If Len(Usuarios(i)) < 1 Then 'Grava o Nome do usuário na matriz Usuarios(i) = StrApelido 'Grava o índice da matriz na variável de seção Session("Usuario") = i Exit For End if Next Usuarios(0) = "Todos" 'Move cada mensagem uma posição acima na matriz para incluir a mais nova mensagem For i=18 To 0 Step -1 Mensagens(i+1) = Mensagens(i) Exclusiva(i+1) = Exclusiva(i) ParaUsuario(i+1) = ParaUsuario(i) DeUsuario(i+1) = DeUsuario(i) Next 'Cria a formatação da nova mensagem StrNovaMensagem = "<font color='#FF0000' face='Arial' size='1'>("+formatdatetime(now,vblongtime)+")</font> <B><font color='#FF0000' face='Arial' size='2'>" & Usuarios(Session("Usuario")) & "</b> entra na Sala</font>" StrNovaMensagem = StrNovaMensagem 'Retorna a mensagem para a matriz e configura para que todos vejam Mensagens(0) = StrNovaMensagem ParaUsuario(0) = 0 DeUsuario(0) = Session("Usuario") Exclusiva(0) = 0 'Retorna a matriz Application("Mensagens") = Mensagens Application("Exclusiva") = Exclusiva Application("ParaUsuario") = ParaUsuario Application("DeUsuario") = DeUsuario Application("Usuarios") = Usuarios End If 'Destrava a aplicação Application.UnLock %> <HTML> <HEAD> <TITLE>Chat - Programadores</TITLE> <script language="JavaScript"> function click() { if (event.button==2) { alert('Todos os Direitos reservados a ShopMedia') } } document.onmousedown=click </script> </HEAD> <FRAMESET ROWS="60,*,92,1" FRAMESPACING="0" border="false" frameborder="0"> <FRAME NAME="Titulo" SRC="Titulo.asp" SCROLLING="no" NORESIZE MARGINHEIGHT="10" MARGINWIDTH="50"> <FRAME NAME="Mensagens" SRC="Mensagens.asp" FRAMESPACING="0" MARGINHEIGHT="15" MARGINWIDTH="20" scrolling="auto"> <FRAME src="UntitledFrame-1" NAME="Menu" SCROLLING="no" NORESIZE MARGINWIDTH="20" MARGINHEIGHT="5"> <FRAME src="UntitledFrame-2" NAME="Recarga" SCROLLING="no" NORESIZE> </FRAMESET><noframes></noframes> </HTML>
Edição feita por: djmark, 30/06/2004, 13:29.