Verificar se o usuario existe antes de inserir..

[gisela 0]

O que está errado no codigo?? Ele nao esta verificando e esta inserindo mesmo o login e serie ja existindo

 

<% Set conn = Server.CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\bd\dados\atualizacao.mdb"nome = request.form("nome") email = request.form("email") empresa = request.form("empresa") telefone = request.form("telefone") sistema = request.form("sistema") serie = request.form("serie") login = request.form("login") senha = request.form("senha")Set RS = conn.Execute("select * from atualizacao")if RS("login") = Request.form("login") then  Response.write("Usuário já cadastrado")  Response.endend ifif RS("serie") = Request.form("serie") then  Response.write("Número de série já existente")  Response.endend if sqlstmt = "insert into atualizacao (nome, email, empresa, telefone, sistema, serie, login, senha, data) values ('" & nome & "', '" & email & "', '" & empresa & "','" & telefone & "', '" & sistema & "', '" & serie & "', '" & login & "', '" & senha & "',  '" & now() & "')"  	  	 set rsquery = conn.execute(sqlstmt)  	  	 Dim mailSent 	 ' enviar e-mail 	 logmail = "Enviado por: " & Request.Form("nome") & VbCrLf & "E-mail: " & Request.Form("email") & VbCrLf & "Empresa: " & Request.Form("empresa") & VbCrLf & "Telefone: " & Request.Form("telefone") & VbCrLf & "Sistema: " & Request.Form("sistema") & VbCrLf & "Serie: " & Request.Form("serie") & VbCrLf & "Login: " & Request.Form("login")  & VbCrLf & "Senha: " & Request.Form("senha")  	  	 Set mailSent = Server.CreateObject("CDONTS.NewMail").......

[gisela 0]

Valeu deu certo !!!