PK

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

<%'response.Write(request.QueryString() & request.form())

dim cantx,art_precio

for a = 0 to 300
	if session("sss_iditem" & a)=cint(request("idarticulo")) then exit for
next

if a = 301 then
	for a = 0 to 300
		if session("sss_iditem" & a)="" OR isnull(session("sss_iditem" & a)) then exit for
	next
end if

'response.Write("<br>" & a)

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

cantx = 0
if rs("art_ventaunitaria") AND request("item_" & rs("idarticulo") & "_u") <> "" then cantx = cantx + cint(request("item_" & rs("idarticulo") & "_u"))
if rs("art_unidadespc") > 0 AND request("item_" & rs("idarticulo") & "_c") <> "" then cantx = cantx + cint(request("item_" & rs("idarticulo") & "_c") * rs("art_unidadespc"))

	if cantx > 0 then
	
			art_precio = null
				  
		if session("idcliente") <> "" then
		  if session("cli_revendedor") then
			art_precio = rs("art_precio") * ( 1 + (rs("prov_descuento_rev") / 100)) * ( 1 - (session("cli_descuento") / 100))
		  else
			art_precio = rs("art_precio") * ( 1 + (rs("prov_descuento") / 100)) * ( 1 - (session("cli_descuento") / 100))
		  end if
		end if	
	
	
		session("sss_iditem" & a)=rs("idarticulo")
		if art_precio > 0 then
			session("sss_precio" & a)=art_precio
			session("sss_preciomin" & a)=art_precio
		else
			session("sss_precio" & a)=0
			session("sss_preciomin" & a)=0
		end if		
		session("sss_cantidad" & a)=cantx
	
	end if

rs.close
conn.close

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

PK 99