<%
wCPF_CNPJ=request.item("CPF")
wCPF_CNPJ=replace(wCPF_CNPJ, ".", "")
wCPF_CNPJ=replace(wCPF_CNPJ, "-", "")
wCPF_CNPJ=replace(wCPF_CNPJ, "/", "")
wCPF_CNPJ=replace(wCPF_CNPJ, " ", "")
if Len(wCPF_CNPJ) > 11 then
if not IsCNPJ(wCPF_CNPJ) then
response.redirect("MSG_CPF_Invalido.asp?CPF="&wCPF_CNPJ)
else
wCPF_CNPJ = FormatarCNPJ(wCPF_CNPJ)
end if
else
if not IsCPF(wCPF_CNPJ) then
response.redirect("MSG_CPF_Invalido.asp?CPF="&wCPF_CNPJ)
else
wCPF_CNPJ = FormatarCPF(wCPF_CNPJ)
end if
end if
wProposta=request.item("Proposta")
wEmpresa=request.item("Empresa")
wVendedor=request.item("Vendedor")
wID_Vendedor=request.item("ID_Vendedor")
Set Database = Server.CreateObject("ADODB.Connection")
Database.Open StringConexao
SQL= "SELECT ID_PROPOSTA, DESCRICAO, VLR_MENSAL, NOME FROM LISTA_PROPOSTAS_CLIENTE('" & wCPF_CNPJ & "')"
Set TabPropostas = Database.Execute(SQL)
if TabPropostas.EOF then
response.redirect("Cad_Clientes.asp?Proposta=" & wProposta & "&Empresa=" & wEmpresa & "&Vendedor=" & wVendedor & "&ID_Vendedor=" & wID_Vendedor & "&CPF=" & wCPF_CNPJ )
end if
%>