<%@LANGUAGE="VBSCRIPT"%> <% Dim acao, opc, nome_sala, usuarios ' pega as variaveis opc = Request("opc" ) sala = Request("sala") acao = Request("acao") ' verifica o formulario if Request.Form <> "" then nome_sala = Request.Form("nome_sala") usuarios = Request.Form("usuarios" ) end if ' verifica se é exclusao if opc = 3 then ' apaga o produto dSQL = "DELETE FROM chat_salas WHERE (id_sala = " & sala & ")" set dRS = conecta.Execute(dSQL) set dRS = nothing ' redireciona Response.Redirect("salas.asp?opc=0&kb="&kb) Response.End end if ' verifica a acao (inclusao) if acao = "Inclusão" then ' inclui dados ' incSQL = "INSERT INTO chat_salas "_ ' & " (id_sala , "_ ' & " nm_sala , "_ ' & " tt_usuarios ) "_ ' & " VALUES (0 , "_ ' & " '" & nome_sala & "', "_ ' & " " & usuarios & " ) " ' set incRS = conecta.Execute(incSQL) ' set incRS = nothing incSQL = "INSERT INTO chat_salas "_ & " ( nm_sala , "_ & " tt_usuarios ) "_ & " VALUES ("_ & " '" & nome_sala & "', "_ & " " & usuarios & " ) " set incRS = conecta.Execute(incSQL) set incRS = nothing ' redireciona Response.Redirect("salas.asp?opc=1&kb="&kb) Response.End end if ' verifica a acao (alteracao) if acao = "Alteração" then ' altera os dados altSQL = "UPDATE chat_salas "_ & " SET nm_sala = '" & nome_sala & "', "_ & " tt_usuarios = " & usuarios & " "_ & "WHERE (id_sala = " & sala & " ) " set altRS = conecta.Execute(altSQL) set altRS = nothing ' redireciona Response.Redirect("salas.asp?opc=0&kb="&kb) Response.End end if %> CHAT - [Administrativo]
CHAT - [Administrativo - Salas]


<% ' verifica a opcao if (trim(opc) = "") or (opc = 0) then ' pega as salas cadastrados prodSQL = "SELECT id_sala, nm_sala, tt_usuarios "_ & "FROM chat_salas "_ & "ORDER BY nm_sala ASC " set prodRS = conecta.Execute(prodSQL) %>
<% Do while not prodRS.EOF d_sala = prodRS("id_sala" ) s_sala = prodRS("nm_sala" ) t_usua = prodRS("tt_usuarios") %> <% prodRS.MoveNext Loop set prodRS = nothing %>
Nome da Sala Total Usuários Ação
<%=s_sala%> <%=FormatNumber(t_usua,0)%> Editar Remover
| Menu Principal |
<% else %> <% end if %>