ver.asp (el q nos muestra lo q pensamos comprar)
Código:
<HTML>
<HEAD>
<TITLE>Ejercicio Carrito</TITLE>
</HEAD>
<BODY>
<CENTER>
<H1>Ver Carrito</H1><BR>
<TABLE BORDER=0>
<TR><TD>Cod</TD><TD>Desc.</TD><TD>Prec</TD><TD>Cant.</TD><TD>Subtot</TD></TR>
<%
dim total,codigos,x
set carrito=server.createobject("scripting.dictionary")
set carrito=session("micarrito")
total=0
codigos=carrito.keys
set conn=server.createobject("ADODB.connection")
conn.open "miodbc"
for x=0 to carrito.count-1
set rs=server.createobject("ADODB.recordset")
rs.open "select * from articulos where id=" & codigos(x),conn
%>
<TR>
<TD><%=rs("id")%></TD>
<TD><%=rs("descrip")%></TD>
<TD><%=rs("precio")%></TD>
<TD><%=carrito.item(codigos(x))%></TD>
<TD><%=rs("precio")*carrito.item(codigos(x))%></TD>
</TR>
<%
total=total+(rs("precio")*carrito.item(codigos(x)))
rs.close
next
%>
</TABLE>
<H3>Total : <%=total%>
<BR><BR><Input type="button" value="Comprar" ONCLICK="javascript:window.location='grabar.asp'">
<BR><Input type="button" value="Elejir" ONCLICK="javascript:window.location='listado.asp'">
</BODY>
</HTML>