Conflito No Global.asa

[PhoEniXFirE 0]

Estou com dois global.asa, o primeiro eh de um contador de internautas q estão online o outro eh de um chat.

 

Mas qndo junto os dois, tenho um problema, pois rolagem automárica do chat n funciona, apenas funciona para o internauta q abre o chat, o primeiro internauta a entrar no batepapo, o restante fica sem a rolagem automática, mesmo q todos os usuários abandonem o chat e reste apenas um, ou então, entre um depois com o chat vazio, a rolagem n funciona, apenas quando eu mexo no global.asa, q eh qndo o chat eh reiniciado. o 3º code eh o global.asa com usuarios + chat.

 

<script language=VBScript RUNAT=Server>Sub Application_OnStart	Application.Lock	Application("usu_corrente") = 0	Application.UnLockEnd subSub Session_OnStart	Application.Lock	Application("usu_corrente") = Application("usu_corrente") + 1	Application.UnLock   Application.Lock    Application("Contador") = Application("Contador") + 1   Application.UnLock    Session.Timeout = 1End SubSub Session_OnEnd	Application.Lock	Application("usu_corrente") = Application("usu_corrente") - 1	Application.UnLockend sub</SCRIPT>

Global.asa do batepapo:

 

<script language=VBScript RUNAT=Server>Application("titulo") = "Bate-Papo - euclidesdacunha.com"Application("fundochat") = "fundo.jpg"Application("tarja_r") = "#F7FFEA"	If Session("careta") = "nao" Then  strCareta = ""	else  strCareta = "<img src=caretas/" & Session("careta") & ".gif>"	end ifSub Application_OnStart   Dim sl01_Usuarios(20)     Dim sl01_Mensagens(20)   Dim sl01_UltimaUsuarios(20)   Dim sl01_ParaUsuario(20)   Dim sl01_Exclusiva(20)   Dim sl01_DeUsuario(20)       sl01_Mensagens(0) = "<center><font color=#003366 size=3 face=arial><b>Bate-papo em fase de teste!</b></font></center>"   sl01_Exclusiva(0) = 0   sl01_ParaUsuario(0) = 0   sl01_DeUsuario(0) = 0   sl01_Usuarios(0) = "Todos"   For i=1 To 19   sl01_Mensagens(i) = ""   sl01_Exclusiva(i) = 0   sl01_ParaUsuario(i) = 0   sl01_DeUsuario(i) = 0   sl01_Usuarios(i) = ""      Next   Application("sl01_Exclusiva") = sl01_Exclusiva   Application("sl01_ParaUsuario") = sl01_ParaUsuario   Application("sl01_DeUsuario") = sl01_DeUsuario   Application("sl01_UltimaUsuarios") = sl01_UltimaUsuarios   Application("sl01_Usuarios") = sl01_Usuarios   Application("sl01_Mensagens") = sl01_Mensagens   'end sala01End subSub Session_OnStart   Session.Timeout = 1   Session("rolagem") = "checked"End SubSub Session_OnEnd'begin sala01   If Session("sl01_Usuario") <> 0 Then   Application.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")   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)   Next   sl01_StrNovaMensagem = "<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><font size=1 face=arial>("+formatdatetime(now,vblongtime)+")</font>" & strCareta & "<font size=2 face=arial color=" & Session("cor") & "><B> " & sl01_Usuarios(Session("sl01_Usuario")) & ": </b></font><font color=#FF0000 size=2 face=arial><b> sai da sala...</font></td></tr></table>"   sl01_StrNovaMensagem = sl01_StrNovaMensagem    sl01_Mensagens(0) = sl01_StrNovaMensagem    sl01_ParaUsuario(0) = 0   sl01_DeUsuario(0) = Session("sl01_Usuario")   sl01_Exclusiva(0) = 0   sl01_Usuarios(Session("sl01_Usuario")) = ""   'Retorna a matriz   Application("sl01_Mensagens") = sl01_Mensagens   Application("sl01_Exclusiva") = sl01_Exclusiva   Application("sl01_ParaUsuario") = sl01_ParaUsuario   Application("sl01_DeUsuario") = sl01_DeUsuario   Application("sl01_Usuarios") = sl01_Usuarios   Application.UnLock    End if'end sala01end sub</SCRIPT>

Global.asa com usuarios online + chat:

<script language=VBScript RUNAT=Server>' ========Batepapo==============Application("titulo") = "Bate-Papo - euclidesdacunha.com"Application("fundochat") = "fundo.jpg"Application("tarja_r") = "#F7FFEA"	If Session("careta") = "nao" Then  strCareta = ""	else  strCareta = "<img src=caretas/" & Session("careta") & ".gif>"	end if' ========Batepapo-Final=============Sub Application_OnStart' ========Usuários==============	Application.Lock	Application("usu_corrente") = 0	Application.UnLock' ========Batepapo==============   Dim sl01_Usuarios(20)     Dim sl01_Mensagens(20)   Dim sl01_UltimaUsuarios(20)   Dim sl01_ParaUsuario(20)   Dim sl01_Exclusiva(20)   Dim sl01_DeUsuario(20)       sl01_Mensagens(0) = "<center><font color=#003366 size=3 face=arial><b>Bate-papo em fase de teste!</b></font></center>"   sl01_Exclusiva(0) = 0   sl01_ParaUsuario(0) = 0   sl01_DeUsuario(0) = 0   sl01_Usuarios(0) = "Todos"   For i=1 To 19   sl01_Mensagens(i) = ""   sl01_Exclusiva(i) = 0   sl01_ParaUsuario(i) = 0   sl01_DeUsuario(i) = 0   sl01_Usuarios(i) = ""      Next   Application("sl01_Exclusiva") = sl01_Exclusiva   Application("sl01_ParaUsuario") = sl01_ParaUsuario   Application("sl01_DeUsuario") = sl01_DeUsuario   Application("sl01_UltimaUsuarios") = sl01_UltimaUsuarios   Application("sl01_Usuarios") = sl01_Usuarios   Application("sl01_Mensagens") = sl01_Mensagens   'end sala01End sub'======================Sub Session_OnStart' ========Usuários==============	Application.Lock	Application("usu_corrente") = Application("usu_corrente") + 1	Application.UnLock   Application.Lock    Application("Contador") = Application("Contador") + 1   Application.UnLock    Session.Timeout = 1' ========Batepapo==============   Session.Timeout = 1   Session("rolagem") = "checked"End SubSub Session_OnEnd' ========Usuários==============	Application.Lock	Application("usu_corrente") = Application("usu_corrente") - 1	Application.UnLock' ========Batepapo=============='begin sala01   If Session("sl01_Usuario") <> 0 Then   Application.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")   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)   Next   sl01_StrNovaMensagem = "<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><font size=1 face=arial>("+formatdatetime(now,vblongtime)+")</font>" & strCareta & "<font size=2 face=arial color=" & Session("cor") & "><B> " & sl01_Usuarios(Session("sl01_Usuario")) & ": </b></font><font color=#FF0000 size=2 face=arial><b> sai da sala...</font></td></tr></table>"   sl01_StrNovaMensagem = sl01_StrNovaMensagem    sl01_Mensagens(0) = sl01_StrNovaMensagem    sl01_ParaUsuario(0) = 0   sl01_DeUsuario(0) = Session("sl01_Usuario")   sl01_Exclusiva(0) = 0   sl01_Usuarios(Session("sl01_Usuario")) = ""   'Retorna a matriz   Application("sl01_Mensagens") = sl01_Mensagens   Application("sl01_Exclusiva") = sl01_Exclusiva   Application("sl01_ParaUsuario") = sl01_ParaUsuario   Application("sl01_DeUsuario") = sl01_DeUsuario   Application("sl01_Usuarios") = sl01_Usuarios   Application.UnLock    End if'end sala01end sub</SCRIPT>

Como posso fazer para n ter mais este problema?

[Mário Monteiro 179]

cara não mexo muito com global, mas tenta desploquear a application só no final mesmo, ou seja poe esta linhaApplication.UnLockdepois dos codigos do chat

[PhoEniXFirE 0]

Infelizmente n funcionou, mas eu estava dando uma olhada no arquivo MENSAGENS.ASP do chat e achei q este código abaixo, se fosse mudado p o meu caso, n haveria mais este problema, pq o q acontece eh, apenas o primeiro usuário, o q abre o chat eh q a rolagem automática, apartir dai n, os outros usuários ficam com esta função de funcionar.

 

Application.Lock sl01_Mensagens = Application("sl01_Mensagens")sl01_Exclusiva = Application("sl01_Exclusiva")sl01_ParaUsuario = Application("sl01_ParaUsuario")sl01_DeUsuario = Application("sl01_DeUsuario")for i=19 to 0 Step -1   If sl01_Exclusiva(i) < 1 Or Int(sl01_DeUsuario(i)) = Int(Session("sl01_Usuario")) or Int(sl01_ParaUsuario(i)) = Int(Session("sl01_Usuario")) or sl01_ParaUsuario(i) = 19 then      If sl01_Mensagens(i) <> "" then Response.Write StrMarca & sl01_Mensagens(i)      StrMarca = "<br> <br>"   End ifNextSession("sl01_Ultima") = sl01_Mensagens(0)Application.UnLock