<% 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 = "
 
" End if Next Session("sl01_Ultima") = sl01_Mensagens(0) Application.UnLock %>