|
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
==========================================
|
