<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao wID_Empresa=request.item("Empresa") wProposta=request.item("Proposta") wCliente=request.item("Cliente") wPlano=request.item("Plano") wOrigem=request.item("Origem") wID_Vendedor=request.item("ID_Vendedor") wSQL="SELECT C.CPF_CNPJ, C.NOME, P.DESCRICAO AS PLANO, PC.CERTIFICADO, " wSQL=wSQL & " C.ENDERECO, C.NUMERO, C.COMPLEMENTO, C.BAIRRO, C.CIDADE, C.ESTADO, " wSQL=wSQL & " C.CEP, C.FONES, C.DT_NASCIMENTO, C.RELIGIAO, C.LOGIN, C.SENHA, C.E_MAIL " wSQL=wSQL & " FROM PROPOSTAS_CLIENTES PC " wSQL=wSQL & " LEFT JOIN CLIENTES C " wSQL=wSQL & " ON C.ID = PC.ID_CLIENTE " wSQL=wSQL & " LEFT JOIN PLANOS P " wSQL=wSQL & " ON P.ID = PC.ID_PLANO " wSQL=wSQL & " WHERE PC.ID_PROPOSTA = " & wPROPOSTA wSQL=wSQL & " AND PC.ID_CLIENTE = " & wCliente Set TabCliente = Database.Execute(wSQL) %>
Proposta - Clientes
Cliente
:
<%=TabCliente("Nome")%>
CPF
:
<%=TabCliente("CPF_CNPJ")%>
Certificado
:
<%=TabCliente("CERTIFICADO")%>
Plano
:
<%=TabCliente("Plano")%>
Data Nasc.
:
<%=TabCliente("Dt_Nascimento")%>
Endereço
:
<%=TabCliente("Endereco")%> - <%=TabCliente("Numero")%> - <%=TabCliente("Complemento")%>
Bairro
:
<%=TabCliente("Bairro")%>
Cidade
:
<%=TabCliente("Cidade")%>
CEP
:
<%=TabCliente("CEP")%>
Telefone
:
<%=TabCliente("FONES")%>
Email
:
<%=TabCliente("E_MAIL")%>
Religião
:
<%=TabCliente("RELIGIAO")%>
Login
:
<%=TabCliente("Login")%>
Senha
:
<%=TabCliente("Senha")%>
Beneficiarios
<% if ((wOrigem = "S") or (wOrigem = "")) then %>
Alterar Plano
<% end if %>