<%
'--------------------------------------------------
'Funcao .....: NewUser()
'Uso ........: funcao que grava novo usuario
'--------------------------------------------------
Sub NewUser(room,user)

' insere na tabela
userSQL = "INSERT INTO chat_usuarios (id_usuario    , "_
        & "                           id_sala       , "_
        & "                           dt_data       , "_
        & "                           nr_linha      ) "_
        & "                   VALUES ('" & user & "', "_
        & "                            " & room & " ,'"_
        &month(date)&"/"&day(date)&"/"&year(date)&"'," _
        & "                            0            ) "
set userRS = conecta.Execute(userSQL)
set userRS = nothing

' entrou na sala
SaveMessage room,user,"","T","Entrou na sala..."

End Sub 'NewUser()
'--------------------------------------------------

'--------------------------------------------------
'Funcao .....: SaveMessage()
'Uso ........: funcao que grava mensagem
'--------------------------------------------------
Sub SaveMessage(room,userFrom,userTo,ptype,texto)

' grava mensagem
menSQL = "INSERT INTO chat_mensagem (id_sala          , "_
       & "                           id_usuario_env   , "_
       & "                           id_usuario_rec   , "_
       & "                           tp_mensagem      , "_
       & "                           ds_mensagem      , "_
       & "                           dt_data          ) "_
       & "                   VALUES (" & room     & " , "_
       & "                          '" & userFrom & "', "_
       & "                          '" & userTo   & "', "_
       & "                          '" & ptype    & "', "_
       & "                          '" & texto    & "',' "_
       &month(date)&"/"&day(date)&"/"&year(date)&"')"     
set menRS = conecta.Execute(menSQL)
set menRS = nothing

End Sub 'SaveMessage()
'--------------------------------------------------

'--------------------------------------------------
'Funcao .....: DeleteUser()
'Uso ........: funcao deletar usuario
'--------------------------------------------------
Sub DeleteUser(room,user)

' apaga mensagens e usuario
dmenSQL    = "DELETE FROM chat_mensagem WHERE (id_usuario_env = '" & user & "')"
dusuSQL    = "DELETE FROM chat_usuarios WHERE (id_usuario     = '" & user & "')"
set dmenRS = conecta.Execute(dmenSQL)
set dusuRS = conecta.Execute(dusuSQL)
set dmenRS = nothing
set dusuRS = nothing

' saiu da sala
SaveMessage room,user,"","T","Saiu da sala..."

End Sub 'DeleteUser()
'--------------------------------------------------
%>