PK

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

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

<%rs.Open "SELECT * FROM Compras_items WHERE xidpedido = " & session("idpedido") & " AND xidarticulo = " & request("idarticulo"),conn,2,2
rs.movefirst
rs.delete
rs.Close

'-------------------- RECALCULAR

dim xtotalcompra

rs1.Open "SELECT * FROM Q_Compras_items WHERE xidpedido = " & session("idpedido"),conn,2,2

if not rs1.EOF then

rs1.movefirst
do until rs1.EOF
	xtotalcompra = xtotalcompra + rs1("item_cantidad") * rs1("item_precio_compra")
	rs1.movenext
loop
rs1.close

end if

'------------- MONTO TOAL Compra

rs.open "SELECT * FROM Compras WHERE idpedido = "  & session("idpedido"),conn,2,2
rs.movefirst

	rs("ped_monto") = xtotalcompra 

rs.update
rs.close


conn.Close

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

PK 99