Problemas Para Confirmações De Emai E Senha

[rsousa]

Olá pessoal, Criei um formulario de identificação email e senha.

Que será redirecionado para outro arquivo que irá buscar no banco

de dados, se o mesmo não tem cadastro mando para um arquivo

de inclusão. Caso tenha ele pega as informações no banco e joga no formulario

deixando disponivel caso queira mudar algumas informações.

O problema é mesmo que tenha cadastro ele não esta lendo, ele redireciona para

incluir. Se alguém puder me ajudar ficarei muito grato.

Segue uma parte do codigo.

<%
email=replace(request.form("emai"),"'","''")
senha=replace(request.form("senha"),"'","''")
%>

<%
sql=" " &_
"select  email, senha " &_
"from	clientes " &_
"where	email ='" & email & "' " &_
"  and	senha ='" & senha & "' " 
%>

<%
Set conn = Server.CreateObject("ADODB.Connection")
caminho  = "DBQ=" & Server.MapPath("livraria.mdb")
conn.open "Driver={Microsoft Access Driver (*.mdb)}; " & caminho
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn, 3,3
%>

<%
set rs = conn.Execute(sql)
%>

<%if (rs.EOF > 0 )then
 response.write("voce já tem cadastro")
 else
 response.write("voce ainda não tem cadastro")
 response.redirect("incluir.asp")
 end if
%>

Edit: Formate seu codigo usando a tag CODE

Editado Agosto 31, 2004 por dark0

[dark0]

deixe seu codigo assim:

<%

'Conectando ao banco:

url_conexao = Server.MapPath("livraria.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

email=replace(request.form("email"),"'","''")

senha=replace(request.form("senha"),"'","''")

sql = "select  email, senha from clientes where email ='" & email & "' and senha ='" & senha & "' "

set rs = conexao.Execute(sql)

if (rs.EOF > 0 )then

response.write("voce já tem cadastro")

else

response.write("voce ainda não tem cadastro")

response.redirect("incluir.asp")

end if

%>

Está em azul onde eu alterei.

Experimente esse codigo, e veja se funciona.

Se quiser testar seu codigo, apenas altere essa linha:

email=replace(request.form("email"),"'","''")

Abraços