PK

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

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

<%rs.Open "SELECT * FROM Clientes WHERE idcliente = " & request("idcliente"),conn,2,2
rs.movefirst%>

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

<%if request("aviso") <> "" then

	rs("cli_autorizado") = true 

    dim filemail,f,ffbody
	
	  Set filemail = server.CreateObject("Scripting.FileSystemObject")
		Set f = filemail.OpenTextFile( server.MapPath("\") & "\mails\cliente_acceso.asp",1)
		ffbody=f.Readall
		set f = nothing
	set filemail = nothing

	Dim objCDOMail,xbody

	ffbody = replace(ffbody,"|||cli_nombre|||",rs("cli_nombre"))
	ffbody = replace(ffbody,"|||cli_email|||",rs("cli_email"))
	ffbody = replace(ffbody,"|||cli_password|||",rs("cli_password"))

	Dim omail, Mailconf
	
	Set omail = Server.CreateObject("CDO.Message")
	omail.To = rs("cli_email")
	omail.From=  "tom@webtom.com.ar"
omail.From=  "WEB Fe-cort<info@fe-cort.com.ar>"
	omail.Subject = rs("cli_nombre") & " ya es un cliente autorizado de FE-CORT"
	omail.htmlBody = ffbody
	
	Set Mailconf = Server.CreateObject ("CDO.Configuration")
	' Outgoing SMTP server 
	Mailconf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
	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	
		
	rs("cli_enviado") = now()

end if

rs.Update
rs.Close

Response.Redirect("Clientes.asp")%>

PK 99