PK

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

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

<!doctype html>
<!--[if IE 8 ]><html class="ie ie8" lang="en"> <![endif]-->
<!--[if (gte IE 9)|!(IE)]><html lang="en" class="no-js"> <![endif]-->
<html lang="es">

<head>

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

    <!-- Bootstrap CSS  -->
    <link rel="stylesheet" href="asset/css/bootstrap.min.css" type="text/css" media="screen">

    <!-- Font Awesome CSS -->
    <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css">


    <!-- Margo CSS Styles  -->
    <link rel="stylesheet" type="text/css" href="css/style.css" media="screen">

    <!-- Responsive CSS Styles  -->
    <link rel="stylesheet" type="text/css" href="css/responsive.css" media="screen">

    <!-- Css3 Transitions Styles  -->
    <link rel="stylesheet" type="text/css" href="css/animate.css" media="screen">

    <!-- Color CSS Styles  -->
    <link rel="stylesheet" type="text/css" href="css/colors/colores.css" title="sky-blue" media="screen" />

    <!-- Margo JS  -->
<!--#include file="js/herramientas.asp" -->

    <!--[if IE 8]><script src="http://html5shiv.googlecode.com/svn/trunk/html5.js"></script><![endif]-->
    <!--[if lt IE 9]><script src="http://html5shiv.googlecode.com/svn/trunk/html5.js"></script><![endif]-->
    
</head>

<body>

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

	<div id="container">
		
       <!--#include file="includes/header.asp" -->
        
		<!-- Start Page Banner -->
		<div class="page-banner">
			<div class="container">
				<div class="row">
					<div class="col-md-6">
						<h2>Carrito de compras</h2>
						<p>Nuestra tienda ONLINE</p>
					</div>
					<div class="col-md-6">
						<ul class="breadcrumbs">
							<li><a href="default.asp">Inicio</a></li>
							<li>Articulos</li>
						</ul>
					</div>
				</div>
			</div>
		</div>
		<!-- End Page Banner -->

		<!-- Start Content -->
		<div id="content">
			<div class="container">
				<div class="row">
					
					
					<!--Sidebar-->
					<div class="col-md-3 sidebar left-sidebar hidden-sm  hidden-xs">
						
                        <!--#include file="includes/ver_pedido.asp" --> 

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

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

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

					</div>
					<!--End sidebar-->
					
					<!-- Start Blog Posts -->
                    
					<div class="col-md-9">
                    
                    		<h2 class="classic-title"><span>Pago Exitoso</span></h2>  
                            
                            <p>Gracias por su compra<br>
                              Si pedido es el numero <b>PED00<%=request("external_reference")%></b>
                              <br>
                            En breve nos contactaremos con usted.</p>   
                            
                            <%'--------------------------- DESCUENTA STOCK
							
							rs.open "SELECT * FROM Pedidos WHERE idpedido = " & request("external_reference"),conn,2,2
							rs.movefirst
							rs("xidpe") = 2
							rs("ped_fechapago")=now()
							
							'--------------------------- MAIL AL CLIENTE

							dim omail,Mailconf,filemail,f,textmail1
						
							Set filemail = server.CreateObject("Scripting.FileSystemObject")
							Set f = filemail.OpenTextFile(server.MapPath("\") & "\mails\compra_terminada.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_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<ventasonline@Fe-cort.com.ar>"
							omail.Subject = "Pago exitoso de su compra"
							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.update
							rs.close%>
							
                            
                            <!--#include file="includes/pago_add.asp" -->
                            
                            <br>
							<!--#include file="includes/datos_contacto.asp" -->
                    
                    </div>
                </div>
                
            </div>

    
		</div>
		<!-- End Content -->        
 
        
        <!--#include file="includes/pie.asp" -->
        
        
    </div>
    <!-- End Full Body Container -->

    <!-- Go To Top Link -->
    <a href="#" class="back-to-top"><i class="fa fa-angle-up"></i></a>    <div id="loader">
        <div class="spinner">
            <div class="dot1"></div>
            <div class="dot2"></div>
        </div>
    </div>

</body>

</html>

<%	'------------------------------- Limpia carrito
	
session.Abandon()%>


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

PK 99