Hola, tengo un problema con este codigo para que los usuarios envien recordar una contraseña, el problema es cuando trato de hacer la consulta a la base de datos porque lo probe sin esa parte y funciona correctamente enviando el mail
El error que me da esta debajo
Muchas gracias
Código:
<%
Dim emailValue, UserValue, PassValue, OBJ_EMAIL
emailValue = Trim(Request.form("email"))
%>
<!---#include file="conector.inc"--->
<%
SQLQuery="SELECT * FROM tabla1 where email= '" & emailValue & "'"
Set rsUsuario= Conn.Execute(SQLQuery)
If not rsUsuarios.EOF Then
UserValue = Trim(rsUsuarios("artista"))
PassValue = Trim(rsUsuarios("password"))
NombreValue = Trim(rsUsuarios("nombre"))
ApellidoValue = Trim(rsUsuarios("apellido"))
Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")
OBJ_EMAIL.From = "[email protected]"
OBJ_EMAIL.To = emailValue
OBJ_EMAIL.Subject = "Recordatorio de Contraseña"
BodyValue = "Hola " & NombreValue & " " & ApellidoValue & ", " + chr(10) + "Aca estan los datos que solicitaste." + chr(10) + " Usuario: " & UserValue & " " + chr(10) + " Password: " & PassValue & " " + chr(10) + "Saludos" + chr(10) + "Webmaster"
OBJ_EMAIL.Body = BodyValue
OBJ_EMAIL.Send
Set OBJ_EMAIL = Nothing
Response.Write "<p>Se envió a su correo el usuario y la password. En caso de no recibirlo envié su solicitud al Webmaster</p>"
else
Response.Write "Mail no existente"
end If
%>
<!---#include file="desconector.inc"--->
</body>
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/registro/recordarpass.asp,
line 44