VIDA SIMPLES - CONTROLE DE PROPOSTA

<% wProposta=request.item("Proposta") wEmpresa=request.item("Empresa") wVendedor=request.item("Vendedor") Set Database = Server.CreateObject("ADODB.Connection") Database.Open StringConexao Dim wID, wCPF_CNPJ, wRG, wRG_EMISSOR, wRG_DATA, wRG_ESTADO, wNOME, wDT_NASCIMENTO, wID_PAI, wID_MAE, wESTADO_CIVIL, wID_ATIVIDADE, wENDERECO, wNUMERO, wCOMPLEMENTO, wBAIRRO, wCIDADE, wESTADO, wCEP, wDDD, wFONES, wE_MAIL, wHOME_PAGE, wSTATUS, wLOGIN, wSENHA, wSEXO, wCA_USUARIO wProposta=request.item("Proposta") wCPF_CNPJ=request.item("CPF_CNPJ") wCPF_CNPJ=replace(wCPF_CNPJ, ", ", "") wRG=request.item("RG") wRG_EMISSOR=request.item("RG_Emissor") wRG_DATA=InverteData(request.item("RG_Emissao")) wRG_ESTADO=request.item("RG_Estado") wNOME=request.item("Nome") wDT_NASCIMENTO=InverteData(request.item("DT_Nascimento")) wID_PAI=request.item("CBPai") if ((wID_PAI = "...Selecione...") or (wID_PAI="")) then wID_PAI="NULL" end if wID_MAE=request.item("CBMae") if ((wID_MAE = "...Selecione...") or (wID_MAE="")) then wID_MAE="NULL" end if wESTADO_CIVIL=request.item("Estado_Civil") wID_ATIVIDADE=request.item("CBAtividade") if wID_ATIVIDADE = "...Selecione..." then wID_ATIVIDADE="NULL" end if wENDERECO=VerificaNulo(request.item("Endereco")) wNUMERO=VerificaNulo(request.item("Numero")) wCOMPLEMENTO=VerificaNulo(request.item("Complemento")) wBAIRRO=VerificaNulo(request.item("Bairro")) wCIDADE=VerificaNulo(request.item("Cidade")) wESTADO=VerificaNulo(request.item("Estado")) wCEP=VerificaNulo(request.item("Cep")) wDDD=VerificaNulo(request.item("DDD")) wFONES=VerificaNulo(request.item("Fones")) wE_MAIL=VerificaNulo(request.item("E_Mail")) wHOME_PAGE=VerificaNulo(request.item("Home_Page")) wSTATUS=request.item("Status") wLOGIN=VerificaNulo(request.item("Login")) wSENHA=VerificaNulo(request.item("Senha")) wSEXO=Mid(request.item("Sexo"), 1, 1) 'wCA_USUARIO=request.item("Ca_Usuario") wCA_USUARIO="Admin" wID=request.item("ID") if wID = "" then wID=Numera("CLI") SQL= "INSERT INTO CLIENTES(ID, CPF_CNPJ, RG, RG_EMISSOR, RG_DATA, RG_ESTADO, NOME, DT_NASCIMENTO, ID_PAI, ID_MAE, ESTADO_CIVIL, ID_ATIVIDADE, ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CIDADE, ESTADO, CEP, DDD, FONES, E_MAIL, HOME_PAGE, STATUS, LOGIN, SENHA, SEXO, CA_USUARIO) VALUES (" & wID & ",'" & wCPF_CNPJ & "','" & wRG & "','" & wRG_EMISSOR & "','" & wRG_DATA & "','" & wRG_ESTADO & "','" & wNOME & "','" & wDT_NASCIMENTO & "'," & wID_PAI & "," & wID_MAE & ",'" & wESTADO_CIVIL & "'," & wID_ATIVIDADE & ",'" & wENDERECO & "','" & wNUMERO & "','" & wCOMPLEMENTO & "','" & wBAIRRO & "','" & wCIDADE & "','" & wESTADO & "','" & wCEP & "','" & wDDD & "','" & wFONES & "','" & wE_MAIL & "','" & wHOME_PAGE & "','" & wSTATUS & "','" & wLOGIN & "','" & wSENHA & "','" & wSEXO & "','" & wCA_USUARIO & "')" else SQL= "UPDATE CLIENTES set " SQL=SQL & " ID=" & wID & "," SQL=SQL & " CPF_CNPJ='" & wCPF_CNPJ & "'," SQL=SQL & " RG='" & wRG & "'," SQL=SQL & " RG_EMISSOR='" & wRG_EMISSOR & "'," SQL=SQL & " RG_DATA='" & wRG_DATA & "'," SQL=SQL & " RG_ESTADO='" & wRG_ESTADO & "'," SQL=SQL & " NOME='" & wNOME & "'," SQL=SQL & " DT_NASCIMENTO='" & wDT_NASCIMENTO & "'," SQL=SQL & " ID_PAI=" & wID_PAI & "," SQL=SQL & " ID_MAE=" & wID_MAE & "," SQL=SQL & " ESTADO_CIVIL='" & wESTADO_CIVIL & "'," SQL=SQL & " ID_ATIVIDADE=" & wID_ATIVIDADE & "," SQL=SQL & " ENDERECO='" & wENDERECO & "'," SQL=SQL & " NUMERO='" & wNUMERO & "'," SQL=SQL & " COMPLEMENTO='" & wCOMPLEMENTO & "'," SQL=SQL & " BAIRRO='" & wBAIRRO & "'," SQL=SQL & " CIDADE='" & wCIDADE & "'," SQL=SQL & " ESTADO='" & wESTADO & "'," SQL=SQL & " CEP='" & wCEP & "'," SQL=SQL & " DDD='" & wDDD & "'," SQL=SQL & " FONES='" & wFONES & "'," SQL=SQL & " E_MAIL='" & wE_MAIL & "'," SQL=SQL & " HOME_PAGE='" & wHOME_PAGE & "'," SQL=SQL & " STATUS='" & wSTATUS & "'," SQL=SQL & " LOGIN='" & wLOGIN & "'," SQL=SQL & " SENHA='" & wSENHA & "'," SQL=SQL & " SEXO='" & wSEXO & "'," SQL=SQL & " CA_USUARIO='" & wCA_USUARIO & "'," SQL=SQL & " AT_USUARIO='" & wAT_USUARIO & "'" SQL=SQL & " WHERE ID=" & wID end if Set TabClientes = Database.Execute(SQL) if wProposta <> "" then response.redirect("Cad_Propostas_Clientes.asp?Proposta=" & wProposta & "&CPF="&wCPF_CNPJ & "&Empresa=" & wEmpresa & "&Vendedor=" & wVendedor) end if %>

Cliente cadastrado com Sucesso!