El error que me da esta debajo
Muchas gracias
Código:
Microsoft VBScript runtime error '800a01a8' <% 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>
Object required: ''
/registro/recordarpass.asp, line 44