<% 'Se recogen las variables mail=request("mail") selectmail=request("selectmail") emailfrom="vallarinoj@pixelmediapublicidad.com" fecha=Date %> <% 'Si ya se escribio un correo y el correo no existe en la base de datos, no enviar correo, mostrar la pagina para escribir correo y mostrar error. IF selectmail = 1 THEN str3 = "SELECT * FROM usrpw WHERE mail = '"&mail&"'" Set rs3 = objConn3.execute(str3) IF rs3.EOF THEN errormsg = "Error, el correo no está en nuestra base de datos." selectmail = 0 ELSE 'Se prepara el mensaje que se va a enviar mensaje = "

Información de usuario
Número de usuario	"& rs3("Codigo")&"
Usuario	"&rs3("user")&"
Contraseña	"&rs3("password")&"
Por favor memorice o guarde esta información en un lugar seguro.

" END IF END IF %> <% IF selectmail = 1 THEN 'Se manda el correo y se le dice al cliente. Dim ObjSendMail2 Dim iConf2 Dim Flds2 Set ObjSendMail2 = Server.CreateObject("CDO.Message") Set iConf2 = CreateObject("CDO.Configuration") Set Flds2 = iConf2.Fields Flds2("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 '**** Path below may need to be changed if it is not correct Flds2("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" Flds2.Update Set ObjSendMail2.Configuration = iConf2 ObjSendMail2.To = mail ObjSendMail2.Subject = "Informacion de Hormigon Express" ObjSendMail2.From = emailfrom ObjSendMail2.HTMLBody = mensaje ObjSendMail2.Send Set ObjSendMail2 = Nothing %>

Se le envió la información a su correo.

<% ELSE 'Se muestra la pagina para escribir el correo %>

<% Response.Write(errormsg) %>

Escriba su cuenta de correo registrada