<%
wID=request.item("ID")
wAtivo=request.item("Ativo")
wCBEmpresa=request.item("CBEmpresa")
Set Database = Server.CreateObject("ADODB.Connection")
Database.Open StringConexao
SQL="Select * From Vendedores Where ID=0" & wID
Set TabVendedores = Database.Execute(SQL)
if wID <> 0 then
SQL="Select * From Vendedores Where ID=" & wID
Set TabVendedores = Database.Execute(SQL)
if TabVendedores("CONSULTA_COMPLETA") = "S" then
wCON_COMPLETA="checked"
else
wCON_COMPLETA=""
end if
if TabVendedores("CONS_PROPOSTA") = "S" then
wCON_PROPOSTA="checked"
else
wCON_PROPOSTA=""
end if
if TabVendedores("CONS_MATRICULA") = "S" then
wCON_MATRICULA="checked"
else
wCON_MATRICULA=""
end if
if TabVendedores("CONS_CERTIFICADO") = "S" then
wCON_CERTIFICADO="checked"
else
wCON_CERTIFICADO=""
end if
if TabVendedores("CONS_EMPRESA") = "S" Then
wCON_EMPRESA="checked"
else
wCON_EMPRESA=""
end if
if TabVendedores("CONS_ID_VENDEDOR") = "S" then
wCON_ID_VENDEDOR="checked"
else
wCON_ID_VENDEDOR=""
end if
if TabVendedores("CONS_ID_CLIENTE") = "S" then
wCON_ID_CLIENTE="checked"
else
wCON_ID_CLIENTE=""
end if
if TabVendedores("CONS_NOME_CLIENTE") = "S" then
wCON_NOME_CLIENTE="checked"
else
wCON_NOME_CLIENTE=""
end if
if TabVendedores("CONS_CPF") = "S" then
wCON_CPF="checked"
else
wCON_CPF=""
end if
if TabVendedores("CONS_CIDADE") = "S" then
wCON_CIDADE="checked"
else
wCON_CIDADE=""
end if
if TabVendedores("Alt_Beneficiario") = "S" then
wAlt_Benef="checked"
else
wAlt_Benef=""
end if
if TabVendedores("COMISSAO_PLANO") = "S" then
wCOMISSAO_PLANO="checked"
else
wCOMISSAO_PLANO=""
end if
end if
SQL= "SELECT * FROM EMPRESAS"
Set TabEmpresas = Database.Execute(SQL)
SQL= "SELECT * FROM PLANOS ORDER BY DESCRICAO"
Set TabPlanos = Database.Execute(SQL)
%>