Ir para conteúdo

POWERED BY:

Arquivado

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

BR_code

tipos incompatíveis... alguem pode dar uma mãozinha ?!

Por , em ASP Clássico

Recommended Posts

BR_code    0

BR_code
Postado

Seguinte galera, novato em asp ainda... peguei o cód de um chat ... é simples, nao precisa nem ser cadastrado ... ele só pega o nick q o usuário digita e checa se a sala ta cheia, ou valida o usuário criando as sessões... o problema é q tanto no FF quanto no IE , o erro é na linha 15 ... tipos incompatíveis... ??? juro q nao entendi .. alguem pode ajudar ?!

 

<%Dim a, b, c, d, t, logon, u, i, nome, p1, p2nome = Request.Form("nome")if nome = "" then	Response.Redirect("../default.asp")end ifIf Application("chatn") = 30 then	Response.Redirect("../default.asp?lotada=true")End IfIf 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		'<<< a famosa linha 15 ! afff 	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

vlw galera, aguardo o help de você's ! http://forum.imasters.com.br/public/style_emoticons/default/natal_smile.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Felipe Bellé    0

Felipe Bellé
Postado

Na verdade, ele esta comparando numero com string.Não sei se funcionaria mas tenta assim : if cstr(a(i)) = "" then exit forNão tenho a MINIMA idéia se isso iria funcionar, mas tenta ^^Transformando o a(i) em string, ele iria comprar com "" e assim deixaria somente o i normal passar! Creio =p

Compartilhar este post

Link para o post
Compartilhar em outros sites

jothaz    1

jothaz
Postado

continua dando erro galera ... =(

Execute o seguite código e poste o resultado aqui:
response.write  join(a,";")

Compartilhar este post

Link para o post
Compartilhar em outros sites

BR_code    0

BR_code
Postado

aff.. nao deu nada... bem, de qq forma vou postar os códigos inteiros aki ...

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN"><html><head><title>GO - Chat</title><link rel="stylesheet" href="style.css" type="text/css"><script language="JavaScript">function validate(form) {	if (form.elements[0].value=="") {		alert('Não vai colocar o apelido?')		form.elements[0].focus()		return false	}	return true}</script></head><body topmargin="4" leftmargin="4" bgcolor="#3171AD" text="#FFFFFF"><h1>Go - Chat!</h1>Bem-vindo ao Chat Temático do GO!<br><br><%IF Request.QueryString("lotada") = "true" then	Response.Write "<b>Você tentou entrar em uma sala lotada!!!!</b><br><br>"End If%><form method="POST" action="../frame.asp" onsubmit="return validate(this)"><table border="0">  <tr>	<td><input type="text" name="nome" size="20"></td>	<td><input type="image" src="s_gif/pegada.gif" name="B1" alt="Entrar no chat" style="border-style: none"></td>  </tr></table></form></body></html>

esse o usuário entra com o nick

 

essa abaixo monta as seções ...

 

<%Dim a, b, c, d, t, logon, u, i, nome, p1, p2nome = Request.Form("nome")if nome = "" then	Response.Redirect("../default.asp")end ifIf Application("chatn") = 30 then	Response.Redirect("../default.asp?lotada=true")End IfIf Session("logon") = false then										'Entrou agora	'Adiciona usuario	'Procura uma vaga	a = Application("id01")	For i = 0 to 29	'For i = cint(0) to cint(29)		If a(i) = "" then exit for		'If cstr(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.unlockEnd If%><html><script language="javascript">var docflag = new String("C")function msgpost(msg) {var destino = parent.frames[0].documentvar 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>

vlw aê gente ..

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