Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis: 'Exclusiva'
/chat4/Entrar.asp, line 54
<%@ 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, Usuario(20)
'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 Usuario(i) = 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(Usuario(i)) < 1 Then
'Grava o Nome do usuário na matriz
Usuario(i) = StrApelido
'Grava o índice da matriz na variável de seção
i = i+1
Exit For
End if
Next
Usuario(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="Menu.asp" NAME="Menu" SCROLLING="no" NORESIZE MARGINWIDTH="20" MARGINHEIGHT="5">
<FRAME src="Recarga.asp" NAME="Recarga" SCROLLING="no" NORESIZE>
</FRAMESET><noframes></noframes>
</HTML>
_
