<% Pagina = "Reuperar Datos de Ingreso" Ruta = "" accion = request.querystring("accion") IF accion = "enviar" THEN IF Request.Form("Email") <> "" THEN Email = Request.Form("Email") ELSE Email = Request.Querystring("Email") END IF Set RsDatosUsuario = Server.CreateObject("ADODB.RecordSet") sqltxt = "SELECT * FROM usuarios WHERE email = '" & email & "'" RsDatosUsuario.Open sqltxt, Conexion IF RsDatosUsuario.Eof = False then Mail = "ABM_Usuario_USU" DeDonde = "recuperodatos"%> <%RsDatosUsuario.Close Set RsDatosUsuario = Nothing ELSE MailNoEncontrado = "si" END IF END IF %> Delfos - Opinión Pública e Investigación de Mercado, desde Córdoba, República Argentina <%=Pagina%>
Home<%=Ruta%>

Recuperación de Datos de Ingreso

<%IF accion = "enviar" AND MailNoEncontrado <> "si" THEN%> <%ELSE IF MailNoEncontrado = "si" THEN%> <%END IF%> <%END IF%>

Su consulta ha tenido éxito!
La cuenta de correo ha sido encontrada y los datos solictiados han sido enviados por mail a <%=Email%>

No se ha encontrado

 La dirección de correo <%=Email%> no se ha encontrado en nuestras bases de datos, verifique que esté bien escrita e intente nuevamente.
Email:
Ingrese la Dirección de Email que utilizó para registrarse.
Cuando pulse el botón "Enviar", su nombre de Usuario y su Password serán enviados automáticamente a esa dirección de Email.