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&"'")
