Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Samurai9

erro "Tipos Incompatíveis: 'Application'

Por , em ASP Clássico

Recommended Posts

Samurai9    0

Samurai9
Postado

Galera, por favor me ajudem! Sou novato no fórum mas semrpe acompanho o mesmo, porém tive de me cadastrar para criar este tópico porque pelo amor de Deus, não sei mais como fazer...

Já procurei na internet, e não há google ue dê jeito!

 

Eu tento rodar e da o tal erro do título:

 

Script error detected at line 19.

Source line: papo=application("papo") 'Lê a matriz com as últimas 20 mensagens

Description: Tipos incompatíveis: 'application'

 

Olha um script simples pra vcs verem:

 

ASP
<html>

 

<head>

<title>Bate Papo</title>

</head>

 

<body bgcolor="#FFFFFF">

 

<p align="center">

 

<%apelido=Server.HTMLEncode(trim(request.form("apelido"))) 'HTMLEncode evita que o usuário envie tags HTML ao digitar <

 

if apelido="" then apelido="Anonimo" 'Apelido default

 

imagem=request.form("imagem") 'URL da imagem

 

manterimg=request.form("manterimg") 'Flag que diz se a imagem deve persistir

 

mensagem=Server.HTMLEncode(trim(request.form("mensagem")))

papo=application("papo") 'Lê a matriz com as últimas 20 mensagens

 

on error resume next

papo(20)="teste" 'Teste para ver se o WebChat está sendo usado pela primeira vez

if err then

        dim papo()

        redim papo(20) 'Matriz com as últimas 20 mensagens

end if

on error goto 0

 

if mensagem<>"" then

        for f=18 to 0 step -1

                papo(f+1)=papo(f) 'Move cada mensagem uma posição acima na matriz

        next

 

        papo(0)="("+formatdatetime(now,vblongtime)+")<B> "+apelido+"</B> - " 'Inclúi data e apelido na mais nova mensagem

        if imagem<>"" then

                papo(0)=papo(0)+"<IMG SRC="+imagem+"> " 'Inclúi imagens

        end if

        papo(0)=papo(0)+mensagem 'Inclusão da mais nova mensagem na matriz

end if

 

application("papo")=papo 'Passa a matriz de volta para a variável de aplicação%></p>

 

<table border="0" cellspacing="0" width="100%" bgcolor="#C0C0C0">

        <tr>

                <td><form action="papo.asp" method="POST"

                name="formulario">

                        <p><font color="#000000" size="2" face="Arial"><strong>Apelido:</strong></font><font

                        color="#000000" size="2"><strong> <input type="text"

                        size="20" name="apelido" value="<%=apelido%>"><br>

                        </strong></font><font color="#000000" size="2"

                        face="Arial"><strong>Imagem (URL):</strong></font><font

                        color="#000000" size="2"><strong> <input type="text"

                        size="37" name="imagem"

                        value="<%if manterimg="ON" then response.write imagem%>"><!--webbot

                        bot="HTMLMarkup" startspan --><input type="checkbox" <%if manterimg="ON" then response.write "checked"%> name="manterimg" value="ON"><!--webbot

                        bot="HTMLMarkup" endspan --></strong></font><font

                        color="#000000" size="2" face="Arial"><strong>Manter

                        imagem<br>

                        Mensagem:</strong></font><font color="#000000"

                        size="2"><strong> </strong></font><font

                        color="#000000"><input type="text" size="46"

                        name="mensagem"></font><font color="#FFFFFF"><br>

                        <input type="submit" name="B1"

                        value="Enviar/Atualizar"></font></p>

                </form>

                </td>

        </tr>

</table>

 

<p align="center"><script language="JavaScript"><!--

document.formulario.mensagem.focus();

// --></script></p>

 

<p align="center"><%for f=0 to 19 'Loop por toda a matriz

        if session("ultima")=papo(f) and mostrouult<>true then

                mostrouult=true 'Flag que indica fim de novidades

                if f=0 then 'Se não houver nenhuma novidade, exibe mensagem%><font color="#FF0000" face="Arial">Nenhuma nova

mensagem</font><font color="#FF0000"><%       end if%></font></p>

 

<hr>

 

<p><%   end if

        response.write "<P>"+papo(f)+"</P>"+Chr(13)+chr(10) 'De qualquer maneira, exibe a mensagem

next

 

session("ultima")=papo(0) 'Grava a última mensagem exibida para poder dizer quais mensagens são novas%></p>

 

<p><%if not mostrouult then 'Se última mensagem não existir na matriz, exibe mensagem%><font color="#FF0000" face="Arial">Algumas mensagens novas

podem não terem sido mostradas. O sistema exibe apenas as

últimas 20 mensagens.</font><font color="#FF0000"><%end if

%></font></p>

 

<p>

<font size="2"><i>©1997 </i></font><a

href="mailto:marcomm@geocities.com"><font size="2"><i>Marco

Mugnatto Macedo</i></font></a> </p>

</body>

</html>

 

POR FAVOR GALERA, to crendo que não é na programação e sim em alguma configuração, putz tá phoda!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Samurai9    0

Samurai9
Postado

Ninguém? :mellow: É POR FAVOR com maiúsculas, rs!Preciso muito pessoal, esse script de chat é pra uma galerinha q vai fazer um concurso, então nós trocaríamos informações via net com esse pequeno e básico chat...Só não entendo porquê diabos o erro só acontece quando envolve-se o Application, tenho uns 10 scripts de chat diferentes, e TODOS que contém o Application dão erro.Os demais scripts, como Guestbook, News, etc, funcionam normalmenteAlguém tem idéia do que possa estar acontecendo?

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

o valor não é uma matriz?se for precisa definir a linha e coluna

você tem certeza que está alimentando o application?

Sem responder as perguntas que a gente faz fica dificil de te ajudar

Compartilhar este post

Link para o post
Compartilhar em outros sites

Samurai9    0

Samurai9
Postado

Não respondi porque simplesmente não sei heheheheColoquei o script praq rodar na net e deu certo, o problema deve estar no meu pc (alguma atualização, sei lá) ou no servidor (uso aquele Baby Web Server)

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito