<%@LANGUAGE="VBSCRIPT"%>
<%
Dim var1, room, user, userTo, vtype, texto, opc, para
' seta variavel
room = Request("room" )
user = Request("user" )
opc = Request("opc" )
para = Request("para" )
vtype = Request("vtype")
texto = Request("texto")
userTo = ""
var1 = "room=" & room & "&user=" & user
' verifica
if trim(vtype) = "" then vtype = "T"
' verifica a opcao
if opc = 1 then
' verifica o tipo
if para <> "TODOS" then
userTo = para
if vtype <> "R" then vtype = "P"
end if
' insere mensagem
SaveMessage room,user,userTo,vtype,texto
end if
'if opc = 2 then
' redireciona
' Response.Redirect "baixo.asp?" & var1
' Response.End
'end if
' pega os usuarios desta sala
usuaSQL = "SELECT * FROM chat_usuarios WHERE id_sala = " & room
set usuaRS = conecta.Execute(usuaSQL)
%>