<%@LANGUAGE="VBSCRIPT"%> <% Dim var1, room, user ' seta variavel room = Request("room") user = Request("user") var1 = "room=" & room & "&user=" & user ' pega a mensagem do banco de dados menSQL = "SELECT id_linha , "_ & " id_usuario_env, "_ & " id_usuario_rec, "_ & " tp_mensagem , "_ & " ds_mensagem "_ & "FROM chat_mensagem "_ & "WHERE (id_sala = " & room & ") " set menRS = conecta.Execute(menSQL) ' pega a linha atual lida do usuario liSQL = "SELECT nr_linha FROM chat_usuarios WHERE (id_usuario = '" & user & "')" set liRS = conecta.Execute(liSQL) linha = liRS("nr_linha") linha = CDbl(linha) set liRS = nothing %> <% Do while not menRS.EOF linh_ide = menRS("id_linha" ) user_env = menRS("id_usuario_env") user_rec = menRS("id_usuario_rec") mens_tip = menRS("tp_mensagem" ) mens_des = menRS("ds_mensagem" ) linh_ide = CDbl(linh_ide) ' verifica se a linha que o usuario leu e menor if linh_ide > linha then if mens_tip = "R" then mens_des = "[" & user_env & "] fala reservado para " & user_rec & ": " & mens_des if (user_rec = user) or (user_env = user) then Response.Write("") end if elseif mens_tip = "T" then if mens_des = "Entrou na sala..." then mens_des = "[" & user_env & "] " & mens_des elseif mens_des = "Saiu da sala..." then mens_des = "[" & user_env & "] " & mens_des else mens_des = "[" & user_env & "] fala para todos: " & mens_des end if Response.Write("") elseif mens_tip = "P" then mens_des = "[" & user_env & "] fala para " & user_rec & ": " & mens_des Response.Write("") end if ' grava linha lida lidaSQL = "UPDATE chat_usuarios "_ & " SET nr_linha = " & linh_ide & " "_ & "WHERE (id_usuario = '" & user & "') " set lidaRS = conecta.Execute(lidaSQL) set lidaRS = nothing linha = linh_ide end if menRS.MoveNext Loop set menRS = nothing %>