Hola gente,
Les agradeceria muchos a los que me echen una mano en esto.
Me sale este error
Tipo de error:
(0x80020009)
Ocurrió una excepción.
muestra_carrito1.asp, línea 44
el scritp es:
<%
Dim clave,gasto,total,carrito
Dim subtotal,sql,conexion,rs
gasto=5
total=0
subtotal=0
if isobject(Session("carrito")) then
set carrito=Session("carrito")
else
set carrito=Server.CreateObject("Scripting.Dictionary" )
end if
if carrito.Exists(clave) then
carrito(id)=carrito(clave)+1
else
carrito.add clave,1
end if
set conexion=Server.Createobject("adodb.connection")
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Amigos.mdb")
conexion.open strconn
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 clave in carrito
subtotal=0
sql="select * from producto where codigo='" &request.querystring("cod_carro") &"'"
set rs=conexion.execute(sql)
response.Write("<TR>")
response.Write("<TD>"&rs("descripcion")&"</TD>") linea 44 response.Write("<TD>"&carrito(clave)&"</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=clave&cant=carrito(cla ve)>Quitar Todos</A>")
response.Write("</TD>")
subtotal=CSng(FormatNumber(carrito(clave))*rs.Fiel ds("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+gastos)
end if
Response.Write("</TD></TABLE>")
%>
<a href="comprar.asp">Volver</a>
Gracias por mirarlo
