|
Vicente,
Nesta linha:
If RSLogin("SENHAUSR") <>
Request.Form("Senha") then
vce compara o campo SENHAUSR com o request de
SENHA... mas vce nao tem nada em SENHA, pois a variavel que vce
usou
pra capturar a senha digitada do form foi srtSenha
... acho que o erro esta a�...
Verifique tbem se o nome do campo na base de dados
� SENHAUSR e EMAIL mesmo....
Outra:
Quem me dera ter comecado a me preocupar com ASP,
programacao, E-Commerce, quando tinha a sua idade...
Claro que vce nao deve estar esquecendo da
diversao, pois assim como todos n�s, quem nao gosta de free-time ?
Boa sorte , e nao desista !
[]s
Murch.
ah ! deixe me mudar o seu codigo, fazendo uma
sujestao: (como eu faria...)
nao testei, mas acho que esta ok...
<%@
LANGUAGE="VBSCRIPT"%>
<%
strEmail =
Trim(request.Form("Email"))
strsenha =
Trim(request.Form("password"))
strConexao = "DRIVER={Microsoft Access Driver
(*.mdb)};" & _
"DBQ=" & Server.MapPath("produtos.mdb") & ";"
Set objConexao =
Server.CreateObject("ADODB.Connection")
objConexao.Open strConexao
strSQL
= "select * FROM Usuarios WHERE Email = '" & strEmail & "' AND SenhaUSR
= '" & strSenha & "'"
Set objRS =
objConexao.execute(strSQL)
If objRS.EOF then
Session("SENHA") = "incorreta"
Response.Redirect("index.asp")
Else
Session("USUARIO")
= objRS("Email")
Session("SENHA") =
"correta"
Response.Redirect("inicio.asp")
End IF
%>
----- Original Message -----
Sent: Thursday, 21 June, 2001 09:54
Subject: [Asp10.net] Re: LOGIN COM
SESSION
Vicente...
Na boa...
Com essa idade voce tem mais �
que ir assitir Bambulu�.
Porque depois, quando ficar mais
velho, voce nao vai conseguir.
Menino, vai jogar bola na rua,
andar de skate, empinar pipa.
APROVEITE ENQUANTO
PODE.
Conselho de quem ja nao pode
mais!
:-)
Mariana
----- Original Message -----
Sent: Wednesday, June 20, 2001 10:11
PM
Subject: [Asp10.net] LOGIN COM
SESSION
O que tem de errado nesse login, porque quero que
se tiver certos o email e senha ele vah para inicio.asp e se tiver errados
va para index.asp, soh que mesmo se senha e email tiverem certos ele vai
para o index.asp.
Obrigado
meu E-mail eh [EMAIL PROTECTED]
<%@
LANGUAGE="VBSCRIPT"%>
<%
strEmail =
Trim(request.Form("Email"))
strsenha =
Trim(request.Form("password"))
strConexao = "DRIVER={Microsoft Access
Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("produtos.mdb") & ";"
Set objConexao =
Server.CreateObject("ADODB.Connection")
objConexao.Open
strConexao
strSQL = "select * FROM Usuarios WHERE
Email='"&strEmail&"'"
Set objRS =
objConexao.execute(strSQL)
If objRS.EOF AND objRS.BOF then
Session("SENHA") = "incorreta"
Response.Redirect("index.asp")
Else
If RSLogin("SENHAUSR")
<> Request.Form("Senha") then
Session("USUARIO")
= objRS("Email")
Session("SENHA") =
"incorreta"
Response.Redirect("index.asp")
Else
Session("USUARIO") =
objRS("Email")
Session("SENHA") =
"correta"
Response.Redirect("inicio.asp")
End If
End IF
%>
http://www.asp10.net
==========================================
Solu��es simples para
problemas complexos
==========================================
http://www.asp10.net
==========================================
Solu��es simples para
problemas complexos
==========================================
http://www.asp10.net
==========================================
Solu��es simples para problemas complexos
==========================================
| 
