Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif
Pessoal,
Tenho um fórum em uma intranet que usa o banco de dados do Access para guardar seus registros. O banco tem o registro de cada usuário, mas o problema é que um usuário pode enviar apenas uma mensagem para outro usuário. Consegui resolver a grosso modo como uma pessoa enviar para todas do fórum.
No banco criei um usuário genérico chamdo Todos. Quando alguem envia um recado fica registrado no banco o user do destinatário que é utilizado para listar os meus recados. O código ficou assim:
Dim Rs_recado
Dim Rs_recado_numRows
Set Rs_recado = Server.CreateObject("ADODB.Recordset")
Rs_recado.ActiveConnection = MM_discusao_STRING
Rs_recado.Source = "SELECT * FROM recado WHERE destinatario = '" + Replace(Rs_recado__MMColParam, "'", "''") + "' OR destinatario='todos' ORDER BY id_recado DESC"
Rs_recado.CursorType = 0
Rs_recado.CursorLocation = 2
Rs_recado.LockType = 1
Rs_recado.Open()
Rs_recado_numRows = 0
O problema é que se alguem apagar a mensagem o restante dos users não vizualisaram mais a mensaguem pq ela grava apenas uma vez no banco.
Se alguem puder me ajudar eu agradeço muito. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif
Carregando comentários...