Por Favor Alguem Teste Este Codigo E Diga Se Da Ce

[Sobrit]

Não é conexão. Estou usando include. O erro é na linha 10 ...

.....______ rs.cursorLocation=aduseserver_______.....

Qual a função deste codigo?

... A variavel "ID" grava um campo autonum no BD.

dim nome, senha, dicaSenha, idCliente

nome=trim(request.form("nome"))

senha=trim(request.form("senha"))

dicaSenha=trim(request.form("dicaSenha"))

if not isnumeric(id) then id=0

set rs = server.CreateObject("ADODB.Recordset")

rs.cursorLocation=aduseserver

rs.cursorType=adopenKeyset

rs.lockType=adLockoptimistic

rs.open "tClientes", conbd1,,,adcmdtable

rs.addNew

rs("nome")=nome

rs("senha")=senha

rs("dicaSenha")=dicaSenha

rs.update

id=rs("idCliente")

rs.Close

set rs=nothing

response.Redirect "home.asp"

[Decio]

Explique melhor o erro que esta dando.

olhando o código , eu acho que você esta querendo pegar o ID do campo autonumeração que você acabou de criar, mas após o addnew você não vai conseguir, é preciso fazer um novo select com as informações que você acabou de digitar para achar o registro e pegar o campo autonumeração.

Eu faço desta forma forma , se alguém souber alguma forma mais pratica , me corrija.