insert into

[ODIR 0]

estou fazendo uma inserção em um banco de dados e estou com uma duvida como faco para conseguir pegar o codigo do autonum na tabela que acaba de ser inserida

 

 

o codigo é assim

 

'Cria o objeto RecordSet e atribui a variável Set objConn =  Server.CreateObject("ADODB.Connection")'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)'(*.mdb) indica que o arquivo utiliza extensão mdbobjConn.Open "DBQ=" & "d:\web\localuser\arrozvivamaria\banco\contato.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"'Insere os dados na tabela abertastrQuery = "INSERT INTO cp (nome, telefone, email, grupo, comentario, fantasia, razao, cidade, est, bairro, cep, fone, celular, fax, cnpj, insc, site, "&_"endereco, codgrupo, data, cfop, nota, codfornecedor, prod1, prod2, prod3, prod4, prod5, prod6, prod7, peso1, peso2, peso3, peso4, peso5, peso6, peso7, "&_"unidade1, unidade2, unidade3, unidade4, unidade5, unidade6, unidade7, quant1, quant2, quant3, quant4, quant5, quant6, quant7, valor1, valor2, valor3, "&_"valor4, valor5, valor6, valor7, total1, total2, total3, total4, total5, total6, total7, icms1, icms2, icms3, icms4, icms5, icms6, icms7, baseicms, "&_"valoricms, baseipi, valoripi, valorp, valorn, codmot, mot, valoru, totalfrete, codcomprador, comprador, percentual, totalcomissao, codtrans, trans, "&_"frete, placa1, placa2, endtrans, cidtrans, esttrans, cnpjtrans, insctrans, data1, data2, data3, data4, data5, data6, data7, data8, data9, valorp1, "&_"valorp2, valorp3, valorp4, valorp5, valorp6, valorp7, valorp8, valorp9, diferenca, descricao1, descricao2, descricao3, descricao4, descricao5, "&_"descricao6, descricao7) "&_""&"VALUES('"&nome&"','"&telefone&"','"&email&"','"&grupo&"','"&comentario&"','"&fantasia&"','"&razao&"',"&_"'"&cidade&"','"&est&"','"&bairro&"','"&cep&"','"&fone&"','"&celular&"','"&fax&"','"&cnpj&"','"&insc&"','"&site&"','"&endereco&"',"&_"'"&codgrupo&"','"&data&"','"&cfop&"','"&nota&"','"&codfornecedor&"','"&prod1&"','"&prod2&"','"&prod3&"','"&prod4&"','"&prod5&"',"&_"'"&prod6&"','"&prod7&"','"&peso1&"','"&peso2&"','"&peso3&"','"&peso4&"','"&peso5&"','"&peso6&"','"&peso7&"','"&unidade1&"',"&_"'"&unidade2&"','"&unidade3&"','"&unidade4&"','"&unidade5&"','"&unidade6&"','"&unidade7&"','"&quant1&"','"&quant2&"','"&quant3&"',"&_"'"&quant4&"','"&quant5&"','"&quant6&"','"&quant7&"','"&valor1&"','"&valor2&"','"&valor3&"','"&valor4&"','"&valor5&"','"&valor6&"',"&_"'"&valor7&"','"&total1&"','"&total2&"','"&total3&"','"&total4&"','"&total5&"','"&total6&"','"&total7&"','"&icms1&"','"&icms2&"',"&_"'"&icms3&"','"&icms4&"','"&icms5&"','"&icms6&"','"&icms7&"','"&baseicms&"','"&valoricms&"','"&baseipi&"','"&valoripi&"','"&valorp&"',"&_"'"&valorn&"','"&codmot&"','"&mot&"','"&valoru&"','"&totalfrete&"','"&codcomprador&"','"&comprador&"','"&percent&"','"&totalcomissao&"',"&_"'"&codtrans&"','"&trans&"','"&frete&"','"&placa1&"','"&placa2&"','"&endtrans&"','"&cidtrans&"','"&esttrans&"','"&cnpjtrans&"',"&_"'"&insctrans&"','"&data1&"','"&data2&"','"&data3&"','"&data4&"','"&data5&"','"&data6&"','"&data7&"','"&data8&"','"&data9&"',"&_"'"&valorp1&"','"&valorp2&"','"&valorp3&"','"&valorp4&"','"&valorp5&"','"&valorp6&"','"&valorp7&"','"&valorp8&"','"&valorp9&"',"&_"'"&diferenca&"','"&descricao1&"','"&descricao2&"','"&descricao3&"','"&descricao4&"','"&descricao5&"','"&descricao6&"','"&descricao7&"')"'Caso ocorra um erro esta função de erro será chamada'Response.Write(strQuery) : Response.End()'Executa a inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery)'Fecha o Objeto de ConexãoobjConn.close'"APAGA" qualquer instancia que possa ter no objeto objRs e objConnSet objRs = NothingSet objConn = Nothing'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0if err = 0 Then	'Redireciona o usuário caso não tenha ocorrido erro na transação	response.redirect "sucesso.asp"end ifelseresponse.redirect "form_inclusao.asp?codgrupo="&codgrupo&"&forn="&codfornecedor&"&prod1="&prod1&"&prod2="&prod2&"&prod3="&prod3&"&prod4="&prod4&"&prod5="&prod5&"&prod6="&prod6&"&prod7="&prod7&"&codmot="&codmot&"&comis="&codcomprador&"&trans="&codtrans&"&quant1="&quant1&"&quant2="&quant2&"&quant3="&quant3&"&quant4="&quant4&"&quant5="&quant5&"&quant6="&quant6&"&quant7="&quant7&"&valor1="&valor1&"&valor2="&valor2&"&valor3="&valor3&"&valor4="&valor4&"&valor5="&valor5&"&valor6="&valor6&"&valor7="&valor7&"&total1="&total1&"&total2="&total2&"&total3="&total3&"&total4="&total4&"&total5="&total5&"&total6="&total6&"&total7="&total7&"&icms1="&icms1&"&icms2="&icms2&"&icms3="&icms3&"&icms4="&icms4&"&icms5="&icms5&"&icms6="&icms6&"&icms7="&icms7&"&baseicms="&baseicms&"&valoricms="&valoricms&"&baseipi="&baseipi&"&valoripi="&valoripi&"&valorp="&valorp&"&valorn="&valorn&"&valoru="&valoru&"&totalfrete="&totalfrete&"&percent="&percent&"&totalcomissao="&totalcomissao&"&frete="&frete&"&data1="&data1&"&data2="&data2&"&data3="&data3&"&data4="&data4&"&data5="&data5&"&data6="&data6&"&data7="&data7&"&data8="&data8&"&data9="&data9&"&valorp1="&valorp1&"&valorp2="&valorp2&"&valorp3="&valorp3&"&valorp4="&valorp4&"&valorp5="&valorp5&"&valorp6="&valorp6&"&valorp7="&valorp7&"&valorp8="&valorp8&"&valorp9="&valorp9&"&diferenca="&diferenca&"&comentario="&comentario&"&peso1="&peso1&"&peso2="&peso2&"&peso3="&peso3&"&peso4="&peso4&"&peso5="&peso5&"&peso6="&peso6&"&peso7="&peso7&"&cfop="&cfop&"&data="&data&"&nota="&nota&""end if %>

nesta parte eu gostaria de retornar o valor do autonum que acabou de ser criado

 

response.redirect "sucesso.asp?id=autonum"

 

 

valeu

[Custellinha 0]

faz um select APÓS a sua sql de inclusão, buscando o último registro em ordem decrescente...set ultimo = select TOP 1 ... descdepois só jogar no seu redirect...qualquer dúvida posta ai!