Microsoft JET Database Engine erro '80040e10'
No value given for one or more required parameters.
/sitedozanelati/login2/enviar_senha.asp, line 8
e também ele so esta buscando o login no banco de dados e precisa também buscar o email no banco de dados login e email para ser mandados para o email do usuario o codigo feito pelo crazy se encontra aqui
<% Dim ConnectString, conn ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("siteusers.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnectString email=request.querystring("email") set rs = conn.execute("select * from users where email='"&email&"'") If rs.EOF = True Then Response.Write "Email inválido!" Else Set meuMail = CreateObject("CDONTS.NewMail") sCorpo = "Seu login é: " & rs("username") & " e sua senha é: " & rs("password") meuMail.From = "sitedozanelati@ig.com.br" meuMail.To = rs("email") meuMail.Subject = "Envio de Senha" meuMail.BodyFormat = 0 meuMail.MailFormat = 0 meuMail.Body = sCorpo meuMail.Send Set meuMail = Nothing %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Confirma Mensagem</title> </head> <body background="../zanelati_r41_c7.gif"> <div align="center"> <center><table border="0" width="55%" cellspacing="0" cellpadding="0"> <tr> <td width="100%" align="center"> <font face="Verdana" size="2" color="#FFFFFF">1</font></td> </tr> <tr> <td width="100%" align="center"> <p align="center"><font face="Verdana" size="2" color="#000000">Sua Senha Foi enviada para Seu e-mail com Sucesso</font></td> </tr> <tr> <td width="100%" align="center"><font size="2" face="Verdana" color="#000000">Lembramos que Sua Senha é de Responsabilidade Tua.</font></td> </tr> <tr> <td width="100%" align="center"><font color="#FFFFFF" size="2" face="Verdana">1</font></td> </tr> </table> </center> </div> </body> </html> <% End If rs.close set rs = nothing conn.close set conn = nothing %>
o erro esta na linha 8
set rs = conn.execute("select * from users where email='"&email&"'")