PK

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

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

<%dim textmail1,tot,ppp,xIDPEDIDO,ax
dim filemail,f

'------------------ VERIFICAR STOCK

'dim xmensaje
'xmensaje = ""

'for a = 0 to 200
'	if cstr(session("sss_cantidad" & a)) <> "0" AND session("sss_iditem" & a) <> "" then
'		rs.open "SELECT * FROM Q_articulos WHERE idarticulo = " & session("sss_iditem" & a),conn,3,1
'		rs.movefirst
'		
'		if session("sss_cantidad" & a) <> "" AND not isnull(session("sss_cantidad" & a)) then
'			if rs("art_stock") < session("sss_cantidad" & a ) then
'				rs.close
'				conn.close
'				response.redirect("carrito_ver.asp")
'			end if
'		end if
'		rs.Close
'	end if
'next



'----------------- CALCULA TOTAL

session("total_compra") = 0

for a = 0 to 300
	if session("sss_cantidad" & a) <> "" then
		session("total_compra") = session("total_compra") + (session("sss_cantidad" & a) * session("sss_preciocompra" & a))
	End if
next

'----------------- ALTA PEDIDO

dim xcantidad,xcodigo

xcantidad = 0
xcodigo = 0
tot = 0

rs.open "SELECT * FROM Compras WHERE idpedido = 0",conn,2,2
rs.addnew

rs("ped_now") = now()
rs("ped_IP") = request.ServerVariables("REMOTE_ADDR")

if request("ped_nombre") <> "" then 
	rs("ped_nombre")=request("ped_nombre")
else
	rs("ped_nombre")=null
end if

if request("ped_email") <> "" then 
	rs("ped_email")=LCASE(TRIM(request("ped_email")))
else
	rs("ped_email")=null
end if

if request("ped_fb_id") <> "" then 
	rs("ped_fb_id")=request("ped_fb_id")
else
	rs("ped_fb_id")=null
end if

if request("ped_telefono") <> "" then 
	rs("ped_telefono")=request("ped_telefono")
else
	rs("ped_telefono")=null
end if

if request("ped_Comentario") <> "" then 
	rs("ped_comentario")=request("ped_Comentario")
else
	rs("ped_comentario")=null
end if

if request("ped_provincia") <> "" then 
	rs("ped_provincia")=request("ped_provincia")
else
	rs("ped_provincia")=null
end if

if request("ped_localidad") <> "" then 
	rs("ped_localidad")=request("ped_localidad")
else
	rs("ped_localidad")=null
end if

if request("ped_domicilio") <> "" then 
	rs("ped_domicilio")=request("ped_domicilio")
else
	rs("ped_domicilio")=null
end if

if request("ped_CP") <> "" then 
	rs("ped_CP")=request("ped_CP")
else
	rs("ped_CP")=null
end if

if request("ped_transporte") <> "" then 
	rs("ped_transporte")=request("ped_transporte")
else
	rs("ped_transporte")=null
end if

if request("ped_tipopago") <> "" then 
	rs("ped_tipopago")=request("ped_tipopago")
else
	rs("ped_tipopago")=null
end if
			
rs("ped_monto") = tot

rs.update
rs.close

'------------------------------------------ TOMA CODIGO

rs.open "SELECT TOP 1 idpedido FROM Compras ORDER BY idpedido DESC",conn,3,1
rs.movefirst

session("idpedido") = rs("idpedido")
xIDPEDIDO = rs("idpedido")

rs.close

'------------------------- ALTA ITEMS y QUITAR STOCK

dim mail_items,mail_datos

for a = 0 to 300
	if session("sss_iditem" & a) <> "" AND NOT isnull(session("sss_iditem" & a)) then
	
		rs.open "SELECT * FROM Q_Articulos WHERE idarticulo = " & session("sss_iditem" & a),conn,2,2
		rs.movefirst
		
			rs1.open "SELECT * FROM Compras_items WHERE iditem = 0",conn,2,2
			rs1.addnew
			
			rs1("xidpedido") = xIDPEDIDO
			rs1("xidarticulo") = session("sss_iditem" & a)
	
			if session("sss_cantidad" & a ) <> "" AND not isnull(session("sss_cantidad" & a)) then
				rs1("item_cantidad") = session("sss_cantidad" & a)
				tot = tot + cint(session("sss_cantidad" & a)) * ppp
			end if
	
			rs1("item_precio") = rs("art_precio_may")
			rs1("item_precio_compra") = session("sss_preciocompra" & a)
			rs1("item_nombre") = rs("art_nombre")
			
			rs("art_precio_compra") = session("sss_preciocompra" & a)
			
			rs1.update
			rs1.Close
			
		rs.update
		rs.close

	end if
next%>

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


<%'--------------------------- MAIL AL CLIENTE

dim omail,Mailconf

rs.open "SELECT * FROM Q_Compras WHERE idpedido = " & xIDPEDIDO,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") + 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.com.ar<ventas@fe-cort.com.ar>"
'	omail.Subject = "Compra realizada por " & 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

'--------------------------- MAIL INTERNO

'	Set filemail = server.CreateObject("Scripting.FileSystemObject")
'	Set f = filemail.OpenTextFile(server.MapPath("\") & "\mails\compra_interno.asp",1)
'	textmail1=f.Readall
'	set filemail = Nothing  
'	set f = Nothing  
'
'mail_datos=""
'mail_datos = mail_datos & "Fecha : " & date() & "<br>"
'mail_datos = mail_datos & "Hora : " & Time() & "<br>"
'mail_datos = mail_datos & "IP : " & request.ServerVariables("REMOTE_ADDR") & "<br>"			
'mail_datos = mail_datos & "<br>"			
'mail_datos = mail_datos & "<b>DATOS</b><br>"	
'mail_datos = mail_datos & "Nombre : " & request("ped_nombre") & "<br>"
'mail_datos = mail_datos & "E-mail : <a href='mailto:" & request("ped_Email") & "'>" & request("ped_Email") & "</a><br>"
'mail_datos = mail_datos & "Telefono : " & request("ped_telefono") & "<br>"
'mail_datos = mail_datos & "<b>ENVIO</b><br>"	
''mail_datos = mail_datos & "Tipo de envio : " & request("ped_tipoenvio") & "<br>"	
'mail_datos = mail_datos & "Provincia : " & request("ped_provincia") & "<br>"
'mail_datos = mail_datos & "Localidad : " & request("ped_localidad") & "<br>"
'mail_datos = mail_datos & "Domicilio : " & request("ped_domicilio") & "<br>"
'mail_datos = mail_datos & "CP : " & request("ped_CP") & "<br>"
''mail_datos = mail_datos & "Sucursal : " & request("ped_sucursal") & "<br>"
''mail_datos = mail_datos & "<b>PAGO</b><br>"	
''mail_datos = mail_datos & "Forma de pago : " & request("ped_tipopago") & "<br>"
''mail_datos = mail_datos & "<br>"
'mail_datos = mail_datos & "<b>COMENTARIO</b><br>"	
'mail_datos = mail_datos & replace(request("ped_Comentario"),chr(13),"<br>") & "<br>"
'mail_datos = mail_datos & "<br>"
'mail_datos = mail_datos & "<b>PEDIDO</b><br>"			
'mail_datos = mail_datos & "<br>"	
'
'mail_datos = mail_datos & mail_items
'
'mail_datos = mail_datos & "<br>"	
'mail_datos = mail_datos & "TOTAL : <b> $ " & formatnumber(rs("ped_monto"),2) & "</b>"			
'
'textmail1 = replace(textmail1,"|||detalle|||",mail_datos)
'
'Err=0
'
'Set omail = Server.CreateObject("CDO.Message")
'omail.To= "ventas@fe-cort.com.ar"
'omail.From=  "WEB fe-cort.com.ar<ventas@fe-cort.com.ar>"
'omail.Subject = "Pedido WEB"
'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

'------------------------------- Limpia carrito

for a = 0 to 300
	session("sss_iditem" & a)=null
	session("sss_precio" & a)=null
	session("sss_preciomin" & a)=null
	session("sss_cantidad" & a)=null
next
	
'session.Abandon()

'if request("ped_tipopago") = "Mercadopago" then
'	Response.Redirect ("carrito_mp.asp")
'else
	Response.Redirect ("Compra_edit.asp?idpedido="& xIDPEDIDO)
'end if%>

PK 99