<!--#include file="admperm.asp" -->
<!--#include file="../bd.asp" -->
<%
if Request.QueryString("idrepre")="" then
	Response.Redirect "admrepre.asp"
else
	qs="SELECT * FROM T_REPRESENTANTE WHERE IDREPRESENTANTE="&Request.QueryString("idrepre")
	Set RSs=Conexao.Execute(qs)
	if RSs("STATUS")="S" then
		s="N"
	else
		s="S"
	End if
	qu="UPDATE T_REPRESENTANTE SET STATUS='"&s&"' WHERE IDREPRESENTANTE="&Request.QueryString("idrepre")
	qu2="UPDATE T_USR SET STATUS='"&s&"' WHERE IDUSR="&RSs("IDUSR")
	Conexao.Execute(qu)
	Conexao.Execute(qu2)
	Response.Redirect "admrepre.asp"
End if
%>