Iverter ordem de mensagens

[carolina 0]

Caros amigos,

 

Preciso da ajuda de vocês.

 

Estou com um script de chat e preciso que as novas mensagens enviadas apareçam abaixo das que já foram enviadas. No momento as novas mensagens enviadas estão sendo mostradas acima das que já haviam sido enviadas.

 

Estou inserindo o código abaixo. Já tentei alterar e não obtive sucesso.

 

Dim i, text

Application.Lock
' move all messages one item down in queue
For i = MESSAGES To 2 Step -1
	Application("chatline_" & i) = Application("chatline_" & i-1)
Next
' build new message
		
text = "<tr>" & _
"<td nowrap align='right' valign='top' class='Name'>" & chatName & "<img src='images/Chatter.gif'></td>" & _
"<td class='Message' align='left' width='100%'>" & textMessage & "</td>" & _
"</tr>" & vbCrLf
' add message as first message in queue

Application("chatLine_1") = text
' update users timestamp
Application.StaticObjects.Item("ASPChatTime").Item(ChatID) = CStr(Now())
Application.UnLock

 

Espero que possam me ajudar.

 

Desde já agradeço.

[jothaz 1]

Este código que você inseriu é o original ou você já alterou alguma coisa nele?

[carolina 0]

Olá!

 

Este é o original.

[jothaz 1]

Fica compliado dar opinião sem ter acesso a aplicação.

 

Mas vamos tentar entender o que acontece.

 

Coloque um response.write para sabermos o conteúdo das variáveis:

<%
Dim i, text

Application.Lock
' move all messages one item down in queue

response.write "MESSAGES = " & MESSAGES & "<br>"

For i = MESSAGES To 2 Step -1
 	Application("chatline_" & i) = Application("chatline_" & i-1)
Next
%>

E post o resultado.

[carolina 0]

Dá sempre MESSAGES = 25

[jothaz 1]

carolina,

 

Pelo que entendi 25 é o número máximo de menssagens na tela.

 

Salve o código original e vamos tentar alterá-lo assim:

<%
Dim i, text

Application.Lock
' move all messages one item down in queue


For i = 2 to MESSAGES 
 Application("chatline_" & i) = Application("chatline_" & i+1)
Next

..............
.............resto do código
%>

Isto é só um teste e pode zonear tudo por isso faça um backup do original.

 

Execute esta alteração e verifique o que acontece.