PK

<!--#include file="includes/openconn.asp" -->

<%dim textmail1,filemail,f,omail,Mailconf

rs.open "SELECT * FROM Administradores WHERE adm_email = '" & request("adm_email") & "'",conn,3,1

if rs.EOF then
	rs.close
	conn.close
	Response.Redirect ("olvidemicontrasena.asp?err=El mail no esta registrado")
else
	rs.movefirst

	Set filemail = server.CreateObject("Scripting.FileSystemObject")
	Set f = filemail.OpenTextFile(server.MapPath("\") & "\mails\olvidemicontrasena.asp",1)
	textmail1=f.Readall
	set filemail = Nothing  
	set f = Nothing  

	textmail1 = replace(textmail1,"|||adm_usuario|||",rs("adm_usuario"))
	textmail1 = replace(textmail1,"|||adm_password|||",rs("adm_password"))
	textmail1 = replace(textmail1,"|||adm_nombre|||",rs("adm_nombre"))
	textmail1 = replace(textmail1,"|||adm_email|||",rs("adm_email"))
	
	Err=0

	Set omail = Server.CreateObject("CDO.Message")
	omail.To= rs("adm_email")
	omail.From=  "WEB Fe-cort<info@fe-cort.com.ar>"
	
	omail.Subject = "Recuperacion administrador - " & rs("adm_nombre")
	omail.htmlBody = textmail1
	
	Set Mailconf = Server.CreateObject ("CDO.Configuration")
	' Outgoing SMTP server 
	Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
	Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
	Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
	Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
	Set omail.Configuration = Mailconf
	
	omail.send
	Set omail=Nothing

end if
rs.close
conn.close

'response.Write(textmail1)

Response.Redirect ("default.asp?msg=Acceso recuperado y enviado")	%>

PK 99