Jump to content


Photo

Tipos Incompatíveis


  • Faça o login para participar
2 replies to this topic

#1 djmark

djmark

    Turista

  • Usuários
  • 28 posts
  • Sexo:Não informado
  • Localidade:Blumenau-SC
  • Interesses:musica, web designer

Posted 30/06/2004, 13:57

Tipo de erro:
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>&nbsp;<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>

::DJ Mark Stroke::
www.djmark.blig.com.br

#2 Info_Tec

Info_Tec

    Servo do DEUS VIVO!

  • Usuários
  • 398 posts
  • Sexo:Não informado
  • Localidade:Entre a cadeira e o teclado
  • Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 30/06/2004, 14:03

Cara, qd for assim ou marque a linha ou coloque 10 linhas acima da do erro.
A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.

#3 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 30/06/2004, 14:30

verifique o tipo de dados contido

aqui

Exclusiva(i+1) = Exclusiva(i)

preste atencao no erro <_<

qualquer coisa converta uma das variáveis usando as funcoes de cnvercao como cint e etc

use a documentacao que é fornecida aqui no forum
www.andrewsmedina.com.br




2 user(s) are reading this topic

0 membro(s), 2 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq