Hola a todos
A ver si alguien me ayuda, tengo una carro de la compra mejor dicho estoy haciendo
, ahora estoy en la parte que me guardo en un array de session todos los pedidos que van haciendo, y cuando esté listo haré que dicho array se guarde en la base de datos. Lo tengo montado pero tengo dos problemas :
1. Cada vez que haces F5, te carga otra vez el ultimo pedido ¿como evitar esto?
2. Como puedo hacer, para poder elimina un elemento del array, con la idea, de que el usuario se da cuenta de que un producto que ha cogido no lo quiere.
Os paso el código para que os ayude:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<%
'Set shopping cart constants
Const PRODUCT_ID = 0
Const PRODUCT_NAME = 1
Const PRODUCT_PRICE = 2
Const PRODUCT_QUANTITY = 3
Const ITEM_SUBTOTAL = 4
Const PRODUCT_EMB = 5
Const NUMBER_OF_ITEM_ATTRIBUTES = 7
Const MAX_NUMBER_OF_ITEMS = 20
'Dim module-level array to store contents of shopping cart
dim ShoppingCart
ReDim ShoppingCart(NUMBER_OF_ITEM_ATTRIBUTES - 1, MAX_NUMBER_OF_ITEMS - 1)
Response.Buffer=true
if Session("aut")=false then
response.Redirect("login.asp")
response.write("<script>")
response.write("window.open('login.asp','_blank'); ")
response.write("</script>")
end if
Dim Cantidad, ProductoName, ID, Tarifa, Embalaje
Cantidad = Request.Form("txtCantidad")
ProductoName = Request.Form("hidProductoName")
ID = Request.Form("hidID")
Tarifa = Request.Form("hidTarifa")
Embalaje = Request.Form("hidEmbalaje")
If IsEmpty(Session("ShoppingCart")) Then
Session("ShoppingCart") = ShoppingCart
Session("ItemCount") = 0
Else
ShoppingCart = Session("ShoppingCart")
End If
itemNumber = Session("ItemCount")
if Cantidad = "" then
Cantidad = 1
end if
itemSubTotal = (Cantidad * Embalaje) * Tarifa
ShoppingCart(PRODUCT_ID, itemNumber) = ID
ShoppingCart(PRODUCT_NAME, itemNumber) = ProductoName
ShoppingCart(PRODUCT_PRICE, itemNumber) = Tarifa
ShoppingCart(PRODUCT_QUANTITY, itemNumber) = Cantidad
ShoppingCart(ITEM_SUBTOTAL, itemNumber) = itemSubTotal
ShoppingCart(PRODUCT_EMB, itemNumber) = Embalaje
Session("ShoppingCart") = ShoppingCart
Session("ItemCount") = Session("ItemCount") + 1
%>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="include/estilo_new.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#E3EEFE">
<table cellspacing="2" cellpadding="2" border="1">
<td>Código</td>
<td>Producto Nombre</td>
<td>Precio</td>
<td>Cantidad</td>
<td>SubTotal</td>
<td>Embalajes</td>
<%
totalCost = 0
itemsInCart = Session("ItemCount")
for itemNumber = 0 to itemsInCart
if ShoppingCart(0, itemNumber) <> "" then
ID = ShoppingCart(PRODUCT_ID, itemNumber)
Name = ShoppingCart(PRODUCT_NAME, itemNumber)
price = ShoppingCart(PRODUCT_PRICE, itemNumber)
productQuantity = ShoppingCart(PRODUCT_QUANTITY, itemNumber)
itemSubTotal = ShoppingCart(ITEM_SUBTOTAL, itemNumber)
Embalaje = ShoppingCart(PRODUCT_EMB, itemNumber)
totalCost = totalCost + itemSubTotal
%>
<tr>
<td><%= ID %></td>
<td><%= Name %></td>
<td><%= FormatCurrency(price) %></td>
<td align=center><%= productQuantity %></td>
<td align=center><%= FormatCurrency(itemSubTotal) %></td>
<td align=center><%= Embalaje %></td>
</tr>
<%
End If
next
%>
</table>
<hr>
Número de elemntos en el carro = <%= itemsInCart %> <br>
<h3>Total Pedido = <%= FormatCurrency(totalCost) %></h3>
<hr><center>
<a href="#">Procesar Pedido</a> |
<a href="carro_vista_categoria.asp">Continuar Comprando</a></center>
<br>
</body>
</html>