PARTE 2:
Bueno he modificado un par de cosas, y ahora el tema está así:
recuperar.asp
<form action="recuperacion_ok.asp?recuperado=ok" method="POST" name="email">
<p><input type="text" name="emailValue" size="20"><input type="submit" value="Enviar" name="B1"></p>
</form>
recuperacion_ok.asp
<%
Dim emailValue, UserValue, PassValue, OBJ_EMAIL, rsUsuario, oConn
emailValue = Trim(Request.form("email"))
%>
<%
SQLQuery="SELECT * FROM accesos where email= '" & emailValue & "'"
Set rsUsuario= oConn.Execute(SQLQuery)
If not rsUsuario.EOF Then
UserValue = Trim(rsUsuario("usuario"))
PassValue = Trim(rsUsuario("password"))
Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")
OBJ_EMAIL.From = "
[email protected]"
OBJ_EMAIL.To = emailValue
OBJ_EMAIL.Subject = "Recordatorio de Contraseña"
BodyValue = "Datos " Usuario: " & UserValue & " " + chr(10) + " Password: " & PassValue & " " + chr(10)
OBJ_EMAIL.Body = BodyValue
OBJ_EMAIL.Send
Set OBJ_EMAIL = Nothing
Response.Write "<p>Se envió a su correo el usuario y la password. </p>"
else
Response.Write "Mail no existente"
end If
%>
Al hacer esto, si pongo un mail que existe en la BBDD, el formulario recuperacion.asp siempre responde con Mail no existente.
A ver si me podeis ayudar.
Gracias.