----- Original Message -----
Sent: Thursday, June 21, 2001 9:54
AM
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
==========================================
