PK

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

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

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

'----------------- ALTA CLIENTE

rs.open "SELECT * FROM Clientes WHERE cli_email = '" & LCASE(TRIM(request("ped_email"))) & "'",conn,2,2
if rs.EOF then

	rs.addnew

	rs("cli_now") = now()
	rs("cli_IP") = request.ServerVariables("REMOTE_ADDR")
	
	if request("ped_nombre") <> "" then 
		rs("cli_nombre")=request("ped_nombre")
	else
		rs("cli_nombre")=null
	end if
	
	if request("ped_email") <> "" then 
		rs("cli_email")=LCASE(TRIM(request("ped_email")))
	else
		rs("cli_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("cli_telefono")=request("ped_telefono")
	else
		rs("cli_telefono")=null
	end if
	
	if request("ped_Comentario") <> "" then 
		rs("cli_comentario")=request("ped_Comentario")
	else
		rs("cli_comentario")=null
	end if
	
	if request("ped_provincia") <> "" then 
		rs("cli_provincia")=request("ped_provincia")
	else
		rs("cli_provincia")=null
	end if
	
	if request("ped_localidad") <> "" then 
		rs("cli_localidad")=request("ped_localidad")
	else
		rs("cli_localidad")=null
	end if
	
	if request("ped_domicilio") <> "" then 
		rs("cli_domicilio")=request("ped_domicilio")
	else
		rs("cli_domicilio")=null
	end if
	
	if request("ped_CP") <> "" then 
		rs("cli_CP")=request("ped_CP")
	else
		rs("cli_CP")=null
	end if
	
	rs("cli_estadocc") = 0
	
	rs.update

end if
rs.close


'------------------ 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_may") = 0
session("total_min") = 0

for a = 0 to 300
	if session("sss_cantidad" & a) <> "" then
		session("total_may") = session("total_may") + (session("sss_cantidad" & a) * session("sss_precio" & a))
		session("total_min") = session("total_min") + (session("sss_cantidad" & a) * session("sss_preciomin" & a))
	End if
next
if session("total_may") >= session("monto_mayorista") then
	session("precios") = "MAY"
else
	session("precios") = "MIN"
end if

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


dim xcantidad,xcodigo

xcantidad = 0
xcodigo = 0
tot = 0

for a = 0 to 300
	if 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("precios") = "MAY" then
				ppp=cdbl(session("sss_precio" & a))
			else
				ppp=cdbl(session("sss_preciomin" & a))
			end if
			
			if session("sss_cantidad" & a) <> "" AND not isnull(session("sss_cantidad" & a)) then
				tot = tot + cint(session("sss_cantidad" & a)) * ppp
			end if
			rs.Close
	end if
next

rs.open "SELECT * FROM Pedidos 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_tipoenvio") <> "" then 
	if request("ped_tipoenvio") ="A convenir" then rs("ped_costoenvio") = null
	if request("ped_tipoenvio") ="Retiro" then rs("ped_costoenvio") = 0
	if request("ped_tipoenvio") ="Norte-CABA" then rs("ped_costoenvio") = 350
	if request("ped_tipoenvio") ="Sur-Oeste" then rs("ped_costoenvio") = 550
	rs("ped_tipoenvio")=request("ped_tipoenvio")

else
	rs("ped_tipoenvio")=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_sucursal") <> "" then 
'	rs("ped_sucursal")=request("ped_sucursal")
'else
'	rs("ped_sucursal")=null
'end if

'if request("ped_tipopago") <> "" then 
'	rs("ped_tipopago")=request("ped_tipopago")
'else
'	rs("ped_tipopago")=null
'end if
if session("precios") = "MAY" then
	rs("ped_tipoprecio") = "MAY"
else
	rs("ped_tipoprecio") = "MIN"
end if
			
rs("ped_monto") = tot

rs("xidpe") = 1

rs.update
rs.close

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

rs.open "SELECT TOP 1 idpedido FROM Pedidos 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 Pedidos_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") = session("sss_precio" & a)
			'if rs("art_precio") > 0 then
			'	rs1("item_precio") = rs("art_precio")
			'else
			'	rs1("item_precio") = 0
			'end if
			rs1("item_precio_compra") = rs("art_precio_compra")
			rs1("item_nombre") = rs("art_nombre")
			
			rs1.update
			rs1.Close
			
		rs.update
		rs.close

	end if
next%>

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


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

dim omail,Mailconf

rs.open "SELECT * FROM Q_pedidos 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"))
'	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<ventasonline@Fe-cortferreteriaindustrial.com>"
'	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= "info@Fe-cort.com.ar"
'omail.From= "tom@webtom.com.ar"
omail.From=  "WEB Fe-cort.com.ar<info@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()

Response.Redirect ("carrito_ok.asp")

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

PK 99