Teste

[Deividy]

Eu estou recuperando e gravando sem problema só que eu não posso ter dois login iguais como eu posso faser esse teste.

O db não aceita dois login iguais

Nome        = Request.Form("nome")

    Sobrenome   = Request.Form("sobrenome")

Bairro      = Request.Form("bairro")

Cidade      = Request.Form("cidade")

Endereco    = Request.Form("endereco")

Estado      = Request.Form("estado")

CEP         = Request.Form("cep")

Telefone    = Request.Form("telefone")

Email       = Request.Form("Email")

login     = Request.Form(UCase("usuario"))

Senha       = Request.Form("senha")

data        = date

Set rsUser = Server.CreateObject("ADODB.Recordset")

rsUser.open "login", conn, 3, 3

rsUser.AddNew

rsUser("nome")        = Nome

rsUser("sobrenome")   = Sobrenome

rsUser("endereco")    = Endereco

rsUser("bairro")      = Bairro

rsUser("cidade")      = Cidade

rsUser("estado")      = Estado

rsUser("cep")         = Cep

rsUser("telefone")    = Telefone

rsUser("email")       = Email

rsUser("login")       = Usuario

rsUser("senha")       = Senha

rsUser("data")        = data

rsUser.Update

[pgmador]

Tente isto:

Nome        = Request.Form("nome")
Sobrenome   = Request.Form("sobrenome")
Bairro      = Request.Form("bairro")
Cidade      = Request.Form("cidade")
Endereco    = Request.Form("endereco")
Estado      = Request.Form("estado")
CEP         = Request.Form("cep")
Telefone    = Request.Form("telefone")
Email       = Request.Form("Email")
login     = Request.Form(UCase("usuario"))
Senha       = Request.Form("senha")
data        = date

Set rsLogin = Server.CreateObject("ADODB.Recordset")
rsLogin.open "Select * from cadastro where login='"&login&"',Conn,3,3

if rsLogin.EOF then

Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.open "login", conn, 3, 3
rsUser.AddNew
rsUser("nome")        = Nome
rsUser("sobrenome")   = Sobrenome
rsUser("endereco")    = Endereco
rsUser("bairro")      = Bairro
rsUser("cidade")      = Cidade
rsUser("estado")      = Estado
rsUser("cep")         = Cep
rsUser("telefone")    = Telefone
rsUser("email")       = Email
rsUser("login")       = Usuario
rsUser("senha")       = Senha
rsUser("data")        = data
rsUser.Update 

else

Response.Write ("Login Existente")

end if

[]'s

Nelson Soares

http://www.ondagospel.com.br

[Deividy]

isso que você me mandou dá erro nessa linha

rsLogin.open "Select * from cadastro where login='"&login&"',Conn,3,3

[pgmador]

Mas o nome da sua tabela é "cadastro" mesmo?

Se não for, basta trocar pelo nome da sua tabela.

Também faltou uma aspas no final. Ficaria assim>

rsLogin.open "Select * from nome_da_tabela where login='"&login&"'",Conn,3,3