PK

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

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

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

rs.open "SELECT * FROM Q_Compras WHERE idpedido = " & request("idpedido"),conn,3,1
rs.movefirst

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

	textmail1 = replace(textmail1,"|||idpedido|||",rs("idpedido"))
	textmail1 = replace(textmail1,"|||ped_monto|||",rs("ped_monto"))
	textmail1 = replace(textmail1,"|||ped_costoenvio|||",rs("ped_costoenvio"))
	textmail1 = replace(textmail1,"|||cli_estadocc|||",rs("cli_estadocc"))
	textmail1 = replace(textmail1,"|||ped_nombre|||",rs("ped_nombre"))
	textmail1 = replace(textmail1,"|||ped_email|||",rs("ped_email"))
	
	Err=0

	Set omail = Server.CreateObject("CDO.Message")
	omail.To= rs("ped_email")
	omail.From=  "WEB FE-CORT<tom@webtom.com.ar>"
	omail.Subject = "Acceso a estado de Compra " & rs("ped_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

rs.close
conn.close

'response.Write(textmail1)

Response.Redirect ("Compra_edit.asp?idpedido=" & request("idpedido"))%>

PK 99