|
|
|
|
¿Olvidó su contraseña? |
Inicio
|
Información General |
« Atrás |
|
|
|
|
|
|
Su usted olvido su contraseña para ingresar como comprador o proveedor indique y
coloque el correo electrónico con el cual se registro. |
|
|
<%If request("oculto")="1" then
Dim mailer,correo_var,contrasena_var,contacto_var,empresa_var,clave_var
Dim diasemana,dia,anno,mimes,mes,misemana,estedia
correo_var=request("correo_txt")
diasemana=weekday(now)
dia=day(now)
mes=month(now)
anno=year(now)
select case diasemana
case 1 misemana="Domingo"
case 2 misemana="Lunes"
case 3 misemana="Martes"
case 4 misemana="Miércoles"
case 5 misemana="Jueves"
case 6 misemana="Viernes"
case 7 misemana="Sábado"
end select
select case mes
case 1 mimes="enero"
case 2 mimes="febrero"
case 3 mimes="marzo"
case 4 mimes="abril"
case 5 mimes="mayo"
case 6 mimes="junio"
case 7 mimes="julio"
case 8 mimes="agosto"
case 9 mimes="septiembre"
case 10 mimes="octubre"
case 11 mimes="noviembre"
case 12 mimes="diciembre"
end select
estedia = "Valencia, "+ misemana +" "+ Cstr(dia) +" de "+ mimes +" de "+ Cstr(anno)
Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")
Mailer.ContentType = "text/html"
Mailer.CharSet = 2
Mailer.RemoteHost = "mail.ciec.org.ve"
Mailer.FromName = "CIEC Centro de Negocios"
Mailer.FromAddress= "info@ciec.org.ve"
if request("R1")="V1" then
sql="select * from ciec_compradores where email='"&correo_var&"'"
registros.open sql,conexion,1
if not registros.bof and not registros.eof then
empresa_var=registros("empresa")
contacto_var=registros("contacto")
contrasena_var=registros("password")
Mailer.Subject = "¿Olvidó su contraseña?"
Mailer.BodyText = "  | | | | | | Le recordamos su contraseña | | "&estedia&" | | Estimado "&contacto_var&" representante de "&empresa_var&", su contraseña para poder entrar a CIEC Centro de Negocios es:
| Contraseña: | "&contrasena_var&" |
| Para mas información visite: www.ciec.org.ve/compradores
Todos nuestros mensajes están 100% libre de virus ya que no contienen ningún dato adjunto. En caso de recibir un mensaje que Usted crea que provenga de nosotros con un dato adjunto, elimínelo inmediatamente. |
| | | | | | | 2006 l CIEC Centro de Negocios es un producto de software ideado y desarrollado por Ingeniería Web. | "
Mailer.AddRecipient contacto_var&" de "&empresa_var, correo_var
Mailer.AddBCC "CIEC Centro de Negocios", "info@ciec.org.ve"
if not(Mailer.SendMail) then
Response.Write Mailer.Response
else
Response.Write Mailer.Response
end if%>
<%else%>
<%end if
registros.close
end if
if request("R1")="V2" then
sql="select * from ciec_directorio where email='"&correo_var&"'"
registros.open sql,conexion,1
if not registros.bof and not registros.eof then
empresa_var=registros("empresa")
contacto_var=registros("contacto")
clave_var=registros("login")
contrasena_var=registros("password")
Mailer.Subject = "¿Olvidó su contraseña?"
Mailer.BodyText = " | | | | | | | Le recordamos su contraseña | | "&estedia&" | | Estimado "&contacto_var&" representante de "&empresa_var&", su contraseña para poder entrar a CIEC Centro de Negocios es:
| Clave: | "&clave_var&" | | Contraseña: | "&contrasena_var&" |
| Para mas información visite: www.ciec.org.ve/compradores
Todos nuestros mensajes están 100% libre de virus ya que no contienen ningún dato adjunto. En caso de recibir un mensaje que Usted crea que provenga de nosotros con un dato adjunto, elimínelo inmediatamente. |
| | | | | | | 2006 l CIEC Centro de Negocios es un producto de software ideado y desarrollado por Ingeniería Web. | "
Mailer.AddRecipient contacto_var&" de "&empresa_var, correo_var
Mailer.AddBCC "CIEC Centro de Negocios", "info@ciec.org.ve"
if not(Mailer.SendMail) then
Response.Write Mailer.Response
else
Response.Write Mailer.Response
end if%>
<%else%>
<%end if
registros.close
end if
end if%>
|
|
|
|
|
|
|
|
Inicio
|
Información General |
« Atrás |
|
