Login e Senha!

[mkboy 1]

Ola,Fiz uma página de cadastro onde o usuário cadastrou-se, e criou um login e senha no banco de dados.Agora criei uma página de login e senha e gostaria de:

Procurar o login e a senha no banco de dados ACCESS e se estiverem la, redirecionar para principal.asp, senao redirecionar para cadastro.asp

O Banco chama-se boletim e a tabela chama-se cadastroOs campos dos forms e do db chamam-se login e senhaAlguém tem uma dica?

[nobru_rj 0]

Cara primeiro cria essa pagina ai em baixo com nome de conecta.asp

<% Dim ConexaoAberta Dim ConStr Dim Conexao Set Conexao = CreateObject("ADODB.CONNECTION") conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("local e nome do bd") & "; uid=sa; pwd=;" ConexaoAberta = FALSE Sub AbreConexao() if not ConexaoAberta then  Conexao.Open conStr  ConexaoAberta = True end if end sub Sub FechaConexao() if ConexaoAberta then  Conexao.close  ConexaoAberta = False end if end sub %>

depois faca o seguinte

<!--#include file="conecta.asp"--><%AbreConexaol = "Select * FROM cadastro WHERE login= '" & Request.Form("login") & "' "l = l & "AND senha='" & Request.Form("senha") & "' "set pr = conexao.execute(l)if not pr.eof thenResponse.Redirect("principal.asp")elseResponse.Redirect("cadastro.asp")%>

[mkboy 1]

SHOW!!!!!Muito obrigado!!!!!!!!!! ;) :D :D :D :D :D :D Legal, ja estou progredindo com meu sistema de cadastro de emails.E o legal que vai ficar do meu jeito.Obrigado :D

[mkboy 1]

Tentei fazer igual na minha pagina que processa o cadastro.Tipo para deixar a conexao igual do login acima que ficou perfeito, mas acho que fiz algo errado, veja:

<%@ language="vbscript" %><!--#include file="conecta.asp"--><% session("login") = request("login") session("senha")  = request("senha") %><% nome   =  Request.form("nome") nascimento = Request.form("nascimento") cpf  = Request.form("cpf") email  = Request.form("email") ddd  = Request.form("ddd") tel  = Request.form("tel") cidade  = Request.form("cidade") estado  = Request.form("estado") login  = Request.form("login") senha  = Request.form("senha") ip   =    Request.ServerVariables("REMOTE_ADDR") 'On error resume next AbreConexao        theSQL = "insert into cadastro"        theSQL = theSQL & "(nome, nascimento, cpf, email, ddd, tel, cidade, estado, login, senha, data, ip) "        theSQL = theSQL & " values ('"&nome&"','"&nascimento&"','"&cpf&"','"&email&"','"&ddd&"','"&tel&"','"&cidade&"','"&estado&"','"&login&"','"&senha&"','" & NOW & "','" &ip& "')" set pr = conexao.execute(l) boletimDB.Execute(theSQL)if not pr.eof thenResponse.Redirect("login.asp")elseResponse.Redirect("cadastro.asp")end if%>

O erro:

Erro de tempo de execução do Microsoft VBScript error '800a01a8' Objeto necessário: 'pr' /intranet/interative/processa_cadastro.asp, line 37

[mkboy 1]

Onde errei, no exemplo acima?