alguem sabe

[webdibula 0]

Microsoft OLE DB Provider for ODBC Drivers error '80040e10' [Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1. /novo/login.asp, line 21

[joacatito 0]

Busque no fórum, há várias soluções e explicações para o seu problema.você tb pode realizar uma busca por esse código: 80040e10 em www.aspfaq.comQq coisa, poste.

[Ted k' 126]

qual é a sua linha 21, estamos falando de quê problema?

[webdibula 0]

meu erro agora esta aqui

Microsoft VBScript runtime error '800a01a8' Object required: '' /novo/login.asp, line 16 login.asp<%'String de conexão com o bancoDim objConn, objRs, strQuery, strConnection, id_cliente, id_repot, url, strDBPath, RS, meubd, rsLoginSet objConn =  Server.CreateObject("ADODB.Connection")strDBPath = Server.MapPath("bancodedados/editais.mdb")objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"%><%'Recuperando os valores do formulário e setando-os nas variáveisformlogin=request.form("login")formsenha=request.form("senha")'Abrindo conexão'meubd.Open strDBPath'Verificando se possui registro[b]rsLogin.Open "SELECT login,senha FROM acesso where login=""& formlogin &""", meubd[/b]'Se não houver registro com o login digitado, ele irá voltarif rsLogin.EOF thenresponse.write "<script>history.back(1);alert("")</script>"'Caso contrário, ele irá verificar a senha digitadaelseif rsLogin.fields("senha")=formsenha then'Se a senha estiver correta, ele cria uma variável de sessão com o valor do loginsession("login")=rsLogin.fields("login")'Redirecionamento para dentro do administrativoresponse.redirect "principal.asp"else'Mas se o login está correto e a senha não, ele voltaráresponse.write "<script>history.back(1);alert("")</script>"end ifend if %>

qual é a sua linha 21, estamos falando de quê problema?

[joacatito 0]

Então tenta assim:

 

rsLogin.Open "SELECT login,senha FROM acesso where login='"& formlogin &"'", meubd

[Ted k' 126]

e o campo senha?

 

Set rsLogin = objConn.Execute("SELECT login,senha FROM acesso where login='"& formlogin &"' and senha = '"&formsenha&"'")

[webdibula 0]

fiz o que falou e me retornou este erro:Microsoft JET Database Engine error '80040e37' The Microsoft Jet database engine cannot find the input table or query 'acesso'. Make sure it exists and that its name is spelled correctly. /novo/login.asp, line 17

e o campo senha?

Set rsLogin = objConn.Execute("SELECT login,senha FROM acesso where login='"& formlogin &"' and senha = '"&formsenha&"'")

[webdibula 0]

deu o seguinte erro agora!!!

 

Microsoft VBScript runtime error '800a01b6'

 

Object doesn't support this property or method: 'EOF'

 

/novo/login.asp, line 20

 

 

 

<%'String de conexão com o bancoDim objConn, objRs, strQuery, strConnection, id_cliente, id_repot, url, strDBPath, RS, meubd, rsLoginSet objConn =  Server.CreateObject("ADODB.Connection")strDBPath = Server.MapPath("bancodedados/acesso.mdb")objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"%><%'Recuperando os valores do formulário e setando-os nas variáveisformlogin=request.form("login")formsenha=request.form("senha")'Abrindo conexão'meubd.Open strDBPath'Verificando se possui registro'rsLogin.Open "SELECT login,senha FROM acesso where login='"& formlogin &"'", meubdrsLogin = objConn.Execute("SELECT login,senha FROM acesso where login='"& formlogin &"' and senha = '"&formsenha&"'")'Se não houver registro com o login digitado, ele irá voltar[b]if rsLogin.EOF then[/b]response.write "<script>history.back(1);alert("")</script>"'Caso contrário, ele irá verificar a senha digitadaelseif rsLogin.fields("senha")=formsenha then'Se a senha estiver correta, ele cria uma variável de sessão com o valor do loginsession("login")=rsLogin.fields("login")'Redirecionamento para dentro do administrativoresponse.redirect "principal.asp"else'Mas se o login está correto e a senha não, ele voltaráresponse.write "<script>history.back(1);alert("")</script>"end ifend if %>

[Ted k' 126]

você ñ setou o objeto

 

<%
'String de conexão com o banco
Dim objConn, objRs, strQuery, strConnection, id_cliente, id_repot, url, strDBPath, RS, meubd, rsLogin
Set objConn =  Server.CreateObject("ADODB.Connection")
strDBPath = Server.MapPath("bancodedados/acesso.mdb")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
%>
<%
'Recuperando os valores do formulário e setando-os nas variáveis
formlogin=request.form("login")
formsenha=request.form("senha")

'Abrindo conexão
'meubd.Open strDBPath
'Verificando se possui registro


Set rsLogin = objConn.Execute("SELECT login,senha FROM acesso where login='"& formlogin &"' and senha = '"&formsenha&"'")


'Se não houver registro com o login digitado, ele irá voltar
if rsLogin.EOF then
response.write "<script>history.back(1);alert("")</script>"
'Caso contrário, ele irá verificar a senha digitada
else
if rsLogin.fields("senha")=formsenha then
'Se a senha estiver correta, ele cria uma variável de sessão com o valor do login
session("login")=rsLogin.fields("login")
'Redirecionamento para dentro do administrativo
response.redirect "principal.asp"
else
'Mas se o login está correto e a senha não, ele voltará
response.write "<script>history.back(1);alert("")</script>"
end if
end if
%>

 

Set rsLogin = objConn.Execute("SELECT login,senha FROM acesso where login='"& formlogin &"' and senha = '"&formsenha&"'")

Verifique o codigo que te passei agora