Busca apos a inclusão

[fhermel 0]

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif Slave galerinha do ASP

 

Minha duvida é a seguinte tenho um code de inclusão que funciona beleza, mais quero que no mesmo code ele busque o numero de telefone que acabou de ser incluído no BD e recupere o ID do cliente, colocando este ID num response.redirect separadamente funciona legal mais unindo os 2 ai da pau ?!?!

 

abaixo tem o code

<%'Declaração de VariaveisDim cliente, cpf, cnpj, fone, celu, fax, email, endereco, numero, apto, bloco, bairro, cep, obs'Valor das Variaveiscliente = Request.Form("cliente")cpf = Request.Form("cpf")if cpf="" thencpf="Este cliente não é pessoa fisica!"end ifcnpj = Request.Form("cnpj")if cnpj="" thencnpj="Este cliente não é pessoa jurica!"end iffone = Request.Form("fone")celu = Request.Form("celu")if celu="" thencelu="cliente sem celular!"end iffax = Request.Form("fax")if fax="" thenfax="cliente sem fax!"end ifemail = Request.Form("email")if email="" thenemail="Cliente não informatizado!"end ifendereco = Request.Form("endereco")numero = Request.Form("numero")apto = Request.Form("apto")if apto ="" thenapto="Sem numero de apartamento!"end ifbloco = Request.Form("bloco")if bloco="" thenbloco="Sem numero de bloco!"end ifbairro = Request.Form("bairro")cep = Request.Form("cep")if cep="" thencep="00000-000"end ifobs = Request.Form("obs")if obs="" thenobs="Não costa obsevação para este cliente!"end if'Abre conexão com o BancoDim objConn Dim SQLSet objConn = server.createobject("ADODB.Connection")objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &Server.MapPath("bd/admin.mdb"))set objrs=server.createobject("adodb.recordset")SQL= "select * from cadastro where fone='"& fone &"'"objrs.Open SQL, objConnif objrs.eof thenolha_fone="NOA"end ifobjrs.closeif olha_fone = "NOA" then'Inicia o Processo de Inclusao no Banco'A opcao Aspas E comercial e Underscore serve para organizar o códigoSQL=" "&_    "INSERT INTO cadastro ("&_     "cliente, "&_     "cpf, "&_     "cnpj, "&_     "fone, "&_     "celu, "&_     "fax, "&_     "email, "&_     "endereco, "&_     "numero, "&_     "apto, "&_     "bloco, "&_     "bairro, "&_     "cep, "&_     "obs) "&_  "" & "VALUES ("&_     "'" & cliente & "', "&_     "'" & cpf & "', "&_     "'" & cnpj & "', "&_     "'" & fone & "', "&_     "'" & celu & "', "&_     "'" & fax & "', "&_     "'" & email & "', "&_     "'" & endereco & "', "&_     "'" & numero & "', "&_     "'" & apto & "', "&_     "'" & bloco & "', "&_     "'" & bairro & "', "&_     "'" & cep & "', "&_     "'" & obs & "')"Set RecSet = objconn.Execute(SQL)'Response.Write SQL'busca o tele e recupera o IDset RS=server.createobject("adodb.recordset")SQL= "select * from cadastro where fone='"& Request.Form("fone") &"'"response.redirect "venda_cli.asp?id="& RS("id") &""end ifif olha_fone <> "NOA" thenresponse.redirect "ok.asp?resposta=1"end if%>

Valeuzis http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[speedoli 0]

Tente isto, não posso te garantir nada mas tente isso qualquer coisa entre em contato comigo.SQL = " SELECT id FROM cadastro WHERE fone = '" & fone &"'"SET RS = objconn.EXECUTE(SQL)RESPONSE.REDIRECT ""venda_cli.asp?id=" & RS("id")RS.CLOSESET RS = NOTHING