Mais Uma Ajudinha

[fhermel]

Salve galerinha do ASP ...

Tentarei ser o mais claro possível estou fazendo um cadastro de cliente e logo após a inclusão no BD quero fazer uma nova venda usando o ID deste cliente castrado a pouco.

Então no mesmo code logo após a inclusão faço uma busca pelo telefone do cliente e coloco apenas o ID no response.redirect ???

Olhem o code abaixo

<%
'Declaração de Variaveis
Dim cliente, cpf, cnpj, fone, celu, fax, email, endereco, numero, apto, bloco, bairro, cep, obs
'Valor das Variaveis
cliente = Request.Form("cliente")
cpf = Request.Form("cpf")
if cpf="" then
cpf="Este cliente não é pessoa fisica!"
end if
cnpj = Request.Form("cnpj")
if cnpj="" then
cnpj="Este cliente não é pessoa jurica!"
end if
fone = Request.Form("fone")
celu = Request.Form("celu")
if celu="" then
celu="cliente sem celular!"
end if
fax = Request.Form("fax")
if fax="" then
fax="cliente sem fax!"
end if
email = Request.Form("email")
if email="" then
email="Cliente não informatizado!"
end if
endereco = Request.Form("endereco")
numero = Request.Form("numero")
apto = Request.Form("apto")
if apto ="" then
apto="Sem numero de apartamento!"
end if
bloco = Request.Form("bloco")
if bloco="" then
bloco="Sem numero de bloco!"
end if
bairro = Request.Form("bairro")
cep = Request.Form("cep")
if cep="" then
cep="00000-000"
end if
obs = Request.Form("obs")
if obs="" then
obs="Não costa obsevação para este cliente!"
end if

'Abre conexão com o Banco
Dim objConn 
Dim SQL
Set 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, objConn
if objrs.eof then
olha_fone="NOA"
end if
objrs.close

if olha_fone = "NOA" then

'Inicia o Processo de Inclusao no Banco
'A opcao Aspas E comercial e Underscore serve para organizar o código
SQL=" "&_
    "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 & "')"

'busca para recuperar o ID do cliente
SQL= "select * from cadastro where fone='"& fone &"'"


Set RecSet = objconn.Execute(SQL)

'Response.Write SQL
response.redirect "vendas.asp?id="&ID&""
end if

if olha_fone <> "NOA" then
response.redirect "ok.asp?resposta=1"
end if
%>

valeuzis

[cyberalexxx]

Acho que faltou recuperar o valor do campo ID antes do response.redirect, mais ou menos assim:

ID = RecSet.Fields("Id")

[fhermel]

Valeu amigo

Mais aonde devo colocar esta linha ?!?!? eu não conheso este " RecSet.Fields "

brigaduuuuuuuu !!!

[cyberalexxx]

Deixa o código assim:

<%

'Declaração de Variaveis

Dim cliente, cpf, cnpj, fone, celu, fax, email, endereco, numero, apto, bloco, bairro, cep, obs

'Valor das Variaveis

cliente = Request.Form("cliente")

cpf = Request.Form("cpf")

if cpf="" then

cpf="Este cliente não é pessoa fisica!"

end if

cnpj = Request.Form("cnpj")

if cnpj="" then

cnpj="Este cliente não é pessoa jurica!"

end if

fone = Request.Form("fone")

celu = Request.Form("celu")

if celu="" then

celu="cliente sem celular!"

end if

fax = Request.Form("fax")

if fax="" then

fax="cliente sem fax!"

end if

email = Request.Form("email")

if email="" then

email="Cliente não informatizado!"

end if

endereco = Request.Form("endereco")

numero = Request.Form("numero")

apto = Request.Form("apto")

if apto ="" then

apto="Sem numero de apartamento!"

end if

bloco = Request.Form("bloco")

if bloco="" then

bloco="Sem numero de bloco!"

end if

bairro = Request.Form("bairro")

cep = Request.Form("cep")

if cep="" then

cep="00000-000"

end if

obs = Request.Form("obs")

if obs="" then

obs="Não costa obsevação para este cliente!"

end if

'Abre conexão com o Banco

Dim objConn

Dim SQL

Set 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, objConn

if objrs.eof then

olha_fone="NOA"

end if

objrs.close

if olha_fone = "NOA" then

'Inicia o Processo de Inclusao no Banco

'A opcao Aspas E comercial e Underscore serve para organizar o código

SQL=" "&_

  "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 & "')"

'busca para recuperar o ID do cliente

SQL= "select * from cadastro where fone='"& fone &"'"

Set RecSet = objconn.Execute(SQL)

'Response.Write SQL

ID = RecSet.Fields("Id")'esse "Id" é o nome do campo

response.redirect "vendas.asp?id="&ID&""

end if

if olha_fone <> "NOA" then

response.redirect "ok.asp?resposta=1"

end if

%>