<!--#include file="bd.asp" -->
<%
if Request.Form("USUARIO")="" OR Request.Form("SENHA")="" then
	Response.Redirect "login.asp?err=3"
End if

'** FUNÇÕES ** INICIO

'**** ADMINISTRADOR GERAL **** INICIO
Function admgeral()
	Session("ADMGERAL")="sim"
	Session("USRADMGERAL")=Request.Form("usuario")
	Response.Redirect "adm/admprod.asp"
End Function
'**** ADMINISTRADOR GERAL **** FIM

'**** ADMINISTRADOR DE PROPOSTAS **** INICIO
Function admprop()
	Session("ADMPROP")="sim"
	Session("USRADMPROP")=Request.Form("usuario")
	Response.Redirect "adm/proppropostas.asp"
End Function
'**** ADMINISTRADOR DE PROPOSTAS **** FIM

'**** REPRESENTANTE **** INICIO
Function representante()
	Session("REPRESENTANTE")="sim"
	Session("USRREPRESENTANTE")=Request.Form("usuario")
	qr="SELECT A.USUARIO, B.IDREPRESENTANTE FROM T_USR A, T_REPRESENTANTE B WHERE A.IDUSR=B.IDUSR AND A.USUARIO='"&Request.Form("USUARIO")&"'"
	Set RSr=Conexao.Execute(qr)
	Session("IDREPRESENTANTE")=RSr("IDREPRESENTANTE")
	Response.Redirect "repre/reprevend.asp"
End Function
'**** REPRESENTANTE **** FIM

'**** VENDEDOR **** INICIO
Function vendedor()
	Session("VENDEDOR")="sim"
	Session("USRVENDEDOR")=Request.Form("usuario")
	qven="SELECT * FROM T_VENDEDOR,T_USR WHERE T_USR.IDUSR=T_VENDEDOR.IDUSR AND USUARIO='"&Session("USRVENDEDOR")&"'"
	Set RSven=Conexao.Execute(qven)
	Session("IDVENDEDOR")=RSven("IDVENDEDOR")
	Session("IDREPRESENTANTE")=RSven("IDREPRESENTANTE")
	qp="SELECT * FROM T_PRODREPRE,T_PRODUTO WHERE T_PRODREPRE.IDPRODUTO=T_PRODUTO.IDPRODUTO AND IDREPRESENTANTE="&Session("IDREPRESENTANTE")
	Set RSp=Conexao.Execute(qp)
	Session("IDPRODUTO")=RSp("T_PRODUTO.IDPRODUTO")
	Session("MAXPARCELAS")=RSp("MAXPARCELAS")
	Session("TAC")=RSp("TAC")
	Session("VALORMIN")=RSp("VALORMIN")
	Session("VALORMAX")=RSp("VALORMAX")
	Session("TXMENSAL")=RSp("TXMENSAL")		
	Response.Redirect "repre/cadastro.asp?idp="&Session("IDPRODUTO")
End Function
'**** VENDEDOR **** FIM

'** FUNÇÕES ** FIM

qusr="SELECT * FROM T_USR WHERE USUARIO='"&Request.Form("USUARIO")&"' AND SENHA='"&Request.Form("SENHA")&"'"
Set RSusr=Conexao.Execute(qusr)

qusrnum="SELECT COUNT(*) AS NUMERO FROM ("&qusr&")"
Set RSusrnum=Conexao.Execute(qusrnum)

if RSusrnum("NUMERO")=0 then
	Response.Redirect "login.asp?err=10"
else
	'**********************************
	'****    TIPOS DE USUARIOS     ****
	'** 1	Administrador (Geral)    **
	'** 2	Administrador (Propostas)**
	'** 3	Representante            **
	'** 4	Vendedor                 **
	'**********************************

'**** VERIFICANDO SE O USUÁRIO ESTÁ ATIVO **** INICIO ****
	qsusr="SELECT * FROM T_USR WHERE USUARIO='"&Request.Form("USUARIO")&"' AND SENHA='"&Request.Form("SENHA")&"'"
	Set RSs=Conexao.Execute(qsusr)
	if RSs("STATUS")="N" then
		Response.Redirect "login.asp?err=68"
	End if
'**** VERIFICANDO SE O USUÁRIO ESTÁ ATIVO **** FIM ****

	Select Case RSusr("IDTIPOUSR")
		Case 1
			admgeral()
		Case 2
			admprop()
		Case 3
			representante()
		Case 4
			vendedor()
		Case Else
			Response.Redirect "login.asp?err=65"
	End Select

End if
%>