<!--#include file="permrepre.asp" --> 
<!--#include file="../bd.asp" --> 
<%
For i=1 to Request.Form.Count
	if Request.Form.Item(i)="" then
		Response.Redirect "reprevend.asp?err=3"
	End if
Next

qsel="SELECT COUNT(*) AS NUMERO FROM T_USR WHERE USUARIO='"&Trim(Request.Form("USUARIO"))&"'"
Set RSsel=Conexao.Execute(qsel)

if RSsel("NUMERO")>0 then
	Response.Redirect "reprevend.asp?err=67"
End if

if Request.Form("SENHA")<>Request.Form("CONFIRMACAO") then
	Response.Redirect "reprevend.asp?err=12"
End if

qusr="INSERT INTO T_USR (NOME,USUARIO,SENHA,IDTIPOUSR)VALUES('"&Request.Form("NOME")&"','"&Request.Form("USUARIO")&"','"&Request.Form("SENHA")&"',4)"
Conexao.Execute(qusr)

qsel="SELECT * FROM T_USR WHERE USUARIO='"&Trim(Request.Form("USUARIO"))&"'"
Set RSsel=Conexao.Execute(qsel)

q="INSERT INTO T_VENDEDOR (IDUSR,NOME,IDREPRESENTANTE,STATUS)VALUES("&RSsel("IDUSR")&",'"&Request.Form("NOME")&"',"&Session("IDREPRESENTANTE")&",'S')"
Conexao.Execute(q)
Response.Redirect "reprevend.asp"
%>