----- Original Message -----
Sent: Sunday, June 24, 2001 3:43 PM
Subject: [Asp10.net] Login - Duvida
O que tem de errado nesse login?
Porque
quero que se estiver certo o respectivos "email" e "senha" ele rediricione
para "inicio.asp" e caso estiverem errados redirecione para "index.asp".
S�
que mesmo que o "email" e "senha" estiverem certos, ele redireciona para
o index.asp.
Quero session porque depois no inicio.asp quero colocar uma
session para conormar se ele esta logado.
<%@
LANGUAGE="VBSCRIPT"%>
<%
Dim strEmail
Dim strSenha
Dim
objConexao
Dim objRS
Dim strSQL
strEmail =
request.Form("Email")
strSenha = request.Form("Senha")
strConexao =
"DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath("classificados.mdb") & ";"
Set objConexao =
Server.CreateObject("ADODB.Connection")
objConexao.Open
strConexao
strSQL = "SELECT Email, Senha FROM Usuarios "
strSQL = strSQL
& " WHERE Email='"&strEmail&"' and
Senha='"&strSenha&"'"
Set objRS =
objConexao.execute(strSQL)
If objRS.EOF AND objRS.BOF then
Session("LOGADO") = "NAO"
Response.Redirect
"login.asp?error=VERIFIQUE%20SEU%20EMAIL%20E%20SENHA"
Else
Session("LOGADO") = "SIM"
Response.Redirect
"inicio.asp"
End IF
objRS.close
set objRS=
nothing
objConexao.close
set objConexao= nothing
%>
%>
http://www.asp10.net
==========================================
Solu��es simples para
problemas complexos
==========================================
