Estoy haciendo un carro de la compra, quiero que cuando se realice un pedido se actualice la base de datos aumentando el campo compras para cada producto que se ha comprado con la cantidad que se ha comprado, con sqlUPDATE (se puede ver en el codigo adjunto) he conseguido que cada vez que se realice un pedido aumente el campo compras en 1 para cada producto que se compre, pero si se ha indicado que se quiere mas de una unidad de ese producto quiero que el campo compras aumente en ese cantidad en lugar de aumentar solo en uno.
Los productos que se han comprado son manwey(i,0))
La cantidad que se ha comprado de cada producto es manwey(i,1).
Este es el codigo:
<%@ LANGUAGE = "VBScript" %>
<!-- #include file="db.asp" -->
<!-- #include file="configuracion.asp" -->
<!-- #include file="funciones.asp" -->
<%
'Comprobar si hay algo en el carro de la compra
If IsArray(Session("cart")) = false Then
Dim manwey(19,1)
Session("cart") = manwey
response.redirect("error.asp?mensage=" & Server.URLEncode("Tu carro esta vacio."))
end if
manwey=Session("cart")
cempty=true
for i=lbound(manwey) to ubound(manwey)
if manwey(i,0)<>"" and manwey(i,1)<>"" then
cempty=false
end if
next
if cempty then
response.redirect("revisar.asp")
end if
%>
<html><head><title></title><body >
<table border=0>
<td valign=top>
<font face="helvetica" size="6" color="<%= colortexto %>"
<b>Comprobación del pedido</b>
<br><font face="helvetica, arial" size="2" color="<%= text %>">
<table cellspacing=5 width=500>
<tr>
<td align="center"><font face="helvetica" size="2" color="<%= colortexto %>"
<p align="left"><b>Borrar </b></td>
<td align="center"><font face="helvetica" size="2" color="<%= colortexto %>"
<p align="left"><b>Articulo </b></td>
<td align="center"><font face="helvetica" size="2" color="<%= colortexto %>"
<p align="left"><b>Cantidad </b></td>
<td align="center"><font face="helvetica" size="2" color="<%= colortexto %>"
<p align="left"><b><b>Precio </b></td>
<td align="right"><font face="helvetica" size="2" color="<%= colortexto %>"
<p align="left"><b>Total </b></td>
</tr>
<% 'Mostrar los contenidos del carro de la compra
manwey=session("cart")
subtotal=0
for i=lbound(manwey) to ubound(manwey)
if manwey(i,0)<>"" and manwey(i,1)<>"" then
set rscart=db.execute("select nombreproducto,idproducto,precio from productos where idproducto=" & manwey(i,0))
precioactual=rscart("precio")%>
<%
Set rs=db.execute("SELECT * FROM productos WHERE Idproducto="&manwey(i,0)&"")
sql = "SELECT * FROM productos WHERE Idproducto=" & manwey(i,0)
set result = db.Execute(sql)
sqlUPDATE = "UPDATE productos SET compras = (compras+1) WHERE Idproducto=" & manwey(i,0)
db.Execute(sqlUPDATE)
%>
<tr>
<td align="center">
<a href="alter.asp?item=<%=i%>&action=delete&redir=pa yment"><img src="imagenes/delete.gif" border=0></a></td>
<td align="left"><font face=helvetica size=2>
<a href="addprod.asp?idproducto=<%=rscart("idproducto ") %>">
<%= rscart("nombreproducto") %></a><br>
</td>
<%=i %>
<td align="center"><font face="helvetica" size="2" color="<%= colortexto %>"
<p align="left"><b><%= manwey(i,1) %></b></td>
<td align="center"><font face="helvetica" size="2" color="<%= colortexto %>"
<p align="left">
<b><%=formatnumber(precioactual) & simbomoneda %></b></td>
<td align="right"><font face="helvetica" size="2" color="<%= colortexto %>"
<p align="left">
<b><%=formatnumber((precioactual) * manwey(i,1)) & simbomoneda%></b></td>
</tr>
<%
subtotal=subtotal+(precioactual * manwey(i,1))
end if
next
impuesto=subtotal*tipoimpositivo/100
%>
<tr>
<td colspan=5><hr></td>
</tr>
<tr>
<td colspan=3></td>
<td colspan=1 align=right valign="top" >
<p align="left"><b>Total</b></td>
<td colspan=1 align=right valign="middle">
<p align="left"><b><%=formatnumber(subtotal+impuesto) & simbomoneda %><b></td>
</tr>
</table>
<form action="process.asp" method="post">
<input type=image src="imagenes/enviar.gif" alt="Actualizar compras" border=0>
</form>
</td>
</table>
</body>
</html>
<%
db.close
set db=nothing
%>
