Ir para conteúdo

POWERED BY:

Arquivado

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

Thiago_ASP

chat

Por , em ASP Clássico

Recommended Posts

Thiago_ASP    0

Thiago_ASP
Postado

:D salve, salve galera... olha eu enchendo o saco de novo!!!

bem é o seguinte... achei um Script de Chat na Web... que quero colocar em meu site... mas parece que o código ta com problemas.... sempre que eu mando rodar aparece o Seguinte erro....

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis

/cHAT/gochat/frame.asp, line 15

 

 

segue o código abaixo....

 

 

 

 

<%

Dim a, b, c, d, t, logon, u, i, nome, p1, p2

nome = Request.Form("nome")

if nome = "" then

Response.Redirect("../default.asp")

end if

If Application("chatn") = 30 then

Response.Redirect("../default.asp?lotada=true")

End If

If Session("logon") = false then

'Entrou agora

'Adiciona usuario

'Procura uma vaga

a = Application("id01")

For i = 0 to 29

If a(i) = "" then exit for

next

Session("vaga") = i

a = Application("id01")

b = Application("nome01")

a(i) = Session.SessionID

b(i) = nome

p1 = "<font color=cyan>(" & FormatDateTime(now, 3) & ")</font> "

p2 = "<font color=white>" & nome & " entrou na sala...</font><br>"

logon = p1 & p2

Application.Lock

Application("id01") = a

Application("nome01") = b

Application.unlock

 

'Adiciona logon as 10 ultimas

u = Application("last01")

for i = 0 to 8

u(i) = u(i+1)

next

u(9) = logon

Application.Lock

Application("last01") = u

chatn = Application("chatn") + 1

Application("chatn") = chatn

Application.unlock

Session("logon") = true

 

'Avisa o restante dos usuarios que alguem entrou...

c = Application("msg01")

for i = 0 to 29

if i <> Session("vaga") Then

c(i) = c(i) & logon

End If

next

Application.lock

Application("msg01") = c

Application.unlock

End If

%>

<html>

 

<script language="javascript">

var docflag = new String("C")

 

 

function msgpost(msg) {

var destino = parent.frames[0].document

var as = unescape("%34")

if (docflag == "C") {

destino.write("<html><link rel='stylesheet' href='../style.css' type='text/css'>")

destino.write("<body topmargin=4 leftmargin=4 bgcolor='#3171AD' text='#FFFFFF'><p>")

docflag="O" }

destino.write(msg)

parent.frames[1].scroll(0,900000000)

}

</script>

 

<head>

<% Response.Write "<title>" & nome & " no Chat</title>" %>

 

</head>

 

<frameset framespacing="0" border="0" frameborder="0" rows="100%,0,80">

<frame name="fmsg" scrolling="yes" src="f_msg.asp">

<frame name="fproc" scrolling="no" noresize src="f_proc.asp">

<frame name="fpost" src="f_post.asp" scrolling="no" noresize>

<noframes>

<body>

 

<p>Esta página usa quadros mas seu navegador não aceita quadros.</p>

 

</body>

</noframes>

</frameset>

 

</html>

 

 

 

mais uma vez brigadu pela força pessoal...

Compartilhar este post

Link para o post
Compartilhar em outros sites

arr    0

arr
Postado

Qual o conteúdo/valor de Application("id01") ?É o seguinte, você está declarando "a" como uma variável simples e depois chamando como array "a(i)".Para trabalhar com array teria que declararDIM a(30)Tá meio confuso isso...

Compartilhar este post

Link para o post
Compartilhar em outros sites

meirelles    0

meirelles
Postado

você COLOCOU O ARQUIVO GLOBAL.ASA NO DIRETORIO RAIZ DO SITE?

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