Chat

[_UsP_ 0]

E ae galera. Tipo primeira vez que eu to mexendo com global.asa saca?

 

Ai, tipo. Eu montei um aqui. So que ele nao roda.

 

 

Global.asa

Sub Session_OnEndApplication("n_guest") = Application("n_guest") - 1Application("nick") = replace(Application("nick"),session("nick"),"")session("logado") = falseSet FSO = server.CreateObject("Scripting.FileSystemObject")mensagem = "["&time()&"]"&" "&session("nick")&" "&"Saio do chat"caminho = server.MapPath("chat.txt")Set AbrirTxt = FSO.OpenTextFile (caminho, 1,false)TodasMensagens = AbrirText.ReadAll Set Txt = FSO.CreateTextFile(caminho, true)Txt.WriteLine(TodasMensagens)Txt.WriteLine(mensagem)Set FSO = nothingSet Txt = nothingEnd Sub

 

Me da um help ;) ae okz?

 

To aguardando :D fuiz.

[_UsP_ 0]

Pô galera, não é possivel que ningeum possa me ajudar . to aguardando ;)

[_UsP_ 0]

Alo.... não é possivel que ninguem possa me ajudar. :mellow:

[Marhault 1]

Ele deu algum erro?

[JucaMaster 0]

Pô galera, não é possivel que ningeum possa me ajudar . to aguardando ;)

qUAL O ERRO GERADO??? você NÃO INFORMOU!!! FALA AE PRA GENTE TE AJUDAR

[_UsP_ 0]

Juca MAster, se não dar erro. Você quer que eu post u q?????

[JucaMaster 0]

Então posta oq acontece na sua página....deve ter acontecido alguma coisa... ;)

[_UsP_ 0]

Tipo, vou explicar tudinho como eu quero. ok? ;)

 

Tipo.

Tenhum uma pagina logar.asp

 

Que ao ele se logar.

Cria 1 Application chamada nick

 

Essa application é formada assim:

 

if Application("nick") = "" thenApplication("nick") = session("nick")elseApplication("nick") = Application("nick") & "," & session("nick")end if