Hola amigos,
Estoy haciendo un carrito de compra.Pero al añadir un producto, me sale como cantidad 2 y cada vez que añado un se suma de 2 en 2.
Alli va el Script:
<html>
<head>
<title>Mostrar el carrito de compra</title>
</head>
<body>
<%@LANGUAGE="VBSCRIPT"%>
<%Response.Buffer=True%>
<%
Dim clave,gasto,total,carrito
Dim subtotal,sql,conexion,rs
gasto=5
total=0
subtotal=0
set conexion=Server.Createobject("adodb.connection")
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Amigos.mdb")
conexion.open strconn
id=request.QueryString("variable")
response.Write(id)
if isobject(Session("carrito")) then
set carrito=Session("carrito")
else
set carrito=Server.CreateObject("Scripting.Dictionary" )
end if
response.Write("<TABLE BORDER=1 CELLPADDING=1 CELLSPACING=1>")
response.Write("<TR><TD>Artículo</TD>")
response.Write("<TD>Cantidad</TD>")
response.Write("<TD>Precio/unidad</TD>")
response.Write("<TD>Quitar del carrito</TD>")
response.Write("<TD>Total</TD></TR>")
for each id in carrito
subtotal=0
if carrito.Exists(id) then
carrito(id)=carrito(id)+1
else
carrito.add id,1
end if
sql="select * from producto where codigo='"&request.QueryString("variable")&"'"
set rs=conexion.execute(sql)
' response.Write(sql)
response.Write("<TR>")
response.Write("<TD>"&rs("descripcion")&"</TD>")
response.Write("<TD>"&carrito(variable)&"</TD>")
response.Write("<TD>"&rs("Precio")&"</TD>")
response.Write("<TD><A HREF=shop.asp?>Quitar Uno</A>")
response.Write("<A HREF=shop.asp?ac=sacar&prod=variable&cant=carrito( variable)>Quitar Todos</A>")
response.Write("</TD>")
subtotal=CSng(FormatNumber(carrito(variable))*rs.F ields("precio"))
total=total + subtotal
response.Write("<TD>"&subtotal&"</TD></TR>")
next
if carrito.Count > 0 then
rs.close
set rs=nothing
end if
Response.Write("<TR><TD COLSPAN=4>Gastos de envío</TD>")
Response.Write("<TD>")
if total=0 then
Response.Write("0") ' Sin compra no hay gastos de envío
else
Response.Write(gasto)
end if
Response.Write("</TD>")
Response.Write("<TR><TD COLSPAN=4><B>Total:</B></TD>")
Response.Write("<TD>")
if total=0 then
Response.Write("0")
else
Response.Write(total+gasto)
end if
Response.Write("</TD></TABLE>")
'response.Write(carrito)
conexion.Close
set conexion=nothing
%>
<a href="comprar.asp">Volver</a>
</body>
</html>
Gracias responderme.
Buen Fin de Semana
