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