Gente deem uma olhada e me digam oq poss

[JucaMaster 0]

E aí galera!!!

 

Eu peguei um chat da internet que é muito bacana.É parecido com o do uol(tem até as caretinhas!!!), mas está dando um erro do tipo Type mysmatch

 

 

E o engraçado é que na minha máquina roda!!!! só quando eu publico que naum!!!

 

Super chat para análise do erro

 

 

Quem puder me ajudar agradeço e quem naum puder tb obrigado msm assim :D

 

 

Falow

 

Juliano

[Salgado 4]

Poste até a linha 45 do arquivo entrar.asp

[JucaMaster 0]

<%Dim StrApelido, i, Contsl01_StrApelido = Server.HTMLEncode(Request("Apelido"))Session("careta") = Request.Querystring("careta")Session("cor") = Request("optcor") If Session("careta") = "nao" Then strCareta = "" else strCareta = "<img src=caretas/" & Session("careta") & ".gif>" end ifSelect Case Session("cor") Case "Azul" Session("cor") = "#0000FF" Case "Vermelho" Session("cor") = "#FF0000" Case "Preto" Session("cor") = "#000000" Case "Verde" Session("cor") = "#339933" Case "Roxo" Session("cor") = "#9900CC" Case "Laranja" Session("cor") = "#FF9900" End SelectApplication.Lock sl01_Usuarios = Application("sl01_Usuarios")sl01_Mensagens = Application("sl01_Mensagens")sl01_ParaUsuario = Application("sl01_ParaUsuario")sl01_Exclusiva = Application("sl01_Exclusiva")sl01_DeUsuario = Application("sl01_DeUsuario")If VarType(Session("sl01_Usuario")) = 0 Then For i=0 To 19 If sl01_Usuarios(i) = sl01_StrApelido Then Response.Redirect "descarregar.asp"NextFor i=1 To 19 If Len(sl01_Usuarios(i)) < 1 Then sl01_Usuarios(i) = sl01_StrApelido Session("sl01_Usuario") = i Exit For End ifNext sl01_Usuarios(0) = "Todos"For i=18 To 0 Step -1 sl01_Mensagens(i+1) = sl01_Mensagens(i) sl01_Exclusiva(i+1) = sl01_Exclusiva(i) sl01_ParaUsuario(i+1) = sl01_ParaUsuario(i) sl01_DeUsuario(i+1) = sl01_DeUsuario(i)Nextsl01_StrNovaMensagem = "<font size=1 face=verdana>("+formatdatetime(now,vblongtime)+")</font> " & strCareta & " <B><font face=verdana size=2 color=" & Session("cor") & "> " & sl01_Usuarios(Session("sl01_Usuario")) & ": </b></font><font face=verdana size=1> entra na sala...</font>"sl01_StrNovaMensagem = sl01_StrNovaMensagem sl01_Mensagens(0) = sl01_StrNovaMensagemsl01_ParaUsuario(0) = 0sl01_DeUsuario(0) = Session("sl01_Usuario")sl01_Exclusiva(0) = 0Application("sl01_Mensagens") = sl01_MensagensApplication("sl01_Exclusiva") = sl01_ExclusivaApplication("sl01_ParaUsuario") = sl01_ParaUsuarioApplication("sl01_DeUsuario") = sl01_DeUsuarioApplication("sl01_Usuarios") = sl01_UsuariosEnd IfApplication.UnLock %>