Hola,
tenfgo una asp llamada recuperar.asp donde el usuario escribe su email, y se le envia su contraseña. Me está dando un error y creo que el código está bien, a ver si me podéis ayudar. El código es el siguiente:
<%
Dim emailValue, UserValue, PassValue, OBJ_EMAIL, rsUsuario, Conn
emailValue = Trim(Request.form("email"))
%>
<%
SQLQuery="SELECT * FROM accesos where email= '" & emailValue & "'"
Set rsUsuario= Conn.Execute(SQLQuery)
If not rsUsuario.EOF Then
UserValue = Trim(rsUsuario("usuario"))
PassValue = Trim(rsUsuario("password"))
NombreValue = Trim(rsUsuario("Cliente"))
ApellidoValue = Trim(rsUsuario("Tipo_Acceso"))
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) + "Aquí estan los datos que nos solicitastes." + 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. </p>"
else
Response.Write "Mail no existente"
end If
Sub MostrarFormulario
Response.Write("<FORM METHOD=""post"" ACTION=""recuperar.asp"" name=""email"" id=""email"">")
Response.Write("&Mail:<INPUT TYPE=""text"" NAME=""emailValue""><BR>")
Response.Write("<br>")
Response.Write("<INPUT TYPE=""submit"" value=""Validar"">")
End Sub 'MostrarFormulario
%>
--
El error que me da es este:
Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'
Se requiere un objeto: ''
/esp/recuperar.asp, línea 180
---
La linea 180 en recuperar.asp es esta:
Set rsUsuario= Conn.Execute(SQLQuery)
Gracias.