<% Application.Lock sl01_StrMensagem = Request.Form("Mensagem") strImagem = Request.Form("imagem") sl01_StrMensagem = MostrarImagem(sl01_StrMensagem) IntAcao = Request.Form("Acao") IntUsuario = Request.Form("Usuario") IntSigilo = Request.Form("Sigilo") StrBotaoX = Request.Form("Botao.X") StrBotaoY = Request.Form("Botao.Y") sl01_Mensagens = Application("sl01_Mensagens") sl01_ParaUsuario = Application("sl01_ParaUsuario") sl01_Exclusiva = Application("sl01_Exclusiva") sl01_DeUsuario = Application("sl01_DeUsuario") sl01_Usuarios = Application("sl01_Usuarios") sl01_StrUsuario = sl01_Usuarios(Session("sl01_Usuario")) lenStrUsuario = len(sl01_StrUsuario) lenStrUsuario = lenStrUsuario * 3 If Session("careta") = "nao" Then strCareta = "" else strCareta = "" end if If Acao(intAcao) = "grita com" then strAG = "" strFG = "" else strAG = "" strFG = "" end if If StrBotaoX <> 0 and StrBotaoY <> 0 Then StrSair = "top.location.href =" & Chr(34) & "descarregar.asp" & Chr(34) End if If Int(IntSigilo) = 1 then StrSigilo = " reservadamente" If sl01_StrMensagem <> "" Then 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_Mensagens(0) = sl01_StrNovaMensagem & "" sl01_ParaUsuario(0) = IntUsuario sl01_DeUsuario(0) = Session("sl01_Usuario") sl01_Exclusiva(0) = Int(IntSigilo) If sl01_Usuarios(IntUsuario) = "" Then IntUsuario = 0 If strImagem = "vazio" then 'sem imagem If Int(intSigilo) = 1 then 'reservado sem imagem sl01_StrNovaMensagem = "
("+formatdatetime(now,vblongtime)+") " & strCareta & "" & sl01_Usuarios(Session("sl01_Usuario")) & " " & Acao(IntAcao) & " " & sl01_Usuarios(IntUsuario) & "" & StrSigilo & " - " & strAG sl01_StrNovaMensagem = sl01_StrNovaMensagem & sl01_StrMensagem sl01_StrNovaMensagem = sl01_StrNovaMensagem & strFG & "
" else 'aberto sem imagem sl01_StrNovaMensagem = "("+formatdatetime(now,vblongtime)+") " & strCareta & " " & sl01_Usuarios(Session("sl01_Usuario")) & " " & Acao(IntAcao) & " " & sl01_Usuarios(IntUsuario) & "" & StrSigilo & " - " & strAG sl01_StrNovaMensagem = sl01_StrNovaMensagem & sl01_StrMensagem & strFG end if sl01_Mensagens(0) = sl01_StrNovaMensagem & "" sl01_ParaUsuario(0) = IntUsuario sl01_DeUsuario(0) = Session("sl01_Usuario") sl01_Exclusiva(0) = Int(IntSigilo) else 'com imagem If Int(intSigilo) = 1 then 'reservado com imagem sl01_StrNovaMensagem = "
("+formatdatetime(now,vblongtime)+") " & strCareta & " " & sl01_Usuarios(Session("sl01_Usuario")) & " " & Acao(IntAcao) & " " & sl01_Usuarios(IntUsuario) & "" & StrSigilo & " - " & strAG & "" sl01_StrNovaMensagem = sl01_StrNovaMensagem & sl01_StrMensagem sl01_StrNovaMensagem = sl01_StrNovaMensagem & strFG & "
" else 'aberto com imagem sl01_StrNovaMensagem = "("+formatdatetime(now,vblongtime)+") " & strCareta & "" & sl01_Usuarios(Session("sl01_Usuario")) & " " & Acao(IntAcao) & " " & sl01_Usuarios(IntUsuario) & "" & StrSigilo & " - " & strAG & " " sl01_StrNovaMensagem = sl01_StrNovaMensagem & sl01_StrMensagem & strAG end if sl01_Mensagens(0) = sl01_StrNovaMensagem & "" sl01_ParaUsuario(0) = IntUsuario sl01_DeUsuario(0) = Session("sl01_Usuario") sl01_Exclusiva(0) = Int(IntSigilo) End if End if StrQuebra = "
 
" For i=0 To 19 If sl01_Mensagens(i) = Session("sl01_Ultima") Then Exit For 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) = 0 then StrNovas = StrNovas & StrQuebra & sl01_Mensagens(i) End if Next Session("sl01_Ultima") = sl01_Mensagens(0) sl01_Usuarios(0) = "Todos" 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 For i=0 to 19 If Len(sl01_Usuarios(i)) > 0 And Int(Session("sl01_Usuario")) <> i Then StrLista = StrLista & "