Sistema de login - imasters

[GuiWeb 0]

Olá! Estou usando o sistema de login com níveis que está na coluna asp do imasters, só quem sem a classificação de nível, porém o browser retorna o seguinte erro:Tipo de erro:Microsoft JET Database Engine (0x80040E10)Nenhum valor foi fornecido para um ou mais parâmetros necessários./busca/vagas/login.asp, line 14O código fonte da pág. é:<%'Efetuando a conexão com a base de dados criadaSet Conn = Server.CreateObject("AdoDb.Connection")Conn.provider="Microsoft.Jet.OLEDB.4.0"Conn.connectionstring=Server.Mappath("vagas.mdb")Conn.open'Vamos capturar o login e a senha digitada no formuláriologin2 = Request.Form("txt_login")senha2 = Request.Form("txt_senha")'Agora verificamos se o usuário e a senha estão corretosSQL = "select * from vagas where login = '"& email &"' and senha = '"& senha &"' "Set RS = Conn.Execute(SQL)'Caso não esteja correto, indicamos o erroIf RS.EOF Then Response.Write "usuário ou senha inválida!" Response.EndEnd IfResponse.Redirect "index1.asp" 'página restrita%>O que há de errado??preciso de resposta urgente!GratoGuiWeb

[manga 0]

Acho que faltaram alguns parametros para o RS. Tente incluir isso antes de Set RS = Conn.Execute(SQL):

 

RS.CursorLocation = 3RS.Open "nome_tabela", Conn, , , 2

[GuiWeb 0]

Não não.... nem com isso.. tentei colocar antes e depois, agora dá outro erro:-Se colocar antes:Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01A8)Objeto necessário: 'RS'/busca/vagas/login.asp, line 14-Se colocar depois:Tipo de erro:Microsoft JET Database Engine (0x80040E10)Nenhum valor foi fornecido para um ou mais parâmetros necessários./busca/vagas/login.asp, line 14

[manga 0]

Cara, uso um jeito diferente de abrir a conexão e funciona bem. veja se você consegue adaptar para seu caso:

 

Set connect = Server.CreateObject("ADODB.Connection")connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=coloque o caminho físico do BD;"Set RS = Server.CreateObject("ADODB.Recordset")RS.CursorLocation = 3RS.Open "nome_tabela", connect, , , 2SQL = "select * from vagas where login = '"& email &"' and senha = '"& senha &"' "Set RS = connect.Execute(SQL)

[GuiWeb 0]

NADA! Não funcionou! Tipo, ainda fala q RS não foi declarada.. eu fiz uma "surrba" no codigo pra ver se funcionava, mais nem assim... Você conhece algum sistema de login bom mesmo?Pois em outro site, uso outro sistema que lá funcionou, mais aqui não Q eu faço =(?ICQ: 242260645MSN portalfs@uol.com.br -é uol mesmo!

[manga 0]

Calma bicho, esse sistema funciona sim. Agora se o erro é que RS não foi declarada é só declarar:Dim RSNão esqueça de proteger o sistema contra SQL Injection passando as entradas do form pelos códigos:login = replace(Request.Form("login"), "'","")login = Replace(login,"<","<")login = Replace(login,">",">")senha = Replace(senha, "'","")senha = Replace(senha,"<","<")senha = Replace(senha,">",">")

[AlexCT 0]

mas neste caso ao colcoar o login no DB vai ficar com <login>certo?