<!--#include file="admperm.asp" -->
<!--#include file="../bd.asp" -->
<%
For i=1 to Request.Form.Count
	if Request.Form.Item(i)="" then
		Response.Redirect "admusr.asp?err=3"
	End if
Next
if Request.Form("SENHA")<>Request.Form("CONFIRMACAO") then
	Response.Redirect "admusr.asp?err=12"
End if
qselnum="SELECT COUNT(*) AS NUMERO FROM T_USR WHERE USUARIO='"&Request.Form("USUARIO")&"'"
Set RSselnum=Conexao.Execute(qselnum)
if RSselnum("NUMERO")=0 then
	q="INSERT INTO T_USR (NOME,USUARIO,SENHA,IDTIPOUSR)VALUES('"&Request.Form("NOME")&"','"&Request.Form("USUARIO")&"','"&Request.Form("SENHA")&"',"&Request.Form("IDTIPOUSR")&")"
	Conexao.Execute(q)
else
	Response.Redirect "admusr.asp?err=73&usr="&Request.Form("USUARIO")
End if
Response.Redirect "admusr.asp"
%>