<!--#include file="admperm.asp" -->
<!--#include file="../bd.asp" -->
<%
if Request.Form("EXCLUIR.x")<>"" then
	if Trim(Request.Form("USUARIO"))<>"adm" then
		qdel="DELETE FROM T_USR WHERE IDUSR="&Request.Form("IDUSR")
		Conexao.Execute(qdel)
	End if
else
	if Request.Form("MODIFICAR.x")<>"" then
		if Request.Form("NOVASENHA")<>"" then
			qm="UPDATE T_USR SET NOME='"&Request.Form("NOME")&"', SENHA='"&Request.Form("NOVASENHA")&"', IDTIPOUSR="&Request.Form("IDTIPOUSR")&" WHERE IDUSR="&Request.Form("IDUSR")
		else
			qm="UPDATE T_USR SET NOME='"&Request.Form("NOME")&"', IDTIPOUSR="&Request.Form("IDTIPOUSR")&" WHERE IDUSR="&Request.Form("IDUSR")
		End if
		Conexao.Execute(qm)
	End if
End if
Response.Redirect "admusr.asp"
%>